Bonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma feuil
par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer et je
n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
Bonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma feuil
par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer et je
n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
Bonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma feuil
par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer et je
n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
Bonsoir.
L'objet de CDO étant de se passer d'un client messagerie, tu ne pourras
pas avoir tes messages dans un quelconque dossier.
Essaie en ajoutant (et en remplaçant "" par l'adresse de
réception de l'avis) :
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
soit :
Sub CDO_Mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
_
= "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =
1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
.Update
End With
strbody = "Salut" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"
With iMsg
Set .Configuration = iConf
.To = ""
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
DanielBonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma
feuil par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer et
je n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
Bonsoir.
L'objet de CDO étant de se passer d'un client messagerie, tu ne pourras
pas avoir tes messages dans un quelconque dossier.
Essaie en ajoutant (et en remplaçant "emetteur@free.fr" par l'adresse de
réception de l'avis) :
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
"emetteur@free.fr"
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
"emetteur@free.fr"
soit :
Sub CDO_Mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
_
= "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =
1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
"emetteur@free.fr"
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
"emetteur@free.fr"
.Update
End With
strbody = "Salut" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"
With iMsg
Set .Configuration = iConf
.To = "dcolardelle@free.fr"
.CC = ""
.BCC = ""
.From = """Ron"" <ron@something.nl>"
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
Daniel
Bonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma
feuil par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer et
je n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
Bonsoir.
L'objet de CDO étant de se passer d'un client messagerie, tu ne pourras
pas avoir tes messages dans un quelconque dossier.
Essaie en ajoutant (et en remplaçant "" par l'adresse de
réception de l'avis) :
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
soit :
Sub CDO_Mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
_
= "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =
1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
.Update
End With
strbody = "Salut" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"
With iMsg
Set .Configuration = iConf
.To = ""
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
DanielBonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma
feuil par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer et
je n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
merci une fois de plus Daniel
Je ne comprend pas bien
quel devrait etre le resultat?
Rémi
"Daniel.C" a écrit dans le message de news:Bonsoir.
L'objet de CDO étant de se passer d'un client messagerie, tu ne pourras pas
avoir tes messages dans un quelconque dossier.
Essaie en ajoutant (et en remplaçant "" par l'adresse de
réception de l'avis) :
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
soit :
Sub CDO_Mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =
1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
.Update
End With
strbody = "Salut" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"
With iMsg
Set .Configuration = iConf
.To = ""
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
DanielBonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma feuil
par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer et
je n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
merci une fois de plus Daniel
Je ne comprend pas bien
quel devrait etre le resultat?
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eSbvCvndJHA.4900@TK2MSFTNGP06.phx.gbl...
Bonsoir.
L'objet de CDO étant de se passer d'un client messagerie, tu ne pourras pas
avoir tes messages dans un quelconque dossier.
Essaie en ajoutant (et en remplaçant "emetteur@free.fr" par l'adresse de
réception de l'avis) :
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
"emetteur@free.fr"
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
"emetteur@free.fr"
soit :
Sub CDO_Mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =
1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
"emetteur@free.fr"
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
"emetteur@free.fr"
.Update
End With
strbody = "Salut" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"
With iMsg
Set .Configuration = iConf
.To = "dcolardelle@free.fr"
.CC = ""
.BCC = ""
.From = """Ron"" <ron@something.nl>"
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
Daniel
Bonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma feuil
par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer et
je n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
merci une fois de plus Daniel
Je ne comprend pas bien
quel devrait etre le resultat?
Rémi
"Daniel.C" a écrit dans le message de news:Bonsoir.
L'objet de CDO étant de se passer d'un client messagerie, tu ne pourras pas
avoir tes messages dans un quelconque dossier.
Essaie en ajoutant (et en remplaçant "" par l'adresse de
réception de l'avis) :
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
soit :
Sub CDO_Mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =
1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
.Update
End With
strbody = "Salut" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"
With iMsg
Set .Configuration = iConf
.To = ""
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
DanielBonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma feuil
par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer et
je n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
Le résultat (non testé devrait de recevoir un avis de lecture à l'adresse
"" sous condition que le destinataire ait ouvert le
message, qu'il ait accepté l'envoi de l'avis et que son client messagerie
prenne en compte cette option. Ce qui fait beaucoup de conditions...
Danielmerci une fois de plus Daniel
Je ne comprend pas bien
quel devrait etre le resultat?
Rémi
"Daniel.C" a écrit dans le message de news:Bonsoir.
L'objet de CDO étant de se passer d'un client messagerie, tu ne pourras
pas avoir tes messages dans un quelconque dossier.
Essaie en ajoutant (et en remplaçant "" par l'adresse de
réception de l'avis) :
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
soit :
Sub CDO_Mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
.Update
End With
strbody = "Salut" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"
With iMsg
Set .Configuration = iConf
.To = ""
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
DanielBonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma
feuil par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer
et je n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
Le résultat (non testé devrait de recevoir un avis de lecture à l'adresse
"emetteur@free.fr" sous condition que le destinataire ait ouvert le
message, qu'il ait accepté l'envoi de l'avis et que son client messagerie
prenne en compte cette option. Ce qui fait beaucoup de conditions...
Daniel
merci une fois de plus Daniel
Je ne comprend pas bien
quel devrait etre le resultat?
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eSbvCvndJHA.4900@TK2MSFTNGP06.phx.gbl...
Bonsoir.
L'objet de CDO étant de se passer d'un client messagerie, tu ne pourras
pas avoir tes messages dans un quelconque dossier.
Essaie en ajoutant (et en remplaçant "emetteur@free.fr" par l'adresse de
réception de l'avis) :
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
"emetteur@free.fr"
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
"emetteur@free.fr"
soit :
Sub CDO_Mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
"emetteur@free.fr"
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
"emetteur@free.fr"
.Update
End With
strbody = "Salut" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"
With iMsg
Set .Configuration = iConf
.To = "dcolardelle@free.fr"
.CC = ""
.BCC = ""
.From = """Ron"" <ron@something.nl>"
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
Daniel
Bonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma
feuil par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer
et je n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
Le résultat (non testé devrait de recevoir un avis de lecture à l'adresse
"" sous condition que le destinataire ait ouvert le
message, qu'il ait accepté l'envoi de l'avis et que son client messagerie
prenne en compte cette option. Ce qui fait beaucoup de conditions...
Danielmerci une fois de plus Daniel
Je ne comprend pas bien
quel devrait etre le resultat?
Rémi
"Daniel.C" a écrit dans le message de news:Bonsoir.
L'objet de CDO étant de se passer d'un client messagerie, tu ne pourras
pas avoir tes messages dans un quelconque dossier.
Essaie en ajoutant (et en remplaçant "" par l'adresse de
réception de l'avis) :
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
soit :
Sub CDO_Mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
.Update
End With
strbody = "Salut" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"
With iMsg
Set .Configuration = iConf
.To = ""
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
DanielBonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma
feuil par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer
et je n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
ai je bien compris !
je remplace "" par mon adress c'est bien cela !
Si c'est le cas je viens de tester sans resultat
Si il n'y a pas de solution je vais doubler l'envoi et me faire une copie a
moi meme (j'aurai une trace de l'envoi)
Merci Daniel
Rémi
"Daniel.C" a écrit dans le message de news:Le résultat (non testé devrait de recevoir un avis de lecture à l'adresse
"" sous condition que le destinataire ait ouvert le
message, qu'il ait accepté l'envoi de l'avis et que son client messagerie
prenne en compte cette option. Ce qui fait beaucoup de conditions...
Danielmerci une fois de plus Daniel
Je ne comprend pas bien
quel devrait etre le resultat?
Rémi
"Daniel.C" a écrit dans le message de news:Bonsoir.
L'objet de CDO étant de se passer d'un client messagerie, tu ne pourras
pas avoir tes messages dans un quelconque dossier.
Essaie en ajoutant (et en remplaçant "" par l'adresse de
réception de l'avis) :
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
soit :
Sub CDO_Mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
.Update
End With
strbody = "Salut" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"
With iMsg
Set .Configuration = iConf
.To = ""
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
DanielBonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma
feuil par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer
et je n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
ai je bien compris !
je remplace "emetteur@free.fr" par mon adress c'est bien cela !
Si c'est le cas je viens de tester sans resultat
Si il n'y a pas de solution je vais doubler l'envoi et me faire une copie a
moi meme (j'aurai une trace de l'envoi)
Merci Daniel
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
OuTofvodJHA.1184@TK2MSFTNGP05.phx.gbl...
Le résultat (non testé devrait de recevoir un avis de lecture à l'adresse
"emetteur@free.fr" sous condition que le destinataire ait ouvert le
message, qu'il ait accepté l'envoi de l'avis et que son client messagerie
prenne en compte cette option. Ce qui fait beaucoup de conditions...
Daniel
merci une fois de plus Daniel
Je ne comprend pas bien
quel devrait etre le resultat?
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eSbvCvndJHA.4900@TK2MSFTNGP06.phx.gbl...
Bonsoir.
L'objet de CDO étant de se passer d'un client messagerie, tu ne pourras
pas avoir tes messages dans un quelconque dossier.
Essaie en ajoutant (et en remplaçant "emetteur@free.fr" par l'adresse de
réception de l'avis) :
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
"emetteur@free.fr"
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
"emetteur@free.fr"
soit :
Sub CDO_Mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
"emetteur@free.fr"
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
"emetteur@free.fr"
.Update
End With
strbody = "Salut" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"
With iMsg
Set .Configuration = iConf
.To = "dcolardelle@free.fr"
.CC = ""
.BCC = ""
.From = """Ron"" <ron@something.nl>"
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
Daniel
Bonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma
feuil par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer
et je n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
ai je bien compris !
je remplace "" par mon adress c'est bien cela !
Si c'est le cas je viens de tester sans resultat
Si il n'y a pas de solution je vais doubler l'envoi et me faire une copie a
moi meme (j'aurai une trace de l'envoi)
Merci Daniel
Rémi
"Daniel.C" a écrit dans le message de news:Le résultat (non testé devrait de recevoir un avis de lecture à l'adresse
"" sous condition que le destinataire ait ouvert le
message, qu'il ait accepté l'envoi de l'avis et que son client messagerie
prenne en compte cette option. Ce qui fait beaucoup de conditions...
Danielmerci une fois de plus Daniel
Je ne comprend pas bien
quel devrait etre le resultat?
Rémi
"Daniel.C" a écrit dans le message de news:Bonsoir.
L'objet de CDO étant de se passer d'un client messagerie, tu ne pourras
pas avoir tes messages dans un quelconque dossier.
Essaie en ajoutant (et en remplaçant "" par l'adresse de
réception de l'avis) :
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
soit :
Sub CDO_Mail()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
= 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "smtp.wanadoo.fr"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
= 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"username"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"password"
iConf.Fields("urn:schemas:mailheader:disposition-notification-to") = _
""
iConf.Fields("urn:schemas:mailheader:return-receipt-to") = _
""
.Update
End With
strbody = "Salut" & vbNewLine & vbNewLine & _
"Ligne 1" & vbNewLine & _
"Ligne 2" & vbNewLine & _
"Ligne 3" & vbNewLine & _
"Ligne 4"
With iMsg
Set .Configuration = iConf
.To = ""
.CC = ""
.BCC = ""
.From = """Ron"" "
.Subject = "Important message"
.TextBody = strbody
.Send
End With
End Sub
DanielBonjour a tous
Suite a mes precedents messages:
Comment pourrais je faire pour avoir une confirmation d'envoi de ma
feuil par mail
Le mail ainsi envoyé par excel ne s'ajoute pas ds mes messages envoyer
et je n'arrive pas a cocher la case "confirmation de lecture"
Merci
Rémi
Tu peux demander à ton destinataire, une confirmation comme ceci
Si tu utilises le service Microsoft Outlook, je "pense" que tes
courriels sortants sont enregistrés mais pas avec Outlook express.
'---------------------------------------------------------
Sub Message()
Dim TonSmtp As String
Dim Expéditeur As String
Dim Destinataire As String
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim Flds As Variant
'********************************************
'Variable à définir :
TonSmtp = "Smtp........"
Destinataire = "....."
Expéditeur = "........"
'********************************************
Application.ScreenUpdating = False
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
TonSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = Destinataire
.From = Expéditeur
.Subject = "Un test"
.TextBody = "Ok ça marche"
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------
Tu peux demander à ton destinataire, une confirmation comme ceci
Si tu utilises le service Microsoft Outlook, je "pense" que tes
courriels sortants sont enregistrés mais pas avec Outlook express.
'---------------------------------------------------------
Sub Message()
Dim TonSmtp As String
Dim Expéditeur As String
Dim Destinataire As String
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim Flds As Variant
'********************************************
'Variable à définir :
TonSmtp = "Smtp........"
Destinataire = "....."
Expéditeur = "........"
'********************************************
Application.ScreenUpdating = False
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
TonSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = Destinataire
.From = Expéditeur
.Subject = "Un test"
.TextBody = "Ok ça marche"
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------
Tu peux demander à ton destinataire, une confirmation comme ceci
Si tu utilises le service Microsoft Outlook, je "pense" que tes
courriels sortants sont enregistrés mais pas avec Outlook express.
'---------------------------------------------------------
Sub Message()
Dim TonSmtp As String
Dim Expéditeur As String
Dim Destinataire As String
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim Flds As Variant
'********************************************
'Variable à définir :
TonSmtp = "Smtp........"
Destinataire = "....."
Expéditeur = "........"
'********************************************
Application.ScreenUpdating = False
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
TonSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = Destinataire
.From = Expéditeur
.Subject = "Un test"
.TextBody = "Ok ça marche"
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------
Merci a vous 2
Je viens de tester, je n'ai tjrs pas de confirmation de lecture.
Le message est bien envoyé mais rien n'oblige le destinataire a confirmer la
lecture
J'ai un peu de difficulte avec ca:
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
je n'utilise ni outlook ni outlook express
je suis ds le brouillard, ca devient complexe pour ma petite tete
en tout cas c'est sympa de vous occuper de moi, merci
Rémi
"michdenis" a écrit dans le message de news:Tu peux demander à ton destinataire, une confirmation comme ceci
Si tu utilises le service Microsoft Outlook, je "pense" que tes
courriels sortants sont enregistrés mais pas avec Outlook express.
'---------------------------------------------------------
Sub Message()
Dim TonSmtp As String
Dim Expéditeur As String
Dim Destinataire As String
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim Flds As Variant
'********************************************
'Variable à définir :
TonSmtp = "Smtp........"
Destinataire = "....."
Expéditeur = "........"
'********************************************
Application.ScreenUpdating = False
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
TonSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Update
End With
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = Destinataire
.From = Expéditeur
.Subject = "Un test"
.TextBody = "Ok ça marche"
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------
Merci a vous 2
Je viens de tester, je n'ai tjrs pas de confirmation de lecture.
Le message est bien envoyé mais rien n'oblige le destinataire a confirmer la
lecture
J'ai un peu de difficulte avec ca:
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
je n'utilise ni outlook ni outlook express
je suis ds le brouillard, ca devient complexe pour ma petite tete
en tout cas c'est sympa de vous occuper de moi, merci
Rémi
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
B2F79410-3240-43CA-A129-45C15599969E@microsoft.com...
Tu peux demander à ton destinataire, une confirmation comme ceci
Si tu utilises le service Microsoft Outlook, je "pense" que tes
courriels sortants sont enregistrés mais pas avec Outlook express.
'---------------------------------------------------------
Sub Message()
Dim TonSmtp As String
Dim Expéditeur As String
Dim Destinataire As String
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim Flds As Variant
'********************************************
'Variable à définir :
TonSmtp = "Smtp........"
Destinataire = "....."
Expéditeur = "........"
'********************************************
Application.ScreenUpdating = False
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
TonSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Update
End With
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = Destinataire
.From = Expéditeur
.Subject = "Un test"
.TextBody = "Ok ça marche"
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------
Merci a vous 2
Je viens de tester, je n'ai tjrs pas de confirmation de lecture.
Le message est bien envoyé mais rien n'oblige le destinataire a confirmer la
lecture
J'ai un peu de difficulte avec ca:
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
je n'utilise ni outlook ni outlook express
je suis ds le brouillard, ca devient complexe pour ma petite tete
en tout cas c'est sympa de vous occuper de moi, merci
Rémi
"michdenis" a écrit dans le message de news:Tu peux demander à ton destinataire, une confirmation comme ceci
Si tu utilises le service Microsoft Outlook, je "pense" que tes
courriels sortants sont enregistrés mais pas avec Outlook express.
'---------------------------------------------------------
Sub Message()
Dim TonSmtp As String
Dim Expéditeur As String
Dim Destinataire As String
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim Flds As Variant
'********************************************
'Variable à définir :
TonSmtp = "Smtp........"
Destinataire = "....."
Expéditeur = "........"
'********************************************
Application.ScreenUpdating = False
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
TonSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Update
End With
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = Destinataire
.From = Expéditeur
.Subject = "Un test"
.TextBody = "Ok ça marche"
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------
En fait, il est question du client de messagerie du destinataire, CDO est
fait pour ne pas se servir de ton client de messagerie.
DanielMerci a vous 2
Je viens de tester, je n'ai tjrs pas de confirmation de lecture.
Le message est bien envoyé mais rien n'oblige le destinataire a confirmer
la lecture
J'ai un peu de difficulte avec ca:
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
je n'utilise ni outlook ni outlook express
je suis ds le brouillard, ca devient complexe pour ma petite tete
en tout cas c'est sympa de vous occuper de moi, merci
Rémi
"michdenis" a écrit dans le message de news:Tu peux demander à ton destinataire, une confirmation comme ceci
Si tu utilises le service Microsoft Outlook, je "pense" que tes
courriels sortants sont enregistrés mais pas avec Outlook express.
'---------------------------------------------------------
Sub Message()
Dim TonSmtp As String
Dim Expéditeur As String
Dim Destinataire As String
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim Flds As Variant
'********************************************
'Variable à définir :
TonSmtp = "Smtp........"
Destinataire = "....."
Expéditeur = "........"
'********************************************
Application.ScreenUpdating = False
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
TonSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Update
End With
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = Destinataire
.From = Expéditeur
.Subject = "Un test"
.TextBody = "Ok ça marche"
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------
En fait, il est question du client de messagerie du destinataire, CDO est
fait pour ne pas se servir de ton client de messagerie.
Daniel
Merci a vous 2
Je viens de tester, je n'ai tjrs pas de confirmation de lecture.
Le message est bien envoyé mais rien n'oblige le destinataire a confirmer
la lecture
J'ai un peu de difficulte avec ca:
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
je n'utilise ni outlook ni outlook express
je suis ds le brouillard, ca devient complexe pour ma petite tete
en tout cas c'est sympa de vous occuper de moi, merci
Rémi
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
B2F79410-3240-43CA-A129-45C15599969E@microsoft.com...
Tu peux demander à ton destinataire, une confirmation comme ceci
Si tu utilises le service Microsoft Outlook, je "pense" que tes
courriels sortants sont enregistrés mais pas avec Outlook express.
'---------------------------------------------------------
Sub Message()
Dim TonSmtp As String
Dim Expéditeur As String
Dim Destinataire As String
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim Flds As Variant
'********************************************
'Variable à définir :
TonSmtp = "Smtp........"
Destinataire = "....."
Expéditeur = "........"
'********************************************
Application.ScreenUpdating = False
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
TonSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Update
End With
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = Destinataire
.From = Expéditeur
.Subject = "Un test"
.TextBody = "Ok ça marche"
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------
En fait, il est question du client de messagerie du destinataire, CDO est
fait pour ne pas se servir de ton client de messagerie.
DanielMerci a vous 2
Je viens de tester, je n'ai tjrs pas de confirmation de lecture.
Le message est bien envoyé mais rien n'oblige le destinataire a confirmer
la lecture
J'ai un peu de difficulte avec ca:
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
je n'utilise ni outlook ni outlook express
je suis ds le brouillard, ca devient complexe pour ma petite tete
en tout cas c'est sympa de vous occuper de moi, merci
Rémi
"michdenis" a écrit dans le message de news:Tu peux demander à ton destinataire, une confirmation comme ceci
Si tu utilises le service Microsoft Outlook, je "pense" que tes
courriels sortants sont enregistrés mais pas avec Outlook express.
'---------------------------------------------------------
Sub Message()
Dim TonSmtp As String
Dim Expéditeur As String
Dim Destinataire As String
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim Flds As Variant
'********************************************
'Variable à définir :
TonSmtp = "Smtp........"
Destinataire = "....."
Expéditeur = "........"
'********************************************
Application.ScreenUpdating = False
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
TonSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25
.Update
End With
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = Destinataire
.From = Expéditeur
.Subject = "Un test"
.TextBody = "Ok ça marche"
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------
Tu peux demander à ton destinataire, une confirmation comme ceci
Si tu utilises le service Microsoft Outlook, je "pense" que tes
courriels sortants sont enregistrés mais pas avec Outlook express.
'---------------------------------------------------------
Sub Message()
Dim TonSmtp As String
Dim Expéditeur As String
Dim Destinataire As String
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim Flds As Variant
'********************************************
'Variable à définir :
TonSmtp = "Smtp........"
Destinataire = "....."
Expéditeur = "........"
'********************************************
Application.ScreenUpdating = False
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") > TonSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = Destinataire
.From = Expéditeur
.Subject = "Un test"
.TextBody = "Ok ça marche"
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------
Tu peux demander à ton destinataire, une confirmation comme ceci
Si tu utilises le service Microsoft Outlook, je "pense" que tes
courriels sortants sont enregistrés mais pas avec Outlook express.
'---------------------------------------------------------
Sub Message()
Dim TonSmtp As String
Dim Expéditeur As String
Dim Destinataire As String
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim Flds As Variant
'********************************************
'Variable à définir :
TonSmtp = "Smtp........"
Destinataire = "....."
Expéditeur = "........"
'********************************************
Application.ScreenUpdating = False
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") > TonSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = Destinataire
.From = Expéditeur
.Subject = "Un test"
.TextBody = "Ok ça marche"
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------
Tu peux demander à ton destinataire, une confirmation comme ceci
Si tu utilises le service Microsoft Outlook, je "pense" que tes
courriels sortants sont enregistrés mais pas avec Outlook express.
'---------------------------------------------------------
Sub Message()
Dim TonSmtp As String
Dim Expéditeur As String
Dim Destinataire As String
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
'Dim Flds As Variant
'********************************************
'Variable à définir :
TonSmtp = "Smtp........"
Destinataire = "....."
Expéditeur = "........"
'********************************************
Application.ScreenUpdating = False
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") > TonSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
.Update
End With
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = Destinataire
.From = Expéditeur
.Subject = "Un test"
.TextBody = "Ok ça marche"
' Set importance high, will work if the receiver have Outlook
.fields("urn:schemas:httpmail:importance") = 2
' Set Priority high, will work if the receiver have Outlook Express
.fields("urn:schemas:mailheader:X-Priority") = 1
'If you want to add a request read receipt then you can use this.
'Note: this is only working if the receiver have Outlook Express.
' Request read receipt if the receiver have Outlook Express
.fields("urn:schemas:mailheader:return-receipt-to") = Expéditeur
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------