CDO + Accusé de réception

C'est bon, j'ai trouvé :-)))
A cette adresse communiquée par michdenis il y a quelque temps.

http://www.rondebruin.nl/cdo.htm#Tips

super site pour les applis mail !!!

Bonjour tout le monde,

Petite question concernant l'envoi de mail via CDO; je voudrais demander
un accusé de réception, j'ai vu que c'était possible sur un doc
Microsoft, mais impossible de trouver le nom de cette methode...
Si quelqu'un connait la réponse, qu'il le dise !!

Merci d'avance

--
@+ thierryp

Parlé trop vite.....Est donné pour ne fonctionner qu'avec Outlook
Express...Moi j'utilise Thunderbird :-((((((((
J'ai fait le test avec OE, pas d'accusé....

Donc je me permets (si je ne m'attire pas les foudres des gardiens de la
morale...) de réitérer ma question.

Encore merci

C'est bon, j'ai trouvé :-)))
A cette adresse communiquée par michdenis il y a quelque temps.

http://www.rondebruin.nl/cdo.htm#Tips

super site pour les applis mail !!!

Bonjour tout le monde,

Petite question concernant l'envoi de mail via CDO; je voudrais
demander un accusé de réception, j'ai vu que c'était possible sur un
doc Microsoft, mais impossible de trouver le nom de cette methode...
Si quelqu'un connait la réponse, qu'il le dise !!

Merci d'avance

--
@+ thierryp

Parlé trop vite.....Est donné pour ne fonctionner qu'avec Outlook
Express...Moi j'utilise Thunderbird :-((((((((
J'ai fait le test avec OE, pas d'accusé....

Suffit que le destinataire refuse l'envoi de l'accusé-réception pour qu'il
n'y ait pas d'accusé-réception. Et comme refuser d'envoyer
l'accusé-réception évite de confirmer une adresse de courrier quand on
reçoit du spam, beaucoup de gens paramètrent OE ou Outlook pour ne jamais
envoyer d'accusé-réception.

D'abord merci de me répondre !

Ce que tu dis est tout à fait vrai...mais j'ai essayé en reparamétrant
OE pour accepter d'envoyer une confirmation, mais rien à faire :-(((
Et mes connaissances en API, ADO, CDO etc... (voire tout autre acronyme
barbare) sont plus que limitées... En fait (et ce n'est pas pour du spam
!!) j'aurais juste voulu être sûr que mon mail généré automatiquement
(merci michdenis !) était au moins bien arrivé sur le serveur du
destinataire. Qu'il lise le mail est une autre histoire :-))

Donc si une piste se présente, je suis preneur !!

@+ thierryp

Parlé trop vite.....Est donné pour ne fonctionner qu'avec Outlook
Express...Moi j'utilise Thunderbird :-((((((((
J'ai fait le test avec OE, pas d'accusé....

Suffit que le destinataire refuse l'envoi de l'accusé-réception pour qu'il
n'y ait pas d'accusé-réception. Et comme refuser d'envoyer
l'accusé-réception évite de confirmer une adresse de courrier quand on
reçoit du spam, beaucoup de gens paramètrent OE ou Outlook pour ne jamais
envoyer d'accusé-réception.

Bonjour ThierryP,

Ceci fonctionne très bien avec Outlook Express, Tiré du site de Ron de Bruins.


La Seule chose à modifier à la procédure, tu dois renseigner le SMTP utilisé par ton fournisseur internet
SMTP = SMALL MAIL TRANFERT PROTOCOL

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Smtp"

Dans la configuration de Outlook Express.
barre des menus / outils / compte / ton service de messagerie / propriété / onglet serveur

Si tu désires, tu peux inhiber les 2 autres options :
- Importance du message ...
- Priorité du message ... dans le code...

'----------------------------------------------
Sub Message()
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
' Dim Flds As Variant

Application.ScreenUpdating = False

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"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = "Client@Fournisseur"
.From = "Moi@MonFournisseurInternet"
.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") = "Client@Fournisseur"
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'-------------------------------------


Salutations"





"ThierryP" <petithory.thierry_NoSpam@club-nospam-internet.fr> a écrit dans le message de news:
eLGJiO49FHA.3608@TK2MSFTNGP09.phx.gbl...
D'abord merci de me répondre !

Ce que tu dis est tout à fait vrai...mais j'ai essayé en reparamétrant
OE pour accepter d'envoyer une confirmation, mais rien à faire :-(((
Et mes connaissances en API, ADO, CDO etc... (voire tout autre acronyme
barbare) sont plus que limitées... En fait (et ce n'est pas pour du spam
!!) j'aurais juste voulu être sûr que mon mail généré automatiquement
(merci michdenis !) était au moins bien arrivé sur le serveur du
destinataire. Qu'il lise le mail est une autre histoire :-))

Donc si une piste se présente, je suis preneur !!

@+ thierryp

Parlé trop vite.....Est donné pour ne fonctionner qu'avec Outlook
Express...Moi j'utilise Thunderbird :-((((((((
J'ai fait le test avec OE, pas d'accusé....

Suffit que le destinataire refuse l'envoi de l'accusé-réception pour qu'il
n'y ait pas d'accusé-réception. Et comme refuser d'envoyer
l'accusé-réception évite de confirmer une adresse de courrier quand on
reçoit du spam, beaucoup de gens paramètrent OE ou Outlook pour ne jamais
envoyer d'accusé-réception.

Ce type est pas croyable ...! 6h15, c'est l'heure de quel pays ??? Moi,
je dors de temps en temps :-))))

J'ai fait comme toi, j'ai tiré mon code (gràce au lien que tu m'avais
fourni!) du site de Ron de Bruins; j'ai fait un essai avec OE6, toujours
sur mon PC mais que je n'utilise plus, et pas de demande d'AR. Promis,
je vais creuser un peu plus le sujet !

Merci d'avoir répondu !
@+ thierryp

Bonjour ThierryP,

Ceci fonctionne très bien avec Outlook Express, Tiré du site de Ron de Bruins.


La Seule chose à modifier à la procédure, tu dois renseigner le SMTP utilisé par ton fournisseur internet
SMTP = SMALL MAIL TRANFERT PROTOCOL

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Smtp"

Dans la configuration de Outlook Express.
barre des menus / outils / compte / ton service de messagerie / propriété / onglet serveur

Si tu désires, tu peux inhiber les 2 autres options :
- Importance du message ...
- Priorité du message ... dans le code...

'----------------------------------------------
Sub Message()
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
' Dim Flds As Variant

Application.ScreenUpdating = False

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"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = "Client@Fournisseur"
.From = "Moi@MonFournisseurInternet"
.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") = "Client@Fournisseur"
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'-------------------------------------


Salutations"





"ThierryP" <petithory.thierry_NoSpam@club-nospam-internet.fr> a écrit dans le message de news:
eLGJiO49FHA.3608@TK2MSFTNGP09.phx.gbl...
D'abord merci de me répondre !

Ce que tu dis est tout à fait vrai...mais j'ai essayé en reparamétrant
OE pour accepter d'envoyer une confirmation, mais rien à faire :-(((
Et mes connaissances en API, ADO, CDO etc... (voire tout autre acronyme
barbare) sont plus que limitées... En fait (et ce n'est pas pour du spam
!!) j'aurais juste voulu être sûr que mon mail généré automatiquement
(merci michdenis !) était au moins bien arrivé sur le serveur du
destinataire. Qu'il lise le mail est une autre histoire :-))

Donc si une piste se présente, je suis preneur !!

@+ thierryp

Parlé trop vite.....Est donné pour ne fonctionner qu'avec Outlook
Express...Moi j'utilise Thunderbird :-((((((((
J'ai fait le test avec OE, pas d'accusé....

Suffit que le destinataire refuse l'envoi de l'accusé-réception pour qu'il
n'y ait pas d'accusé-réception. Et comme refuser d'envoyer
l'accusé-réception évite de confirmer une adresse de courrier quand on
reçoit du spam, beaucoup de gens paramètrent OE ou Outlook pour ne jamais
envoyer d'accusé-réception.

Écoute, je t'ai mis la procédure en clair à utiliser dans mon message précédent, il ne reste plus qu'à indiquer ton SMTP et modifier
les adresses de courriel - destinataire et la tienne !



Salutations!



"ThierryP" <petithory.thierry_NoSpam@club-nospam-internet.fr> a écrit dans le message de news:
%23nTFfLB%23FHA.2176@TK2MSFTNGP14.phx.gbl...
Ce type est pas croyable ...! 6h15, c'est l'heure de quel pays ??? Moi,
je dors de temps en temps :-))))

J'ai fait comme toi, j'ai tiré mon code (gràce au lien que tu m'avais
fourni!) du site de Ron de Bruins; j'ai fait un essai avec OE6, toujours
sur mon PC mais que je n'utilise plus, et pas de demande d'AR. Promis,
je vais creuser un peu plus le sujet !

Merci d'avoir répondu !
@+ thierryp

Bonjour ThierryP,

Ceci fonctionne très bien avec Outlook Express, Tiré du site de Ron de Bruins.


La Seule chose à modifier à la procédure, tu dois renseigner le SMTP utilisé par ton fournisseur internet
SMTP = SMALL MAIL TRANFERT PROTOCOL

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Smtp"

Dans la configuration de Outlook Express.
barre des menus / outils / compte / ton service de messagerie / propriété / onglet serveur

Si tu désires, tu peux inhiber les 2 autres options :
- Importance du message ...
- Priorité du message ... dans le code...

'----------------------------------------------
Sub Message()
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
' Dim Flds As Variant

Application.ScreenUpdating = False

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"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = "Client@Fournisseur"
.From = "Moi@MonFournisseurInternet"
.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") = "Client@Fournisseur"
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'-------------------------------------


Salutations"





"ThierryP" <petithory.thierry_NoSpam@club-nospam-internet.fr> a écrit dans le message de news:
eLGJiO49FHA.3608@TK2MSFTNGP09.phx.gbl...
D'abord merci de me répondre !

Ce que tu dis est tout à fait vrai...mais j'ai essayé en reparamétrant
OE pour accepter d'envoyer une confirmation, mais rien à faire :-(((
Et mes connaissances en API, ADO, CDO etc... (voire tout autre acronyme
barbare) sont plus que limitées... En fait (et ce n'est pas pour du spam
!!) j'aurais juste voulu être sûr que mon mail généré automatiquement
(merci michdenis !) était au moins bien arrivé sur le serveur du
destinataire. Qu'il lise le mail est une autre histoire :-))

Donc si une piste se présente, je suis preneur !!

@+ thierryp

Parlé trop vite.....Est donné pour ne fonctionner qu'avec Outlook
Express...Moi j'utilise Thunderbird :-((((((((
J'ai fait le test avec OE, pas d'accusé....

Suffit que le destinataire refuse l'envoi de l'accusé-réception pour qu'il
n'y ait pas d'accusé-réception. Et comme refuser d'envoyer
l'accusé-réception évite de confirmer une adresse de courrier quand on
reçoit du spam, beaucoup de gens paramètrent OE ou Outlook pour ne jamais
envoyer d'accusé-réception.

Je te remercie encore une fois, mais j'ai l'impression qu'il y a une
différence entre W2K et XP...Ta procédure fonctionne nickel, sauf pour
cet $*%££** accusé de réception....Comme le week-end s'annonce pluvieux,
j'aurais le temps de chercher. !!!

@+ thierryp

Écoute, je t'ai mis la procédure en clair à utiliser dans mon message précédent, il ne reste plus qu'à indiquer ton SMTP et modifier
les adresses de courriel - destinataire et la tienne !



Salutations!



"ThierryP" <petithory.thierry_NoSpam@club-nospam-internet.fr> a écrit dans le message de news:
%23nTFfLB%23FHA.2176@TK2MSFTNGP14.phx.gbl...
Ce type est pas croyable ...! 6h15, c'est l'heure de quel pays ??? Moi,
je dors de temps en temps :-))))

J'ai fait comme toi, j'ai tiré mon code (gràce au lien que tu m'avais
fourni!) du site de Ron de Bruins; j'ai fait un essai avec OE6, toujours
sur mon PC mais que je n'utilise plus, et pas de demande d'AR. Promis,
je vais creuser un peu plus le sujet !

Merci d'avoir répondu !
@+ thierryp

Bonjour ThierryP,

Ceci fonctionne très bien avec Outlook Express, Tiré du site de Ron de Bruins.


La Seule chose à modifier à la procédure, tu dois renseigner le SMTP utilisé par ton fournisseur internet
SMTP = SMALL MAIL TRANFERT PROTOCOL

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Smtp"

Dans la configuration de Outlook Express.
barre des menus / outils / compte / ton service de messagerie / propriété / onglet serveur

Si tu désires, tu peux inhiber les 2 autres options :
- Importance du message ...
- Priorité du message ... dans le code...

'----------------------------------------------
Sub Message()
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
' Dim Flds As Variant

Application.ScreenUpdating = False

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"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = "Client@Fournisseur"
.From = "Moi@MonFournisseurInternet"
.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") = "Client@Fournisseur"
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'-------------------------------------


Salutations"





"ThierryP" <petithory.thierry_NoSpam@club-nospam-internet.fr> a écrit dans le message de news:
eLGJiO49FHA.3608@TK2MSFTNGP09.phx.gbl...
D'abord merci de me répondre !

Ce que tu dis est tout à fait vrai...mais j'ai essayé en reparamétrant
OE pour accepter d'envoyer une confirmation, mais rien à faire :-(((
Et mes connaissances en API, ADO, CDO etc... (voire tout autre acronyme
barbare) sont plus que limitées... En fait (et ce n'est pas pour du spam
!!) j'aurais juste voulu être sûr que mon mail généré automatiquement
(merci michdenis !) était au moins bien arrivé sur le serveur du
destinataire. Qu'il lise le mail est une autre histoire :-))

Donc si une piste se présente, je suis preneur !!

@+ thierryp

Parlé trop vite.....Est donné pour ne fonctionner qu'avec Outlook
Express...Moi j'utilise Thunderbird :-((((((((
J'ai fait le test avec OE, pas d'accusé....

Suffit que le destinataire refuse l'envoi de l'accusé-réception pour qu'il
n'y ait pas d'accusé-réception. Et comme refuser d'envoyer
l'accusé-réception évite de confirmer une adresse de courrier quand on
reçoit du spam, beaucoup de gens paramètrent OE ou Outlook pour ne jamais
envoyer d'accusé-réception.

Bonjour Thierry,

Le test effectué consistait à envoyer un courriel à mon adresse personnel à partir de mon adresse hotmail.

Le seul élément de configuration de Outlook expresse requis :

Pour que la requête de réception te demande de confirmer la réception du message,
tu dois dans Outlook Express / barre de menu / outils /
Onglet : confirmations de lecture /
item : Renvoi de confirmation de lecture : être averti à chaque confirmation de lecture


Salutations!



"ThierryP" <petithory.thierry_NoSpam@club-nospam-internet.fr> a écrit dans le message de news:
uCRjlzB%23FHA.3692@tk2msftngp13.phx.gbl...
Je te remercie encore une fois, mais j'ai l'impression qu'il y a une
différence entre W2K et XP...Ta procédure fonctionne nickel, sauf pour
cet $*%££** accusé de réception....Comme le week-end s'annonce pluvieux,
j'aurais le temps de chercher. !!!

@+ thierryp

Écoute, je t'ai mis la procédure en clair à utiliser dans mon message précédent, il ne reste plus qu'à indiquer ton SMTP et
modifier
les adresses de courriel - destinataire et la tienne !



Salutations!



"ThierryP" <petithory.thierry_NoSpam@club-nospam-internet.fr> a écrit dans le message de news:
%23nTFfLB%23FHA.2176@TK2MSFTNGP14.phx.gbl...
Ce type est pas croyable ...! 6h15, c'est l'heure de quel pays ??? Moi,
je dors de temps en temps :-))))

J'ai fait comme toi, j'ai tiré mon code (gràce au lien que tu m'avais
fourni!) du site de Ron de Bruins; j'ai fait un essai avec OE6, toujours
sur mon PC mais que je n'utilise plus, et pas de demande d'AR. Promis,
je vais creuser un peu plus le sujet !

Merci d'avoir répondu !
@+ thierryp

Bonjour ThierryP,

Ceci fonctionne très bien avec Outlook Express, Tiré du site de Ron de Bruins.


La Seule chose à modifier à la procédure, tu dois renseigner le SMTP utilisé par ton fournisseur internet
SMTP = SMALL MAIL TRANFERT PROTOCOL

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Smtp"

Dans la configuration de Outlook Express.
barre des menus / outils / compte / ton service de messagerie / propriété / onglet serveur

Si tu désires, tu peux inhiber les 2 autres options :
- Importance du message ...
- Priorité du message ... dans le code...

'----------------------------------------------
Sub Message()
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
' Dim Flds As Variant

Application.ScreenUpdating = False

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"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = "Client@Fournisseur"
.From = "Moi@MonFournisseurInternet"
.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") = "Client@Fournisseur"
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'-------------------------------------


Salutations"





"ThierryP" <petithory.thierry_NoSpam@club-nospam-internet.fr> a écrit dans le message de news:
eLGJiO49FHA.3608@TK2MSFTNGP09.phx.gbl...
D'abord merci de me répondre !

Ce que tu dis est tout à fait vrai...mais j'ai essayé en reparamétrant
OE pour accepter d'envoyer une confirmation, mais rien à faire :-(((
Et mes connaissances en API, ADO, CDO etc... (voire tout autre acronyme
barbare) sont plus que limitées... En fait (et ce n'est pas pour du spam
!!) j'aurais juste voulu être sûr que mon mail généré automatiquement
(merci michdenis !) était au moins bien arrivé sur le serveur du
destinataire. Qu'il lise le mail est une autre histoire :-))

Donc si une piste se présente, je suis preneur !!

@+ thierryp

Parlé trop vite.....Est donné pour ne fonctionner qu'avec Outlook
Express...Moi j'utilise Thunderbird :-((((((((
J'ai fait le test avec OE, pas d'accusé....

Suffit que le destinataire refuse l'envoi de l'accusé-réception pour qu'il
n'y ait pas d'accusé-réception. Et comme refuser d'envoyer
l'accusé-réception évite de confirmer une adresse de courrier quand on
reçoit du spam, beaucoup de gens paramètrent OE ou Outlook pour ne jamais
envoyer d'accusé-réception.

RE-bonjour michdenis,
C'est OK. Merci pour tout !!

Bonjour Thierry,

Le test effectué consistait à envoyer un courriel à mon adresse personnel à partir de mon adresse hotmail.

Le seul élément de configuration de Outlook expresse requis :

Pour que la requête de réception te demande de confirmer la réception du message,
tu dois dans Outlook Express / barre de menu / outils /
Onglet : confirmations de lecture /
item : Renvoi de confirmation de lecture : être averti à chaque confirmation de lecture


Salutations!



"ThierryP" <petithory.thierry_NoSpam@club-nospam-internet.fr> a écrit dans le message de news:
uCRjlzB%23FHA.3692@tk2msftngp13.phx.gbl...
Je te remercie encore une fois, mais j'ai l'impression qu'il y a une
différence entre W2K et XP...Ta procédure fonctionne nickel, sauf pour
cet $*%££** accusé de réception....Comme le week-end s'annonce pluvieux,
j'aurais le temps de chercher. !!!

@+ thierryp

Écoute, je t'ai mis la procédure en clair à utiliser dans mon message précédent, il ne reste plus qu'à indiquer ton SMTP et
modifier
les adresses de courriel - destinataire et la tienne !



Salutations!



"ThierryP" <petithory.thierry_NoSpam@club-nospam-internet.fr> a écrit dans le message de news:
%23nTFfLB%23FHA.2176@TK2MSFTNGP14.phx.gbl...
Ce type est pas croyable ...! 6h15, c'est l'heure de quel pays ??? Moi,
je dors de temps en temps :-))))

J'ai fait comme toi, j'ai tiré mon code (gràce au lien que tu m'avais
fourni!) du site de Ron de Bruins; j'ai fait un essai avec OE6, toujours
sur mon PC mais que je n'utilise plus, et pas de demande d'AR. Promis,
je vais creuser un peu plus le sujet !

Merci d'avoir répondu !
@+ thierryp

Bonjour ThierryP,

Ceci fonctionne très bien avec Outlook Express, Tiré du site de Ron de Bruins.


La Seule chose à modifier à la procédure, tu dois renseigner le SMTP utilisé par ton fournisseur internet
SMTP = SMALL MAIL TRANFERT PROTOCOL

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Smtp"

Dans la configuration de Outlook Express.
barre des menus / outils / compte / ton service de messagerie / propriété / onglet serveur

Si tu désires, tu peux inhiber les 2 autres options :
- Importance du message ...
- Priorité du message ... dans le code...

'----------------------------------------------
Sub Message()
Dim iMsg As Object
Dim iConf As Object
Dim cell As Range
' Dim Flds As Variant

Application.ScreenUpdating = False

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"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = "Client@Fournisseur"
.From = "Moi@MonFournisseurInternet"
.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") = "Client@Fournisseur"
.fields.Update
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub
'-------------------------------------


Salutations"





"ThierryP" <petithory.thierry_NoSpam@club-nospam-internet.fr> a écrit dans le message de news:
eLGJiO49FHA.3608@TK2MSFTNGP09.phx.gbl...
D'abord merci de me répondre !

Ce que tu dis est tout à fait vrai...mais j'ai essayé en reparamétrant
OE pour accepter d'envoyer une confirmation, mais rien à faire :-(((
Et mes connaissances en API, ADO, CDO etc... (voire tout autre acronyme
barbare) sont plus que limitées... En fait (et ce n'est pas pour du spam
!!) j'aurais juste voulu être sûr que mon mail généré automatiquement
(merci michdenis !) était au moins bien arrivé sur le serveur du
destinataire. Qu'il lise le mail est une autre histoire :-))

Donc si une piste se présente, je suis preneur !!

@+ thierryp

Parlé trop vite.....Est donné pour ne fonctionner qu'avec Outlook
Express...Moi j'utilise Thunderbird :-((((((((
J'ai fait le test avec OE, pas d'accusé....

Suffit que le destinataire refuse l'envoi de l'accusé-réception pour qu'il
n'y ait pas d'accusé-réception. Et comme refuser d'envoyer
l'accusé-réception évite de confirmer une adresse de courrier quand on
reçoit du spam, beaucoup de gens paramètrent OE ou Outlook pour ne jamais
envoyer d'accusé-réception.