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

Bis mail

13 réponses
Avatar
IMER09
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
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Daniel.C
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

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


Avatar
IMER09
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

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






Avatar
Daniel.C
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...
Daniel

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

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








Avatar
michdenis
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
'---------------------------------------------------------
Avatar
IMER09
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...
Daniel

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

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












Avatar
Daniel.C
Pour l'avis de lecture, oui. Essaie le code de michdenis.
Daniel

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...
Daniel

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

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














Avatar
IMER09
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
'---------------------------------------------------------













Avatar
Daniel.C
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" 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
'---------------------------------------------------------















Avatar
IMER09
ok merci, donc ca devrait coller

Rémi

"Daniel.C" a écrit dans le message de news:

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" 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
'---------------------------------------------------------



















Avatar
michdenis
Même si tu n'utilises pas Outlook Express ou Microsoft Express,
tu dois définir le SMTP .... dans la configuration internet pour
te servir de la procédure !

Tu peux utiliser un fichier texte pour enregistrer tous les envois
que tu fais. comme ceci :
J'ai ajouté quelques lignes de code à cet effet à la fin de la
présente procédure.

'---------------------------------------------------------
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

'écrire l'envoi de ton courriel dans un fichier texte
Texte = Now & ";"
Texte = Texte & Expéditeur & ";"
Texte = Texte & Destinataire & ";"
Texte = Texte & iMsg.Subject

Num = FreeFile
'À définir le chemin et le nom du fichier...
Fichier = "C:UsersPowerUsertest.csv"

Open Fichier For Append As #Num
Print #Num, Texte
Close #Num

Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------------------------



"IMER09" a écrit dans le message de groupe de
discussion : #
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
'---------------------------------------------------------













1 2