Discussion :

[botakelymg]

Bonjour,

J'ai découvert un certain nombre de code samples pour l'envoi de mail via VBA, notamment ici Quelques test ont marché du 1er coup.

Compte tenu des contraintes système, j'ai dû faire appel à des objets CDO car, l'ajout de références n'est pas accessible (possible) pour les utilisateurs non administrateurs.

J'aurais besoin de tracer la bonne exécution (ou non) des envois vers plusieurs personnes (pas forcément via un groupe de diffusion).

Vers quoi je pourrais m'orienter ? si vous avez des pistes...

Merci d'avance pour vos réponses.

[SilkyRoad]

bonsoir

je ne suis pas sur d'avoir bien saisi, mais tu peux utiliser les notifications et les accusés de réception :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub EnvoiMail_AvecNotification_Et_AccuseReception()
    'testé avec WinXP & Excel2002
    Dim iMsg As Object, iConf As Object
 
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
 
    With iMsg
        Set .Configuration = iConf
        .To = "leForum@dvp.fr"
        '.From = "youralias@yourdomain.com"
        .Subject = "Le titre du message"
        .HTMLBody = "Ceci est un essai ..."
        .Fields("urn:schemas:mailheader:disposition-notification-to") = "expediteur@monMail.fr"
        .Fields("urn:schemas:mailheader:return-receipt-to") = "expediteur@monMail.fr"
        .Fields.Update
        .Send
    End With
End Sub

bonne soirée
michel

[botakelymg]

Bonjour Michel,

Merci pour cette réponse et ce code sample.

Pour me faire plus clair, en fait, je pensais lier la bonne exécution de l'envoi. J'avais oublié que l'envoi de mail est asynchrone.

J'imagine qu'on peut envoyer à une liste discrète d'adresse mail ou une liste de diffusion. Et que le HTMLBody a une longueur limite.

Si je comprends bien, les notifications reviennent chez l'expéditeur (son compte mail) sans demander de confirmation (si c'est le cas, ça me convient). En gros, l'idée est de pouvoir s'assurer que le message est arrivé dans la BàL du ou des expéditeurs. Le reste, c'est la responsabilité des destinataires.

Une question par rapport à votre code : le iConf que vous affectez par Set, qu'apporte t il ?

Quel est cet objet CDO ? comment connaître son modèle intégral ?

Bonne journée,
Frank

[SilkyRoad]

bonjour

j'espère que ce lien pourra t'aider

http://support.microsoft.com/kb/302839/fr


bonne journée
michel

[botakelymg]

Merci bien. Ca me convient.

Bonne journée à toi.