¿Cómo puedo juntar 2 Macros, una que Genere PDF y otra que los envié Por Mail?
Me estoy volviendo loco para unir 2 macros y logro poder hacerlo.
Leyendo tutoriales pude armar una Macro que crea desde un archivo (tiene 150 hojas) los transforma en PDF y los guarda en una carpeta que designe.
El código es el siguiente:
Sub CrearPDFs()
Dim ws As Worksheet
Dim Fname As String
For Each ws In ActiveWorkbook.Worksheets
On Error Resume Next 'Continue if an error occurs
Application.ScreenUpdating = False
' Name PDF files based on the worksheet Index (e.g Annex 1.1.1, Annex 1.1.2, etc.)
'Fname = "Annex 1.1." & ws.Index & "_result"
' If you want to name the PDF files differently just change the Fname variable above to
' whatever you like. For example if you changed Fname to:
'
Fname = "M:\xxxxxxx\xxxxxxx\Temp\" & ws.Name
' The files would be stored in M:\xxxxxxx\xxxxxxx\Temp\, and named using the
' worksheet name.
'
' WARNING: Using worksheet names may cause errors if the names contain characters that Windows
' Does not accept in file names. See below for a list of characters that you need to avoid.
'
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Fname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False
Next ws
Application.ScreenUpdating = True
End Sub
Lo que necesito es que a partir de que se genero el PDF y lo guardo en la carpeta designada, se envie cada PDF desde outlook (mi correo) sumandole un mail to CC en la B1, a los correos que están en la ubicación A1 de cada Hoja del archivo
Solo pude lograr desarrollar este texto, que deseo poner en la macro como mensaje en cada mail, pero no logro poder armar las macros juntas
Texto del cuerpo del mail
myMail.Body = "Hola," & vbNewLine & vbNewLine & "Te adjunto un archivo con la liquidación de tus variables." & _vbNewLine & vbNewLine & "