Crear botón para convertir hoja en PDF y enviar por email
Tengo una hoja excel que actualmente conforma un botón para convertir a PDF, el asunto es que ahora necesito que el botón además de pasar a PDF, abra un mensaje nuevo para enviar por Outlook, con destinatario "to" en blanco, un "Cc" fijo, y como "subject" sea el mismo nombre del archivo PDF.
1 Respuesta
Respuesta de Dante Amor
2
Te anexo la macro
Sub EnviarHojaEnPdf()
'Enviar una hoja en PDF por correo
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Set h2 = Sheets("Hoja1")
ruta = ThisWorkbook.Path & "\"
nombre = h2.Name
'
h2.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & nombre & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = ""
dam.Cc = "[email protected]"
dam.Subject = nombre
dam.Attachments.Add ruta & nombre & ".pdf"
Dam. Display 'El correo se muestra
'dam. Send
End SubFeliz Año!
