Discussion :

[exclusif]

Bonjour à tous,

Je viens de créer une fonction d'envoi par email de recettes de cuisine en utilisant MAPI mais avec outlook 2003 ça coince. J'obtiens toujours le message suivant :

Certains des destinataires ou tous les destinataires n'ont pas reçu votre message.

Objet : ARTICHAUTS A LA SAUCE HOLLANDAISE
Date : 30/05/2007 19:12

Impossible de contacter le(s) destinataire(s) suivant(s) :

'ludo' le 30/05/2007 19:12
Aucun de vos comptes de messagerie n'a pu effectuer l'envoi à ce destinataire

Et mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    MAPISession1.SignOn
    MAPIMessages1.MsgIndex = -1
    MAPIMessages1.SessionID = MAPISession1.SessionID
For i = 1 To List2.ListCount
    MAPIMessages1.RecipIndex = i - 1
    MAPIMessages1.RecipDisplayName = Tab_Contact_Nom(i - 1)
    MAPIMessages1.RecipAddress = Tab_Contact(i - 1)
Next i
    MAPIMessages1.MsgSubject = strNomRecetteMail       'Objet
    MAPIMessages1.MsgNoteText = strNomRecetteMail & vbCrLf & vbCrLf & strPrepaRecetteMail
 
    MAPIMessages1.Send
    MAPISession1.SignOff

Où Tab_Contact_Nom contient les noms des destinataires et Tab_Contact les adresses mail.

Je n'arrive pas à comprendre pourquoi ça ne fonctionne pas alors qu'avec outlook express, thunderbird... etc... ça fonctionne très très bien.

Merci pour votre aide.

Ludo

[exclusif]

Résolu avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    MAPISession1.SignOn
    MAPIMessages1.MsgIndex = -1
    MAPIMessages1.SessionID = MAPISession1.SessionID
For i = 1 To List2.ListCount
    MAPIMessages1.RecipIndex = i - 1
    MAPIMessages1.RecipDisplayName = Tab_Contact(i - 1)
Next i
    MAPIMessages1.MsgSubject = strNomRecetteMail       'Objet
    MAPIMessages1.MsgNoteText = strNomRecetteMail & vbCrLf & vbCrLf & strPrepaRecetteMail
 
    MAPIMessages1.Send
    MAPISession1.SignOff