vba - solucion - se ha producido el error 1004 en tiempo de ejecucion error definido por la aplicacion o el objeto

Recipients.Add genera el error en tiempo de ejecución ''287'': error definido por la aplicación o definido por el objeto

Question

Estoy probando cómo enviar un correo electrónico. He copiado el código a continuación de los archivos de ayuda:

Sub CreateHTMLMail()
''Creates a new e-mail item and modifies its properties''
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
''Create e-mail item''
Set objMail = olApp.CreateItem(olMailItem)
With objMail
.Subject = "Test Message"
.Body = "Body Text"
.Recipients.Add "[email protected]"
.Recipients.ResolveAll
.Display
End With
End Sub

Recibo un mensaje de Error de tiempo de ejecución ''287'' con la línea .Recipients.Add resaltada. ¿Qué estoy haciendo mal?

Answer 1

Prueba esto:

 toString = "[email protected];[email protected];[email protected]"
With OutMail
.To = toString
.Subject = "Hello Friends"
.Body = "Here is the email body"
.Send
End With

Esto, por supuesto, funciona con múltiples destinatarios. Para un único destinatario, simplemente haz esto:

toString = "[email protected]"

Y no te olvides del .Send para que realmente envíe tu correo electrónico.

Answer 2

Editar:
Como dice el OP en su comentario a mi respuesta original, cambiar su código a

.Recipients.To = "[email protected]" 

resolvió su problema Dejo mi respuesta original a continuación, porque alguien puede aprender del error que cometí, señalado por divo ;-)

Respuesta original (cuidado, esto está mal!):

Intente adjuntar los parámetros pasados ​​al método Add con paréntesis:
.Recipients.Add ("[email protected]")