Como corregir error macro para enviar mails
Estoy trabajando con una macro para enviar correos. El código funciona, pero he notado que en ciertas ocasiones falla. Paso a comentar, en estos últimos días he estado enviando los correos, siempre chequeo en mi bandeja de salida, que los mails hayan sido enviados. He notado que en ocasiones los mails rebotan, cuando me fijo en enviados observo que la dirección a la cual debe llegar el correo tiene un signo (?) Delante, he revisado la planilla EXCEL y ese signo no está desde donde toma los datos para la tomar la dirección.
Quisiera saber si hay algo que deba corregir o agregar al código para que no me vuelva a pasar. Desde ya muchas gracias a quien pueda responder.
Copio el código
Sub enviar_correo()
Dim Email As CDO.Message
Set Email = New CDO.Message
correo =
passwd =
Destino = Range("F13").Value
asunto = Sheets("datos").Range("F3").Value
firma = Sheets("datos").Range("F12").Value
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(465)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = Abs(1)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passwd
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
With Email
.To = Destino
.From = correo
.Subject = asunto
.HTMLBody = "<html><body>" & _
Aqui continua el código con el cuerpo del mensaje
