Envoie Mail vbs

Envoie Mail vbs - VB/VBA/VBS - Programmation

Marsh Posté le 13-10-2005 à 14:50:42    

Bonjour, voilà j'essaie d'envoyer un mail avec un petit script vbs mais ca ne veut pas marcher (grrrrrrrrrr).
Voilà mon code:
 
On Error Resume Next
 
 With CreateObject("CDO.Message" )
 
  If Err Then
   MsgBox "CDO non installé"
  Else
  MsgBox(smtp(0))
 .From="bidul@toto.com"
 .To="moi@free.fr"
 .Subject="testtitre"
 .TextBody="test corps message en par .bat"
 .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
 .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = smtp.free.fr
 .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
 .Configuration.Fields.Update
 .Send
 If Err Then MsgBox "Le message n'a pas pu être expédié."
End If
On Error GoTo 0
End With
 
 
 
 
 
Au bout d'une quinzaine de seconde, j'ai la messagebox: "Le message n'a pas pu être expédié."
A noter que je ai essayer avec ou sans la config du port et avec un autre smtp qui marche avec l'outlook chez moi sans résultat.
Je suis ici sous XP pro SP1 et je n'ai pas Outlook.
J'utilise lotus.
Est ce un pb de firewall ou un truc du genre?
 
Merci
 
 

Reply

Marsh Posté le 13-10-2005 à 14:50:42   

Reply

Marsh Posté le 13-10-2005 à 16:21:36    

Bon j'avance, en fait ct un probloème avec mon adresse smtp, par contre maintenabt j'ai une erreur 2147220978
 
J'ai regardé sur internet mais j'ai rien trouvé de très convaincant...
si qqn a une idée par pitié!

Reply

Marsh Posté le 14-10-2005 à 10:24:07    

En VB je cree ma session notes deja alors je sais pas en vbs  comment tu l as cree  
mais dans ton code je ne vois pas  d ouverture de session
 
 
Set s = CreateObject("Notes.Notessession" )          'Create notes session
 
 
 
regarde l exemple suivant
 
http://www.vbfrance.com/code.aspx?ID=19645

Reply

Marsh Posté le 14-10-2005 à 12:14:47    

benator a écrit :

Bonjour, voilà j'essaie d'envoyer un mail avec un petit script vbs mais ca ne veut pas marcher (grrrrrrrrrr).
Voilà mon code:
 
On Error Resume Next
 
 With CreateObject("CDO.Message" )
 
  If Err Then
   MsgBox "CDO non installé"
  Else
  MsgBox(smtp(0))
 .From="bidul@toto.com"
 .To="moi@free.fr"
 .Subject="testtitre"
 .TextBody="test corps message en par .bat"
 .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
 .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = smtp.free.fr
 .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
 .Configuration.Fields.Update
 .Send
 If Err Then MsgBox "Le message n'a pas pu être expédié."
End If
On Error GoTo 0
End With
 
 
 
 
 
Au bout d'une quinzaine de seconde, j'ai la messagebox: "Le message n'a pas pu être expédié."
A noter que je ai essayer avec ou sans la config du port et avec un autre smtp qui marche avec l'outlook chez moi sans résultat.
Je suis ici sous XP pro SP1 et je n'ai pas Outlook.
J'utilise lotus.
Est ce un pb de firewall ou un truc du genre?
 
Merci


Bonjour à toi  
 
remplace le smtp.free.fr par "smtp.free.fr"
 
et la ça marcheras .
 
bien à toi
JuVeNaL

Reply

Marsh Posté le 14-10-2005 à 12:48:33    

Ouais je sais pour le smtp.free.fr en fait j'ai pas tout à fait ca dans mon code. Je crois que le seul problème qui me reste est que la DSI me donne un compte et un mdp pour attaquer le smtp de la boite. Je croise les doigts pour que ca soit ca.
 
Merci

Reply

Marsh Posté le 14-10-2005 à 14:44:18    

dis moi af_airone, bien qu'ayant utilisé pas mal de langages différents, je n'ai tout simplement jamais fait de vb. Le programme qui est sur le lien que tu m'as filer m'intéresse bien mais le fait qu'il soit en vb me gêne pas mal.
 
Est-ce je doit télécharger des dll pour faire du vb et ainsi compiler ce programme? Y a t il un interpréteur à installer? (comme en java)
 
Quel soft gratuit sympa existe pour faire du VB?
 
Voilà, désolé pour ces question de noobs mais la je repars de 0...
 

Reply

Marsh Posté le 14-10-2005 à 16:10:36    

http://www.planet-source-code.com/ [...] 5&lngWId=4
 
 
Send Lotus Notes Email VBS Script
Compatibility:VbScript (browser/client side)  
 
Cordialement

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed