EXCEL - VBA- LOTUS NOTES 8.5 - envoi mail a plusieurs destinataires

airsage

XLDnaute Junior
Bonjour,

Je voudrais envoyer un mail à plusieurs utilisateurs après avoir mis à jour mon fichier.

Voici le code que j'utilise :

Dim Session As Object
Dim db As Object
Dim doc As Object
Set Session = CreateObject("Notes.NotesSession")
Set db = Session.GETDATABASE("", "")
Call db.OPENMAIL

Set doc = db.CREATEDOCUMENT()
With doc
.form = "Memo"
.SendTo = "m.mxxx@xxx.com"
.CopyTo = ""
.Subject = "Test"
.body = "OK"
.From = Session.COMMONUSERNAME
.PostedDate = Now
.SAVEMESSAGEONSEND = True
End With
Call doc.SEND(True)
Set Session = Nothing
Set db = Nothing
Set doc = Nothing


le code fonctionne mais J'ai 2 soucis :

1) j'ai un message d'erreur a l'ouverture de mon mail : "Un masque enregistrée doit pas contenir de sous-masques calculés."

2) je n'arrive pas a envoyer de mails a plusieurs destinataires ( même en séparant les utilisateurs avec une ",")


Merci par avance pour votre aide.
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG