Recipients.Add génère une erreur d'exécution '287': Erreur définie par l'application ou définie par l'objet

Question

Je suis en train de tester l'envoi d'un courrier électronique. J'ai copié le code ci-dessous à partir des fichiers d'aide:

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 "xyz@abc.com" 
     .Recipients.ResolveAll 
     .Display 
    End With 
End Sub 

Je reçois une erreur d'exécution de message « 287 » avec la ligne .Recipients.Add en surbrillance. Qu'est-ce que je fais mal?

Answer 1

Edit:
Comme les Etats OP dans son commentaire à ma première réponse, en changeant son code à

.Recipients.To = "abc@xyz.com" 

résolu son problème. Je laisse ma première réponse ci-dessous, parce que quelqu'un peut apprendre de l'erreur que je fait, signalé par divo ;-)

---

réponse originale (attention, cela est faux!):

Essayez renfermant les paramètres passés à la Ajouter méthode avec parenthèses:
.Recipients.Add ("xyz@abc.com")

Answer 2

Essayez ceci:

toString = "me@email.com;you@email.com;them@email.com" 

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

Bien sûr, fonctionne avec plusieurs destinataires. Pour un seul destinataire, faire ceci:

toString = "oneguy@gmail.com" 

Et ne pas oublier le .Send de faire réellement votre envoi de courrier électronique.