Envoi de mail avec VB et MAPI

Question

Bonjour à tous,

j'essaie d'envoyer un mail en copie cachée à x personnes dont les adresses sont dans une base de données.
J'ai adapté le code ci-dessous pour faire des essais.
Ca marche !! mais c'est le dernier destinataire qui recoit tous les mails !!!!
(Pas de soucis avec la pièce jointe.)

Mon code : (adapté pour 2 destinataires)
'=========================================================
Dim NombrePersonne As Integer
Dim Adresse() As String
Dim Nom() As String
ReDim Adresse(2)
ReDim Nom(2)

NombrePersonne = 2
Adresse(0) = "toto@free.fr"
Nom(0) = "Monsieur Toto"
Adresse(1) = "titi@free.fr"
Nom(1) = "Monsieur Titi"

MAPISession.SignOn

With MAPIMessage
    .MsgIndex = -1
    .RecipType = mapBccList
    For i = 0 To NombrePersonne - 1
        .RecipIndex = i
        .RecipAddress = Adresse(i)
        .RecipDisplayName = Nom(i)
        .MsgSubject = "Essai de mail avec VB6"
        .MsgNoteText = "Ceci est le corps du message " & .RecipAddress
    Next

    .AttachmentPathName = "D:\Mes documents\Glace aux nougats Marthe.txt"
    .SessionID = MAPISession.SessionID
    .Send
End With

MAPISession.SignOff

MsgBox "Message envoyé !!"

Unload Me
'=========================================================

Voilà, si quelqu'un a une petite idée............................

Dany108[:D]

PCPT · Answer

salut,
beh oui tu fais le send après la boucle, normal que seul le dernier index soit concerné.

tout doit être "unique" avant le next

++
PCPT   [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

dany108 · Answer

Salut,
merci d'avoir pris le temps de me lire.
Je ne suis pas tout à fait d'accord avec toi : si je met le send avant le next je vais envoyer autant de mail que de destinataires. Moi ce que je veux c'est envoyer un mail avec x destinataires en copie cachée.

Dany108[:D]

PCPT · Answer

oups oui exact.
je ne touche pas à MAPI (il faut outlook d'installé et de configuré chez l'utilisateur donc pas universel....)
quelle est la propriété du cc?
à supposer RecipAddress (j'en doute), dans ta boucle çà donnerait :
.RecipAddress = .RecipAddress & Adresse(i) & ", "

après le next tu enlèves le dernier ", " :
.RecipAddress=leftb$(.RecipAddress,lenb(.RecipAddress)-4)

nb : il est possible que tu aies à initialiser .RecipAddress avant le for (="")

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Envoi de mail avec VB et MAPI

3 réponses

Votre réponse

Discussions similaires