Línea en macro para que un mail no se envíe desde excel, ¿Si el adjunto no está disponible en la ruta indicada?
Probé la macro para enviar mail desde excel con un adjunto, indicando la ruta del archivo y funciona perfectamente. Lo que sucede es que, si el archivo no esta en dicha ruta, el mail sale igual... Pero vacío. Quiero saber si se puede agregar alguna línea en la macro, para que si el archivo adjunto no es encontrado, el correo no se envíe vacío y muestre algún mensaje de error en el excel.
Desde ya muchas gracias y te felicito por la página y por la ayuda que brindas !
1 Respuesta
Sub mail()
Sub Email_Adjunto()
Dim mi_App As Object
Dim mi_Correo As Object
Set mi_App = CreateObject("Outlook.Application")
mi_App.Session.logon
Set mi_Correo = mi_App.CreateItem(0)
ActiveWorkbook.Save
On Error Resume Next
With mi_Correo
.To = Range("af19").Value
.CC = Range("af20").Value
.BCC = Range("af21").Value
.Subject = Range("af22").Value
.Body = Range("af23").Value
.Attachments.Add Range("af24").Value
.Attachments.Add Range("af25").Value
.Attachments.Add Range("af26").Value
.DeleteAfterSubmit = False
.Send
End With
MsgBox "Email enviado con éxito"
On Error GoTo 0
Set mi_Correo = Nothing
Set mi_App = Nothing
End Sub
