mail lotus envoyé par macro VB mais le mail n'apparait pas dans ma boite "envoyé

Question

Bonjour &#224; toutes et &#224; tous,
J'utilise un code pour envoyer des mails lotus &#224; plusieurs destinataires &#224; partir d'excel. Ce code fonctionne tr&#232;s bien. Cependant mon souci est le suivant : lorsque j'envoie des mails via cette macro, une fois envoy&#233;s, les mails n'apparaissent pas dans ma boite "Envoy&#233;" de lotus alors que les mails sont bel et bien envoy&#233;s. Je suis ainsi oblig&#233; de me mettre en destinataires en ccc pour &#234;tre certain que le mail est bien parti. Y aurait-il quelqu'un qui pourrait m'aider SVP ; ci-dessous le code que j'utilise :

'Subject : sujet du mail
'Attachment : nom d'une pi&#232;ce jointe
'Recipient : adresse e-mail du destinataire principal
'ccRecipient : destinataire en copie
'bccRecipient : destinataire en copie invisible
'BodyText : corps du mail
'SaveIt : mettre &#224; True pour que le mail soit sauvegard&#233;
'Password : mot de passe
'Recip : les diff&#233;rents destinataires du mail
                         
    Dim Maildb As Object      'La base des mails
    Dim UserName As String    'Le nom d'utilisateur
    Dim MailDbName As String  'Le nom de la base des mails
    Dim MailDoc As Object     'Le mail
    Dim AttachME As Object    'L'objet pi&#232;ce jointe en RTF
    Dim Session As Object     'La session Notes
    Dim EmbedObj As Object    'L'objet incorpor&#233;
      
    'Cr&#233;e une session notes
    Set Session = CreateObject("Notes.NotesSession")
   
    'R&#233;cup&#232;re le nom d'utilisateur et cr&#233;e le nom de la base des mails
    UserName = Session.UserName
    MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
   
    'Ouvre la base des mails
    Set Maildb = Session.GETDATABASE("", MailDbName)
    If Not Maildb.ISOPEN Then Maildb.OPENMAIL
          
    Dim destinataires(2) As Variant   'Le nombre de destinataires
    Dim recip(2) As Variant   'Le nombre de destinataires en copie
    Dim bccRecip(2) As Variant   'Le nombre de destinataires en copie cach&#233;e
    
     'Donne l'adresse e-mail des diff&#233;rents destinataires du mail
    destinataires(0) = [e371].Value
    destinataires(1) = [e372].Value
    
    recip(0) = [e382].Value
    recip(1) = [e383].Value

    bccRecip(0) = [e384].Value
    bccRecip(1) = [e385].Value
           
    'Param&#232;tre le mail &#224; envoyer
    Set MailDoc = Maildb.CREATEDOCUMENT
    MailDoc.Form = "Memo"
    MailDoc.sendto = destinataires
    MailDoc.CopyTo = recip
    MailDoc.BlindCopyTo = bccRecip
    MailDoc.Subject = "RELANCE !"
    MailDoc.Body = [E487].Value
    MailDoc.SAVEMESSAGEONSEND = SaveIt
   
    'Envoie le mail
    MailDoc.PostedDate = Now()
    MailDoc.Send 0, destinataires
           
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing

Merci d'avance 
Tr&#232;s cordialement

morickno · Answer

il y a une variable &#224; mettre &#224; une certaine valeur pour faire accus&#233; de reception et pour mettre dans message envoy&#233;. je cherche ces variable et je te recontacterai peu etre

ZZEBULON · Answer

Salut,

Pour que les mails apparaissent dans la vue des documents envoy&#233;s remplace, dans ta macro, la ligne:

MailDoc.SAVEMESSAGEONSEND = SaveIt

Par celle-ci:

MailDoc.SAVEMESSAGEONSEND = True

et &#231;a devrait le faire.

Ciao.

Mail lotus envoyé par macro VB mais le mail n'apparait pas dans ma boite "envoyé

2 réponses

Discussions similaires