Expertos favor me pueden revisar esta macro
Expertos
estoy tratando de adjuntar todos los archivos de una carpeta a un
correo pero no lo consigo, se los agradeceré me pueden ayuda. Les dejo
el código para que lo revisen.-
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "xxxxxx@xxxxxxxxx"
.Subject = "Archivos"
With OutMail
On Error Resume Next
With OutMail
.Attachments.Add "D:\informes_" & fec & ".jpg"
.BodyFormat = 2 'olFormatHTML
.HTMLBody = "<html>" & _
"<body>" & _
"<p>Señores:</p>" & _
"<p>Favor gestionar...</p>" & _
"<img src='cid:'" & .Attachments.Item(1).Filename & "' height=400 width=800>" & _
"</body>" & _
"</html>"
.display
.Attachments.Add "D:\control\*.*"
.display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End With
End With
End Sub
