Imprimir hoja en PDF y enviar por outlook

[nanojs]

Bueno antes que todo agradecer por la ayuda que brindan a los que no sabemos tanto de excel , ahora manos a la obra :

Lo que necesito es saber si existe una macro para que imprima una hoja en PDF , adjunte y luego se envie a un correo por outlook , a una direccion ya definida , que el asunto sea lo que se escriba en la celda E1 , de ante mano muchas gracias

agosto1.xls

[aronava]

puedes implementar este codigo en una macro que la mandes llamar desde un boton:

With Application

 .ScreenUpdating = False

 .Calculation = xlCalculationManual

End With



Worksheets("BD").Select

Ruta = "C:\Reporte\"

End If

fichero = Ruta & "NOMBRE DEL ARCHIVO .pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichero, _

    Quality:=xlQualityStandard, _

    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True


Dim objOutlook As Object

Dim obItem As Object

Dim obkNamespace As Object

Dim ADJUNTO As Variant

Set objOutlook = CreateObject("Outlook.Application")

Set ObjNamespace = objOutlook.getnamespace("MAPI")

Set ObjItem = objOutlook.Createitem(olMailItemn)

ObjNamespace.logon "EXCELSPACE", , True, True

ADJUNTO = fichero

With ObjItem

    .Attachments.Add (ADJUNTO)

    .Display

    .TO = ""

    .CC = ""

    .BCC = ""

    .Subject = ' "ASUNTO"

    .Body = "El ARCHIVO esta listo para enviarse."

    .Display

End With

ObjNamespace.Logoff

Set objOutlook = Nothing

Set ObjItem = Nothing

Set ObjNamespace = Nothing

With Application

 .ScreenUpdating = True

 .Calculation = xlCalculationAutomatic

End With

End Sub

[/CODE]

[nanojs]

vale lo pruebo cuando llegue al trabajo y comento , se agradece su respuesta

[Vikingo55]

Estimado aronava, he tratado de usar parcialmente tu código, ya que la parte de salvar el documento en PDF que presento a continuación me funciona de maravillas, sin embargo no he logrado materializar la parte del envio por mail en outlook, que estoy haciendo mal?

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

Dim objOutlook As Object

Dim obItem As Object

Dim obkNamespace As Object

Dim ADJUNTO As Variant

Set objOutlook = CreateObject("Outlook.Application")

Set ObjNamespace = objOutlook.getnamespace("MAPI")

Set ObjItem = objOutlook.Createitem(olMailItemn)

ObjNamespace.logon "EXCELSPACE", , True, True

ADJUNTO = archivo

With ObjItem

.Attachments.Add (ADJUNTO)

.Display

.TO = ""

.CC = ""

.Subject = "ASUNTO"

.Body = "El ARCHIVO esta listo para enviarse."

.Display

End With

ObjNamespace.Logoff

Set objOutlook = Nothing

Set ObjItem = Nothing

Set ObjNamespace = Nothing

With Application

.ScreenUpdating = True

.Calculation = xlCalculationAutomatic

End With

End Sub