Page 1 sur 1
[R] Envoyer un mail via compte exchange
Posté : ven. 21 sept. 2007 13:34
par XcessiV
Bonjour
Voila, je voudrais savoir si il est possible d'envoyer un mail avec le choix de l'expediteur, destinataire, sujet et corps.
De plus, je voudrais que cela passe par exchange
Est-ce possible ?
Cordialement, XcessiV
Edit :
Code : Tout sélectionner
#include <INet.au3>
$s_SmtpServer = "mysmtpserver.com.au"
$s_FromName = "My Name"
$s_FromAddress = "From eMail Address"
$s_ToAddress = "To eMail Address"
$s_Subject = "My Test UDF"
Dim $as_Body[2]
$as_Body[0] = "Testing the new email udf"
$as_Body[1] = "Second Line"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Success!", "Mail sent")
Else
MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf
Il y a ce code dans l'aide, mais les mails ne passent que très aléatoirement (si ce n'est pour dire quasiment jamais). Il me sort toujours l'erreur 50, soit :[/color]
@ERROR = 5x - Cannot open SMTP session. x indicates the index number of last command issued to the SMTP server.
Une idée ?
Posté : ven. 21 sept. 2007 19:34
par sylvanie
peut être que le connecteur smtp du serveur renvoie cette erreur à cause des envoies externes
regarde ce lien, il est possible que ce soit ça :
http://www.commentcamarche.net/forum/af ... denied-mik
sinon, tu as sniffé ton traffic pour avoir un peu plus de détail ?
Posté : ven. 28 sept. 2007 14:29
par XcessiV
impossible de trouver, j'ai donc créé un fichier VBS qui m'envoi le mail ^^
Posté : ven. 28 sept. 2007 16:18
par ani
un code vbs
possible que tu me fasse un petit pm, on pourra surement le mettre en au3 , j'avais essayé aussi le mail mais comme toi il passe pas ou il n'arrive pas à destination :§
merci d'avance
Posté : lun. 12 nov. 2007 14:37
par XcessiV
avec deux mois de retard (dsl je n'aivais pas vu ton message)
Code : Tout sélectionner
_FileCreate("C:\Temp\mail.vbs")
$file = FileOpen("C:\Temp\mail.vbs", 2)
FileWriteLine($file, 'Set Mail = CreateObject("CDO.Message")')
FileWriteLine($file, 'With Mail')
FileWriteLine($file, '.From="prenom.nom@societe.com"')
FileWriteLine($file, '.To="prenom.nom@societe.com"')
FileWriteLine($file, '.Cc="prenom.nom@societe.com"')
FileWriteLine($file, '.Subject="Sujet bidon")
FileWriteLine($file, '.TextBody="Un des process de votre application a eu une defaillance à ' & $heureplantage & ', veuillez vérifier et relancer le ou les services nécéssaire." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Voici la procedure :" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Start -> Programs -> Administrative tools -> Services" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & "Verifier que les services SERVICE1 ET SERVICE2 soient lancés"')
FileWriteLine($file, '.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2')
FileWriteLine($file, '.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "rm3msem1.emea.roche.com"')
FileWriteLine($file, '.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25')
FileWriteLine($file, '.Configuration.Fields.Update')
FileWriteLine($file, '.Send')
FileWriteLine($file, 'End With')
FileClose($file)
_RunDos('C:\Temp\mail.vbs')
Voila, voila.
Posté : jeu. 15 nov. 2007 10:07
par ani
apparement vous utilisez tous ce mode.
Quelque question,
Pourquoi on indique le site pour configurer le mail ?
Comment on instaure le smpt (j'ai déjà du poser la question..excusé)
le script je le comprend
Posté : jeu. 15 nov. 2007 10:21
par XcessiV
ani a écrit :Pourquoi on indique le site pour configurer le mail ?
Je
suppose que ce sont les librairies ou qq chose comme ça qui sont en ligne (sur le net) car pour envoyer un mail il faut le net (sauf cas de réseau d'entreprise)
ani a écrit :Comment on instaure le smpt (j'ai déjà du poser la question..excusé)
Bah avec la ligne :
Code : Tout sélectionner
FileWriteLine($file, '.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "rm3msem1.emea.roche.com"')
FileWriteLine($file, '.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25')
Ce ne sont que des suppositions (français ça ? -__-! ), je ne suis pas expert VBS :p
Posté : jeu. 15 nov. 2007 10:33
par ani
donc la lib du service (
http://schemas.microsoft.com/cdo/configuration/) peut capturer la totalité du mail ?
au niveau du service entreprise ca m'interresse un petit peu, le nom donné au serveur on peut donner un nom quelqui soit ?
je visionne ou se trouve ce service, c'est inclus dans IIS ?
j'ai telement de question la dessus
Posté : jeu. 15 nov. 2007 10:53
par XcessiV
je ne comprends pas ta question...
