Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel envoi mail et confirm lecture

envoi mail et confirm lecture

8 réponses
Avatar
André Riberi
Bonjour,
J'utilise un fichier Excel pour envoyer des mails (fichier an_mail chez
excelabo, avec un userform).
Cela marche bien; voici un extrait du code:

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = top
.CC = ""
.BCC = ""
.From = TextBox1.Value
.Subject = TextBox4.Value
.TextBody = TextBox3.Value
For i = 1 To (ListBox1.ListCount)
.AddAttachment (ListBox1.List(i - 1, 0))
Next
.send
End With

Pour avoir une confirmation de lecture, j'ai ajouté avant .send:
.OriginatorDeliveryReportRequested = True
sans succès; le message d'erreur est:
"propriété ou méthode non géré par cet objet"

Merci de votre aide
André
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Et si tu veux explorer toutes les manières d'envoyer des E-Mails y compris cdo

voir à cette adresse : (d'un MVP excel -> anglais)
http://www.rondebruin.nl/sendmail.htm





"André Riberi" a écrit dans le message de news:
45290cac$0$32500$
Bonjour,
J'utilise un fichier Excel pour envoyer des mails (fichier an_mail chez
excelabo, avec un userform).
Cela marche bien; voici un extrait du code:

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = top
.CC = ""
.BCC = ""
.From = TextBox1.Value
.Subject = TextBox4.Value
.TextBody = TextBox3.Value
For i = 1 To (ListBox1.ListCount)
.AddAttachment (ListBox1.List(i - 1, 0))
Next
.send
End With

Pour avoir une confirmation de lecture, j'ai ajouté avant .send:
.OriginatorDeliveryReportRequested = True
sans succès; le message d'erreur est:
"propriété ou méthode non géré par cet objet"

Merci de votre aide
André
Avatar
André Riberi
Merci,
j'utilise cdo parce que je ne connais pas autre chose, et que cela
fonctionne bien...
Je vais visiter le lien que tu proposes
A +

"MichDenis" a écrit dans le message de news:

Et si tu veux explorer toutes les manières d'envoyer des E-Mails y compris
cdo


voir à cette adresse : (d'un MVP excel -> anglais)
http://www.rondebruin.nl/sendmail.htm





"André Riberi" a écrit dans le message de news:
45290cac$0$32500$
Bonjour,
J'utilise un fichier Excel pour envoyer des mails (fichier an_mail chez
excelabo, avec un userform).
Cela marche bien; voici un extrait du code:

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = top
.CC = ""
.BCC = ""
.From = TextBox1.Value
.Subject = TextBox4.Value
.TextBody = TextBox3.Value
For i = 1 To (ListBox1.ListCount)
.AddAttachment (ListBox1.List(i - 1, 0))
Next
.send
End With

Pour avoir une confirmation de lecture, j'ai ajouté avant .send:
.OriginatorDeliveryReportRequested = True
sans succès; le message d'erreur est:
"propriété ou méthode non géré par cet objet"

Merci de votre aide
André





Avatar
Ron de Bruin
Hi (sorry no French)

Try this from the Tips part of the site
http://www.rondebruin.nl/cdo.htm#Tips

Set importance/priority and request read receipt

For importance/priority and read receipt you can add this in the With iMsg part of the macro before .Send

' Set importance or Priority to high
.Fields("urn:schemas:httpmail:importance") = 2
.Fields("urn:schemas:mailheader:X-Priority") = 1

' Request read receipt
.Fields("urn:schemas:mailheader:return-receipt-to") = ""
.Fields("urn:schemas:mailheader:disposition-notification-to") = ""

' Update fields
.Fields.Update




--
Regards Ron de Bruin
http://www.rondebruin.nl



"André Riberi" wrote in message news:45290cac$0$32500$
Bonjour,
J'utilise un fichier Excel pour envoyer des mails (fichier an_mail chez
excelabo, avec un userform).
Cela marche bien; voici un extrait du code:

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = top
.CC = ""
.BCC = ""
.From = TextBox1.Value
.Subject = TextBox4.Value
.TextBody = TextBox3.Value
For i = 1 To (ListBox1.ListCount)
.AddAttachment (ListBox1.List(i - 1, 0))
Next
.send
End With

Pour avoir une confirmation de lecture, j'ai ajouté avant .send:
.OriginatorDeliveryReportRequested = True
sans succès; le message d'erreur est:
"propriété ou méthode non géré par cet objet"

Merci de votre aide
André




Avatar
André free
Hello, (I'm french and i speak basic english !)
I've seen the tips on your site and i have modified the code like this:

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = top
.CC = ""
.BCC = ""
.From = TextBox1.Value
.Subject = TextBox4.Value
.TextBody = TextBox3.Value
.AddAttachment (ListBox1.List(i - 1, 0))
.Fields("urn:schemas:mailheader:return-receipt-to") =
.Fields("urn:schemas:mailheader:disposition-notification-to")
.send
End With

No errors, the mail is sended and received, but no receipt or
notification...

"Ron de Bruin" a écrit dans le message de
news:
Hi (sorry no French)

Try this from the Tips part of the site
http://www.rondebruin.nl/cdo.htm#Tips

Set importance/priority and request read receipt

For importance/priority and read receipt you can add this in the With iMsg
part of the macro before .Send


' Set importance or Priority to high
.Fields("urn:schemas:httpmail:importance") = 2
.Fields("urn:schemas:mailheader:X-Priority") = 1

' Request read receipt
.Fields("urn:schemas:mailheader:return-receipt-to") ""
.Fields("urn:schemas:mailheader:disposition-notification-to") ""

' Update fields
.Fields.Update




--
Regards Ron de Bruin
http://www.rondebruin.nl





Avatar
Ron de Bruin
Hi

You forgot

' Update fields
.Fields.Update


--
Regards Ron de Bruin
http://www.rondebruin.nl



"André free" wrote in message news:45294840$0$9367$
Hello, (I'm french and i speak basic english !)
I've seen the tips on your site and i have modified the code like this:

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = top
.CC = ""
.BCC = ""
.From = TextBox1.Value
.Subject = TextBox4.Value
.TextBody = TextBox3.Value
.AddAttachment (ListBox1.List(i - 1, 0))
.Fields("urn:schemas:mailheader:return-receipt-to") =
.Fields("urn:schemas:mailheader:disposition-notification-to") >
.send
End With

No errors, the mail is sended and received, but no receipt or
notification...

"Ron de Bruin" a écrit dans le message de
news:
Hi (sorry no French)

Try this from the Tips part of the site
http://www.rondebruin.nl/cdo.htm#Tips

Set importance/priority and request read receipt

For importance/priority and read receipt you can add this in the With iMsg
part of the macro before .Send


' Set importance or Priority to high
.Fields("urn:schemas:httpmail:importance") = 2
.Fields("urn:schemas:mailheader:X-Priority") = 1

' Request read receipt
.Fields("urn:schemas:mailheader:return-receipt-to") > ""
.Fields("urn:schemas:mailheader:disposition-notification-to") > ""

' Update fields
.Fields.Update




--
Regards Ron de Bruin
http://www.rondebruin.nl









Avatar
jps
même en anglais, faut lire jusqu'au bout, andré....
ça va que Ron il est gentil et qu'il a l'oeil...
jps

"Ron de Bruin" a écrit dans le message de news:

Hi

You forgot

' Update fields
.Fields.Update


--
Regards Ron de Bruin
http://www.rondebruin.nl



"André free" wrote in message
news:45294840$0$9367$
Hello, (I'm french and i speak basic english !)
I've seen the tips on your site and i have modified the code like this:

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = top
.CC = ""
.BCC = ""
.From = TextBox1.Value
.Subject = TextBox4.Value
.TextBody = TextBox3.Value
.AddAttachment (ListBox1.List(i - 1, 0))
.Fields("urn:schemas:mailheader:return-receipt-to") =
.Fields("urn:schemas:mailheader:disposition-notification-to") >>
.send
End With

No errors, the mail is sended and received, but no receipt or
notification...

"Ron de Bruin" a écrit dans le message de
news:
Hi (sorry no French)

Try this from the Tips part of the site
http://www.rondebruin.nl/cdo.htm#Tips

Set importance/priority and request read receipt

For importance/priority and read receipt you can add this in the With
iMsg
part of the macro before .Send


' Set importance or Priority to high
.Fields("urn:schemas:httpmail:importance") = 2
.Fields("urn:schemas:mailheader:X-Priority") = 1

' Request read receipt
.Fields("urn:schemas:mailheader:return-receipt-to") >> ""
.Fields("urn:schemas:mailheader:disposition-notification-to") >> ""

' Update fields
.Fields.Update




--
Regards Ron de Bruin
http://www.rondebruin.nl













Avatar
André free
Ok, c'est bon !

J'avais bien lu jusqu'au bout, mais dans la réponse de Ron, je pensais que
les 3 paragraphes étaient indépendants, et que je n'étais concerné que par
la notification de lecture ou l'accusé de réception, donc je n'ai pas
compris le sens de "Update fields"...
J'ai encore quelques progrès à faire
Merci encore ! cela marche !

"jps" a écrit dans le message de
news:
même en anglais, faut lire jusqu'au bout, andré....
ça va que Ron il est gentil et qu'il a l'oeil...
jps

"Ron de Bruin" a écrit dans le message de news:

Hi

You forgot

' Update fields
.Fields.Update


--
Regards Ron de Bruin
http://www.rondebruin.nl



"André free" wrote in message
news:45294840$0$9367$
Hello, (I'm french and i speak basic english !)
I've seen the tips on your site and i have modified the code like this:

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = top
.CC = ""
.BCC = ""
.From = TextBox1.Value
.Subject = TextBox4.Value
.TextBody = TextBox3.Value
.AddAttachment (ListBox1.List(i - 1, 0))
.Fields("urn:schemas:mailheader:return-receipt-to") =
.Fields("urn:schemas:mailheader:disposition-notification-to") > >>
.send
End With

No errors, the mail is sended and received, but no receipt or
notification...

"Ron de Bruin" a écrit dans le message de
news:
Hi (sorry no French)

Try this from the Tips part of the site
http://www.rondebruin.nl/cdo.htm#Tips

Set importance/priority and request read receipt

For importance/priority and read receipt you can add this in the With
iMsg
part of the macro before .Send


' Set importance or Priority to high
.Fields("urn:schemas:httpmail:importance") = 2
.Fields("urn:schemas:mailheader:X-Priority") = 1

' Request read receipt
.Fields("urn:schemas:mailheader:return-receipt-to") > >> ""
.Fields("urn:schemas:mailheader:disposition-notification-to")
""


' Update fields
.Fields.Update




--
Regards Ron de Bruin
http://www.rondebruin.nl

















Avatar
jps
alleluia!!!!
jps

"André free" a écrit dans le message de news:
4529554b$0$19544$
Ok, c'est bon !

J'avais bien lu jusqu'au bout, mais dans la réponse de Ron, je pensais que
les 3 paragraphes étaient indépendants, et que je n'étais concerné que par
la notification de lecture ou l'accusé de réception, donc je n'ai pas
compris le sens de "Update fields"...
J'ai encore quelques progrès à faire
Merci encore ! cela marche !

"jps" a écrit dans le message de
news:
même en anglais, faut lire jusqu'au bout, andré....
ça va que Ron il est gentil et qu'il a l'oeil...
jps

"Ron de Bruin" a écrit dans le message de news:

Hi

You forgot

' Update fields
.Fields.Update


--
Regards Ron de Bruin
http://www.rondebruin.nl



"André free" wrote in message
news:45294840$0$9367$
Hello, (I'm french and i speak basic english !)
I've seen the tips on your site and i have modified the code like
this:

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = top
.CC = ""
.BCC = ""
.From = TextBox1.Value
.Subject = TextBox4.Value
.TextBody = TextBox3.Value
.AddAttachment (ListBox1.List(i - 1, 0))
.Fields("urn:schemas:mailheader:return-receipt-to") =
.Fields("urn:schemas:mailheader:disposition-notification-to") >> >>
.send
End With

No errors, the mail is sended and received, but no receipt or
notification...

"Ron de Bruin" a écrit dans le message de
news:
Hi (sorry no French)

Try this from the Tips part of the site
http://www.rondebruin.nl/cdo.htm#Tips

Set importance/priority and request read receipt

For importance/priority and read receipt you can add this in the With
iMsg
part of the macro before .Send


' Set importance or Priority to high
.Fields("urn:schemas:httpmail:importance") = 2
.Fields("urn:schemas:mailheader:X-Priority") = 1

' Request read receipt
.Fields("urn:schemas:mailheader:return-receipt-to") >> >> ""
.Fields("urn:schemas:mailheader:disposition-notification-to")
""

' Update fields
.Fields.Update




--
Regards Ron de Bruin
http://www.rondebruin.nl