Je suis passé du coté du post sur l'envoi d-email, mais le code ne fonctionne pas pour moi.

Je fais
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
	Dim imsg, iconf, Flds
	set imsg = createobject("cdo.message") 
	set iconf = createobject("cdo.configuration") 
	Set Flds = iConf.Fields 
	With Flds 
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 3
		.Update 
	End With 
 
	corps = "<HTML>"
	corps = corps & "<HEAD>"
	corps = corps & "<BODY>"
	corps = corps & "essai courriel via vbs"
	corps = corps & "</BODY>"
	corps = corps & "</HEAD>"
 
	With imsg
		Set .Configuration = iconf
		.To = "adressevalide@xxxx.fr"
		.from = "adressevalide@xxxx.fr"
		.Subject = "essai envoyé"
		.HTMLBody = corps
		.fields.update
		.send
	End with
Le code plante sur le .send :
Erreur : Impossible de trouver un objet ou une donnée correspondante au nom, à la plage ou aux critères de sélection dans l'étendue de l'opération
Code : 80040E19
Source : CDO.Message.1