envoi e-mail (méthode CDO )

Version imprimable

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

Je fais
Code:

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 :

Citation:

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

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:

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

07/05/2007, 09h49
abertaud

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.