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
'---------------------------------------------------------
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" <nospam-sarl-du-calvaire@wanadoo.fr> a écrit dans le message de
groupe de
discussion : #ZcJEepdJHA.3856@TK2MSFTNGP06.phx.gbl...
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
'---------------------------------------------------------
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
'---------------------------------------------------------
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
'---------------------------------------------------------
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" <nospam-sarl-du-calvaire@wanadoo.fr> a écrit dans le message de
groupe de
discussion : #ZcJEepdJHA.3856@TK2MSFTNGP06.phx.gbl...
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
'---------------------------------------------------------
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
'---------------------------------------------------------
L'exemple que je te proposais, te retournais si le destinataire
le voulais bien, un accusé de réception... c'est toi qui aurait
du recevoir cet accusé de réception et non un quelconque
destinataire à moins d'avoir indiqué son adresse
là :
.fields("urn:schemas:mailheader:return-receipt-to") = son _Adresse
Tant mieux si tu as trouvé une procédure qui réponde à tes besoins.
L'exemple que je te proposais, te retournais si le destinataire
le voulais bien, un accusé de réception... c'est toi qui aurait
du recevoir cet accusé de réception et non un quelconque
destinataire à moins d'avoir indiqué son adresse
là :
.fields("urn:schemas:mailheader:return-receipt-to") = son _Adresse
Tant mieux si tu as trouvé une procédure qui réponde à tes besoins.
L'exemple que je te proposais, te retournais si le destinataire
le voulais bien, un accusé de réception... c'est toi qui aurait
du recevoir cet accusé de réception et non un quelconque
destinataire à moins d'avoir indiqué son adresse
là :
.fields("urn:schemas:mailheader:return-receipt-to") = son _Adresse
Tant mieux si tu as trouvé une procédure qui réponde à tes besoins.