Discussion :

[dom62]

Bonjour,
comment faire pour que le mail envoyé avec CDO.MESSAGE soit avec un accusé de réception.
Merci d'avance.

[Asdorve]

salut,

j'ai trouvé ça:
tu descends dans la page et tu regardes au titre "envoi de mail"
http://www.eleves.ens.fr/wintuteurs/...scripting.html

Mais as-tu déjà commencé à coder quelque chose?

[Asdorve]

où ça: (sans accusé 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
20
21
 
Dim config As CDO.Configuration 
Dim email As CDO.Message 
 
Set config = New CDO.Configuration 
With config.Fields 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpdufai" 
    .Update 
End With 
 
 
Set email = New CDO.Message 
With email 
    Set .Configuration = config 
    .From = "MailDuGars@serveur.com" 
    .To = "tonmail@yoo.com" 
    .Subject = "Sujet" 
    .Textbody = "Message du mail" 
    .Send 
End With

Mais une recherche sur Google avec Vb + cdo.message te met sur la voie...

[SilkyRoad]

bonjour

pour les notification et les accusés de réception, tu peux ajouter

Code :

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

1
2
3
4
.Fields("urn:schemas:mailheader:disposition-notification-to") = _
"expediteur@monMail.fr"
.Fields("urn:schemas:mailheader:return-receipt-to") = _
"expediteur@monMail.fr"

bon apres midi
michel

[dom62]

Merci pour vos réponses.
Cela fonctionne parfaitement sans accusé de réception (méthode CDO) mais ne fonctionne pas avec accusé
voici le code :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Dim objemail, MySrvExch

Set objemail = CreateObject("CDO.Message")
MySrvExch = Nom du serveur de Messagerie
objemail.From = AdresseMailExpediteur
objemail.To = AddresseMailDestinataire
objemail.CC = CC
objemail.Subject = Subject
objemail.textBody = Body

If FileAttach <> "" Then
    objemail.Attachments.Add FileAttach
End If

objemail.configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/disposition-notification-to") = _
  AdressseMailExpediteur

objemail.configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/mailheader:return-receipt-to") = _
  adresseMailExpediteur

'Meme essai avec les 2 lignes suivantes sans résultat
'objemail.configuration.Fields.Item_
'  ("urn:schemas:mailheader:disposition-notification-to") = AdresseMailExpediteur

'objemail.configuration.Fields.Item _
'  ("urn:schemas:mailheader:return-receipt-to") = AdresseMailExpediteur

objemail.configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objemail.configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MySrvExch

objemail.configuration.Fields.Update
objemail.Send

[SilkyRoad]

bonjour

voici un exemple qui fonctionne chez moi

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
20
21
Sub EnvoiMail_AvecNotification()
    '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 = "destinataire@mail.fr"
        .Subject = "Le titre du message"
        .HTMLBody = "Ceci est un essai ..."
        .Fields("urn:schemas:mailheader:disposition-notification-to") = _
                "emetteur@mail.fr"
        .Fields("urn:schemas:mailheader:return-receipt-to") = _
                "emetteur@mail.fr"
        .Fields.Update
        .Send
    End With
 
End Sub

bon week end
michel

[dom62]

Ca marche.
Merci.