envoi e-mail (méthode CDO )

**abertaud** · 03/05/2007, 15h11

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

**SfJ5Rpw8** · 03/05/2007, 21h11

c'est pas le même code..?
peu-être du as exchange .. :

http://support.microsoft.com/kb/282125/fr

je n'ai pas de serveur exchange à disposition pour tester .. mais essai quelque chose comme :

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
 
Dim oCDO
 
Set oCDO = CreateObject("CDO.Message")
With oCdo
   With .Configuration.Fields ' Configuration "du compte mail SMTP"
     .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = " Adresse IP du serveur Exchange"
     .Update
End With
  .From = "bbil@gmail.com"
  .to = "bbil@gmail.com"
  .Subject ="Essai de mail" & Now
  .TextBody ="Voici un petit message " & vbCrlf & "pour tester l'envoi de mail par CDO/VBScript"
  .Send
End With

**abertaud** · 07/05/2007, 09h49

Le test n'est pas plus concluant.

Après plusieurs tests sur différentes machines, il se trouve que le code ne marche pas sur celles n'ayant pas le composant windows de configuration de serveur smtp.

Dans ce cas, toutes les définitions doivent être faites à la main (adresse, port, type d'authentification, identifiant de connexion, mot de passe, etc.).

Je n'ai pas moyen d'installer ce composant sur mon poste apparemment (sur-sur-sur-sécurité, quand tu nous tiens...), donc la solution ne fonctionnera pas en dev, mais que en exploitation.

envoi e-mail (méthode CDO )

VBScript

Discussions similaires

Partager

Partager