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.
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.