Envoi mail vba vers Lotus Notes - Colonne "destinataire" vide
Pierre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une macro excel pour envoyer un mail via Lotus Lotus Notes 9.
Le mail envoyé apparaît bien dans les éléments envoyés mais bizarrement, la colonne "destinataire" est vide.
Un extrait de mon code :
'On configure le mail
MailDoc.Form = "Memo"
MailDoc.Sendto = tableau_personnes_to
MailDoc.CopyTo = tableau_personnes_cc
'MailDoc.BlindCopyto = tableau_personnes_bcc
MailDoc.subject = objet_mail
'On sauvegarde le mail dans les éléments envoyés
SaveIt = True
MailDoc.SaveMessageOnSend = SaveIt
'On envoie le mail
MailDoc.PostedDate = Now()
MailDoc.Send 0, recipient
Savez-vous comment adapter ce code pour que la colonne "destinataire" soit normalement remplie ?
Merci d'avance,
Pierre
J'ai une macro excel pour envoyer un mail via Lotus Lotus Notes 9.
Le mail envoyé apparaît bien dans les éléments envoyés mais bizarrement, la colonne "destinataire" est vide.
Un extrait de mon code :
'On configure le mail
MailDoc.Form = "Memo"
MailDoc.Sendto = tableau_personnes_to
MailDoc.CopyTo = tableau_personnes_cc
'MailDoc.BlindCopyto = tableau_personnes_bcc
MailDoc.subject = objet_mail
'On sauvegarde le mail dans les éléments envoyés
SaveIt = True
MailDoc.SaveMessageOnSend = SaveIt
'On envoie le mail
MailDoc.PostedDate = Now()
MailDoc.Send 0, recipient
Savez-vous comment adapter ce code pour que la colonne "destinataire" soit normalement remplie ?
Merci d'avance,
Pierre
5 réponses
-
Bonjour,
MailDoc.Sendto = tableau_personnes_to MailDoc.CopyTo = tableau_personnes_cc
tableau_personnes_to
ettableau_personnes_cc
ces variables doivent etre des chaines de caracteres avec une "," ou un ";" entre les adresses pas des tableaux de x elements -
Bonjour f894009,
Voici la définition de tableau_personnes_to.
C'est bien une variable.
personnes_to = "***@***"
If InStr(personnes_to, ";") = 0 Then personnes_to = personnes_to & ";"
Dim tableau_personnes_to As Variant
tableau_personnes_to = Split(personnes_to, ";")
Idem pour tableau_personnes_cc -
Re,
votre code est a priori bon (exemple ici: http://www.fabalou.com/VBandVBA/lotusnotesmail.asp
la colonne "destinataire" est vide. Je suppose que le courriel ne part pas ???? -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Re,
Alors, contrairement au autre messagerie, il semblerait qu'il faille un tableau pour multidestinataires voir ceci:
https://www.rondebruin.nl/win/s1/notes/notes8.htm
meme si dans le lien precedent que j'ai mis a dispo, il en est question a la fin
