Enviar correos automáticamente con VBA
Tengo una macro para enviar correos automáticamente, el problema es que quiero que me adjunte tres archivos y todo bien, solo que en ocasiones no siempre existen los tres archivos y me salta el error, yo querría que el e-mail se enviara con los adjuntos que haya en las tres celdas indicadas, si una o todas las celdas están vacías que no me salte el error, que simplemente lo envíe con los adjuntos que existan o sin los adjuntos si es que las tres celdas están vacías.
Sub Enviar_email()
Application.ScreenUpdating = False
Dim Filenames As String
Filenames = Dir("C:\temp\email\*.xls*")
Do Until Filenames = ""
Workbooks.Open "C:\temp\email\" & Filenames
Range("A:L").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.Sentonbehalfofname = "[email protected]"
.Item.To = Range("N3").Value
.Item.CC = Range("N4").Value
.Item.Subject = Range("Q2").Value
.Item.Attachments.Add Range("N5").Value
.Item.Attachments.Add Range("N6").Value
.Item.Attachments.Add Range("N7").Value
.Item.Send
End With
Application.DisplayAlerts = False
Windows(Filenames).Close
Kill "C:\temp\email\" & Filenames
Application.DisplayAlerts = True
Filenames = Dir
Loop
Kill "C:\temp\Adjuntos\*.xls*"
Application.ScreenUpdating = True
End Sub