Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1222 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Envoie Mail vbs

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Envoie Mail vbs

n°1222139
benator
Posté le 13-10-2005 à 14:50:42  profilanswer
 

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
 
 

mood
Publicité
Posté le 13-10-2005 à 14:50:42  profilanswer
 

n°1222294
benator
Posté le 13-10-2005 à 16:21:36  profilanswer
 

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é!

n°1222792
af_airone
Posté le 14-10-2005 à 10:24:07  profilanswer
 

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

n°1223024
JuVeNaL
Carpe Diem
Posté le 14-10-2005 à 12:14:47  profilanswer
 

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

n°1223045
benator
Posté le 14-10-2005 à 12:48:33  profilanswer
 

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

n°1223170
benator
Posté le 14-10-2005 à 14:44:18  profilanswer
 

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...
 

n°1223306
af_airone
Posté le 14-10-2005 à 16:10:36  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Envoie Mail vbs

 

Sujets relatifs
envoie de mail directement d'escelenvoie de mail avec php
[Access]Problème lien hypertexte dans envoie de mail[Résolu] Envoie d'un mail en PHP
envoie de mail et phpRecherche Envoie mail par Formulaire Sans php
Envoie d'un formlaire sur un mail > pb avec les pieces jointesEnvoie de mail via Lotus Notes
envoie de mailscript VB pour envoie de mail
Plus de sujets relatifs à : Envoie Mail vbs


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR