Adjuntar Archivo con macro a Thunderbird

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

Adjuntar Archivo con macro a Thunderbird

Notapor NOXVILL » 02 Ene 2018 21:05

Buen dia, esta es mi primera ves aqui, espero puedan ayudarme, tengo un formato para crear remisiones de salida, tengo esta macro realizada, donde me crea un PDF de los datos que hago, me automatiza el nombre, y despues imprime un par de copias. Luego necesito que se envie por correo el PDF creado pero solo eh logrado abrir el Thunderbird más no tengo idea de los comandos para agregar el adjunto. Este es el codigo:

Sub ExportarPDF()
Dim ADJUNTO As Object
'Crea el PDF
nbreLibro = Range("L8")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\REM" & nbreLibro & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Range("A1:N48").Select
'Imprime
Selection.PrintOut Copies:=2, Collate:=True
ActiveWindow.SmallScroll Down:=-24
'Correo
Application.Dialogs(xlDialogSendMail).Show

End Sub

Espero puedan ayudarme ya que por politicas de mi empresa no puedo utilizar outlook.
Les agradezco de antemano.

Saludos
NOXVILL
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 1
Registrado: 02 Ene 2018 20:54

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: Salvador1 y 3 invitados