envoie copie mail

simba59

XLDnaute Nouveau
Bonjour,

J'ai réussi (en grande partie grace a vous) a envoyer un mail automatique par macro via lotusnotes.
Mon programme marche, mais je rencontre un dernier petit soucis:
j'aimerais envoyer une copie à un second destinataire. J'essai avec le code ci dessous, mais ca ne marche pas...
Pouvez vous me dire si cela vous semble correct?
merci d'avance...


Sub envoie_Shank()

...

Set mailDoc = mailDb.CREATEDOCUMENT
mailDoc.Form = 'Memo'
mailDoc.sendTo = 'kiki@kiki.fr'
mailDoc.sendCc = ' kaka@kaka.fr'
mailDoc.Subject = 'sujet'
mailDoc.body = ' bonjour'
mailDoc.ReturnReceipt = '0'
mailDoc.SAVEMESSAGEONSEND = True
mailDoc.PostedDate = Now()
mailDoc.SEND 0
Set mailDb = Nothing
Set mailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub
 

Discussions similaires