Anónimo
Macro para mandar mail
Estoy armando un programa con macros en excel y me gustaría saber como se hace para hacer lo siguiente:
Yo tengo un archivo excel que al guardarlo lo hago en formato PDF y lo ubico en una carpeta especifica. Eso ya lo tengo resuelto, pero me gustaría saber también como hago para poder hacer que al guardar ese pdf después se mande automáticamente por mail usando el outlook a un grupo de personas (siempre las mismas) adjuntando el archivo pdf y escribiendo un msg sobre el cuerpo del mail (fijo para todos los mails), y un asunto (el cual varia a medida que se ejecuta el macro una y otra vez)
Yo tengo un archivo excel que al guardarlo lo hago en formato PDF y lo ubico en una carpeta especifica. Eso ya lo tengo resuelto, pero me gustaría saber también como hago para poder hacer que al guardar ese pdf después se mande automáticamente por mail usando el outlook a un grupo de personas (siempre las mismas) adjuntando el archivo pdf y escribiendo un msg sobre el cuerpo del mail (fijo para todos los mails), y un asunto (el cual varia a medida que se ejecuta el macro una y otra vez)
1 Respuesta
Respuesta de selu123
1
Puedes emplear lo siguiente:
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "Duda VB"
.Body ="Hola, este es el texto del mensaje"& Chr(13)
.Attachments.Add ("c:\fichero.pdf")
.Display 'con .Send lo envía directamente, para verlo antes hay que utilizar .Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "Duda VB"
.Body ="Hola, este es el texto del mensaje"& Chr(13)
.Attachments.Add ("c:\fichero.pdf")
.Display 'con .Send lo envía directamente, para verlo antes hay que utilizar .Display
End With
Set OutMail = Nothing
Set OutApp = Nothing