Envoie Mail vbs - VB/VBA/VBS - Programmation
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é!
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
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). |
Bonjour à toi
remplace le smtp.free.fr par "smtp.free.fr"
et la ça marcheras .
bien à toi
JuVeNaL
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
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...
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
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