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]")