Bis mail

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #18387601
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


IMER09
Le #18388611
merci une fois de plus Daniel

Je ne comprend pas bien
quel devrait etre le resultat?

Rémi

"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






Daniel.C
Le #18388601
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"
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








michdenis
Le #18388951
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
'---------------------------------------------------------
IMER09
Le #18388941
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"
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"
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












Daniel.C
Le #18388931
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"
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"
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














IMER09
Le #18389401
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"
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
'---------------------------------------------------------













Daniel.C
Le #18389391
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"
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
'---------------------------------------------------------















IMER09
Le #18389491
ok merci, donc ca devrait coller

Rémi

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



















michdenis
Le #18389561
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" 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"
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
'---------------------------------------------------------













Publicité
Poster une réponse
Anonyme