[R] Envoyer un mail via compte exchange

XcessiV · #1

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 ?

#2

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 ?

XcessiV · #3

impossible de trouver, j'ai donc créé un fichier VBS qui m'envoi le mail ^^

#4

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

XcessiV · #5

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.

#6

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

XcessiV · #7

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

#8

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

XcessiV · #9

je ne comprends pas ta question...