Imprimir hoja en PDF y enviar por mail (outlook 2010 o 2011 para Mac)
publicado
Estimados, tengo una macro que me guarda muy bien una hoja excel como PDF en un archivo, el código empleado es el siguiente (OJO, se debe tener cuidado con /, ;, , :, ya que varia entre Windows y Mac):
Estimados, tengo una macro que me guarda muy bien una hoja excel como PDF en un archivo, el código empleado es el siguiente (OJO, se debe tener cuidado con /, ;, , :, ya que varia entre Windows y Mac):
Sub Imprimir_PDF()
Application.ScreenUpdating = False
Dim texto As String, titulo As String
texto = "INGRESE NOMBRE ARCHIVO"
titulo = "CREAR ARCHIVO PDF"
archivo = InputBox(texto, titulo)
Sheets("FAX SIM").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Macintosh HD:Users:rboke:Desktop:PSC:" & archivo & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Lo que no he podido lograr es que el archivo guardado se pueda enviar por mail (Outlook), ¿que código debo agregar y donde?