Comment envoyer un mail automatiquement avec un serveur SMTP

**01Please** · 02/06/2014, 16h29

Hello les gens

J’avais une question à vous poser : comment envoyer un mail automatiquement avec un serveur SMTP. J’ai crée un script VBS qui a fonctionné une fois, pas super bien car le message est arrivé dans les spams de ma boîte de messagerie. bmail.exe -s nom_serveur -t adresse-destinataire -f adresse-émetteur -h -a "sujet" -b "mail" : Cette commande fonctionne plus quand je l’exécute le terminal me dit « socket closed ».

Ce script sera lancé automatiquement après grâce au planificateur de tâche, tous les vendredis ...

Si vous avez une réponse... ça serait super sympa

**hackoofr** · 03/06/2014, 06h46

Personnellement, je vous conseille, d'utiliser Blat pour envoyer vos mails en ligne de commande et aussi on peut l’intégrer dans un Vbscript

Téléchargement de Blat
Et voici un exemple en Batch que vous pouvez le tester en modifiant bien sûr avec vos paramètres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 @echo off
 Title Multi Ping Test avec alerte par Mail
 mode con cols=90 lines=8 & color 9B
 if Exist Data.log del Data.log 
    set adresse=www.developpez.net www.yahoo.com bbat.forumeiros.com www.voila.fr www.orange.fr www.google.com
    For %%a in (%adresse%) do call :test_ping %%a
    Call :Mail
    
    :test_ping
    cls
    echo.
    echo TEST EN COURS......
    echo.
    ping %1 | find "sur"
    if %errorlevel%==1 (echo [%date%] [%time%] CONNECTION A %1 REFUSEE >>Data.log
                        ping localhost -n 6 >nul
                        )
    if %errorlevel%==0 (echo [%date%] [%time%] CONNECTION A %1 OK !>>Data.log)                  
    echo.
    echo TEST TERMINE
    echo.
    goto :eof
   
    :Mail
    cls
    Set Expediteur=-f %ComputerName%@test.com
    set Destinataire=-to destinataire@domaine.com
    set subj=-s "Multi Ping Test"
    set server=-server smtp.server.fr
    set Message=-bodyF "Data.log"
    set piecejointe=-attach E:\Test\Matrix.gif
    set log=-log LogBlat.txt
    set Debug=-debug
    echo.
    echo Envoi de Mail ......
    blat %Message% %Destinataire% %Expediteur% %subj% %server% %piecejointe% %log% %Debug%
    Start LogBlat.txt

**01Please** · 03/06/2014, 09h54

Bonjour ^^

Merci encore une fois pour votre aide

J'aurais plusieurs questions à vous poser :
- que faut-il mettre à la place de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set adresse=www.developpez.net www.yahoo.com bbat.forumeiros.com www.voila.fr www.orange.fr www.google.com

Faut-il laisser cette ligne comme elle se trouve où la remplacer par l'adresse du serveur : pour ma part j'ai pris le serveur de l'imprimante 'aspmx.l.google.com'

Voici le code modifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
@echo off
 Title Multi Ping Test avec alerte par Mail
 mode con cols=90 lines=8 & color 9B
 if Exist Data.log del Data.log 
    set adresse= aspmx.l.google.com 
    For %%a in (%adresse%) do call :test_ping %%a
    Call :Mail
    
    :test_ping
    cls
    echo.
    echo TEST EN COURS......
    echo.
    ping %1 | find "sur"
    if %errorlevel%==1 (echo [%date%] [%time%] CONNECTION A %1 REFUSEE >>Data.log
                        ping localhost -n 6 >nul
                        )
    if %errorlevel%==0 (echo [%date%] [%time%] CONNECTION A %1 OK !>>Data.log)                  
    echo.
    echo TEST TERMINE
    echo.
    goto :eof
   
    :Mail
    cls
    Set Expediteur=-f scan-01@hotmail.fr
    set Destinataire=-to b.a@gmail.com
    set subj=-s "Multi Ping Test"
    set server=-server aspmx.l.google.com
    set Message=-bodyF "body"
    ::set piecejointe=-attach E:\Test\Matrix.gif
    ::set log=-log LogBlat.txt
    ::set Debug=-debug
    echo.
    echo Envoi de Mail ......
    blat %Message% %Destinataire% %Expediteur% %subj% %server% 
	::%piecejointe% %log% %Debug%
    Start LogBlat.txt

J'ai mis en commentaire la ligne pour les pièces jointes

Et dernière question où dois se trouver le fichier "LogBlat.txt" ? peut-il se trouver dans un autre répertoire que SYSTEM32 ? ^^

Je n'ai pas de fichier LogBlat.txt dans le zip téléchargé pour installer Blat est-ce normal ? ^^

**01Please** · 03/06/2014, 10h02

Dans le fichier ReadMe il disse :
1) Copy the file "Blat.exe" to your "\WINNT\SYSTEM32" directory, or to
any other directory in your path.

2) Optionaly, run "Blat -install smtp.yoursite.tld youruserid@yoursite.tld"

C'est quoi exactement ces adresses : smtp.yoursite.tld youruserid@yoursite.tld

Quand j'exécute le script un fichier data.txt se crée; son contenu :
[03/06/2014] [10:08:23,50] CONNECTION A aspmx.l.google.com OK !
[03/06/2014] [10:08:26,67] CONNECTION A OK !

Mais j'obtiens une erreur car il dis :
'blat' n'est pas reconnu en tant que commande interne ou externe, un programme exécutable ou u fichier de commandes.

**hackoofr** · 03/06/2014, 10h17

EDIT :
Copier Blat dans votre dossier système
Testez ceci en changeant le nom de votre serveur Mail car avec aspmx.l.google.com ne vous laisse pas passer le message
Autre chose le Data.log c'est le résultat de ping à envoyer dans le corps du message donc à ne pas supprimer !
log=-log C:\LogBlat.txt va être créer par le script !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
@echo off
 Title Multi Ping Test avec alerte par Mail
 mode con cols=90 lines=8 & color 9B
 if Exist Data.log del Data.log 
 if Exist C:\LogBlat.txt del C:\LogBlat.txt
    set adresse= aspmx.l.google.com 
    For %%a in (%adresse%) do call :test_ping %%a
    Call :Mail
    
    :test_ping
    cls
    echo.
    echo TEST EN COURS......
    echo.
    ping %1 | find "sur"
    if %errorlevel%==1 (echo [%date%] [%time%] CONNECTION A %1 REFUSEE >>Data.log
                        ping localhost -n 6 >nul
                        )
    if %errorlevel%==0 (echo [%date%] [%time%] CONNECTION A %1 OK !>>Data.log)                  
    echo.
    echo TEST TERMINE
    echo.
    goto :eof
   
    :Mail
    cls
    Set Expediteur=-f paslapeinedechanger@Test.com
    set Destinataire=-to Achanger@yahoo.fr
    set subj=-s "Multi Ping Test"
    set server=-server smtp.serverachangerparlevotre.com
    set Message=-bodyF "Data.log"
    set log=-log C:\LogBlat.txt
    set Debug=-debug
    echo.
    echo Envoi de Mail ......
    blat %Message% %Destinataire% %Expediteur% %subj% %server%  %log% %Debug%
    Start C:\LogBlat.txt

**01Please** · 03/06/2014, 10h27

J'ai changé le serveur en smtp.free.fr

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
@echo off
 Title Multi Ping Test avec alerte par Mail
 mode con cols=90 lines=8 & color 9B
 if Exist Data.log del Data.log 
 if Exist LogBlat.txt del LogBlat.txt
    set adresse= smtp.free.fr 
    For %%a in (%adresse%) do call :test_ping %%a
    Call :Mail
    
    :test_ping
    cls
    echo.
    echo TEST EN COURS......
    echo.
    ping %1 | find "sur"
    if %errorlevel%==1 (echo [%date%] [%time%] CONNECTION A %1 REFUSEE >>Data.log
                        ping localhost -n 6 >nul
                        )
    if %errorlevel%==0 (echo [%date%] [%time%] CONNECTION A %1 OK !>>Data.log)                  
    echo.
    echo TEST TERMINE
    echo.
    goto :eof
   
    :Mail
    cls
    Set Expediteur=-f paslapeinedechanger@Test.com
    set Destinataire=-to b.a@gmail.com
    set subj=-s "Multi Ping Test"
    set server=-server smtp.free.fr
    set Message=-bodyF "Data.log"
    set log=-log LogBlat.txt
    set Debug=-debug
    echo.
    echo Envoi de Mail ......
    blat %Message% %Destinataire% %Expediteur% %subj% %server%  %log% %Debug%
    Start LogBlat.txt

Mais le résultat est toujours le même :/
- blat n'est pas reconnu comme commande : je pense il n'est pas installé sur l'invite de commande j'ai essayé de faire blat -install mais cela ne fonctionne pas non plus. ^^
- Windows ne trouve pas 'LogBlat.txt' ^^

**hackoofr** · 03/06/2014, 10h38

ça vous donne quoi comme résultat avec ce Vbscript ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function SMTP(adress)
Set ie = CreateObject("InternetExplorer.Application") 
ie.Navigate(adress) 
ie.Visible=false
DO While ie.busy
Loop
smtp = ie.document.documentElement.innertext 
ie.Quit 
Set ie=Nothing
end Function
 
Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function
 
MySMTP=SMTP("http://www.autoitscript.fr/smtp.php")
MsgBox "Mon Serveur SMTP est : " & qq(MySMTP),64,"Mon Serveur SMTP"

**01Please** · 03/06/2014, 10h43

^^ Je me suis déjà servi de ton code, pour avoir mon serveur smtp, je l'avais trouvé dans une autre discussion. Et le résultat est bien : Mon Serveur SMTP est "smtp.free.fr"

**hackoofr** · 03/06/2014, 12h07

Vous avez reçu quelque chose comme ça ? dans le LogBlat.txt

2014.06.03 11:03:30 (Tue)------------Start of Session-----------------
Blat v3.1.2 (build : Dec 27 2013 14:33:12)
32-bit Windows, Full, Unicode
<<<getline<<< 554 5.7.1 <unknown . . . . :55190>: Client host rejected: Access denied
*** Error *** SMTP server error
Error: Not a socket.
Error: Not a socket.
2014.06.03 11:03:35 (Tue)-------------End of Session------------------

**01Please** · 03/06/2014, 12h17

Non pas du tout car le LogBlat.txt n'arrive pas à se créer :/

**hackoofr** · 03/06/2014, 12h25

Envoyé par 01Please

Non pas du tout car le LogBlat.txt n'arrive pas à se créer :/

regardez plus haut car j'ai édité le code et le LOG se trouve maintenant dans ce chemin : C:\LogBlat.txt ou bien ici
http://www.developpez.net/forums/d14...p/#post7842917

**01Please** · 03/06/2014, 12h50

Cela ne change rien :/ toujours le même problème j'ai bien copié le dossier blat dans SYSTEM32 mais quand je lance mon script il n'arrive pas a exécuter la commande blat et du coup il ne crée pas le fichier LogBlat.txt

**hackoofr** · 03/06/2014, 13h09

Envoyé par 01Please

Cela ne change rien :/ toujours le même problème j'ai bien copié le dossier blat dans SYSTEM32 mais quand je lance mon script il n'arrive pas a exécuter la commande blat et du coup il ne crée pas le fichier LogBlat.txt

Je ne sais pourquoi ne marche pas chez vous, peut-être un problème de sécurité

Essayez, alors de mettre l'exécutable Blat.exe dans le même dossier que votre script batch et ré-exécuter le de nouveau

**hackoofr** · 03/06/2014, 14h04

La meilleure façon de vérifier le serveur SMTP est via Telnet
ça vous donne quoi comme réponse ce petit batch ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
@echo off
Telnet smtp.free.fr 25
Pause

**01Please** · 03/06/2014, 14h05

J'ai réussi à exécuter le script

il fallait effectivement mettre le fichier blat.exe au même endroit que le script ^^

Contenu du fichier .txt

2014.06.03 14:05:24 (Tue)------------Start of Session-----------------
Blat v3.1.2 (build : Dec 27 2013 14:33:50)
64-bit Windows, Full, Unicode
Error: Can't resolve hostname (smtp.serverachangerparlevotre.com).
2014.06.03 14:05:24 (Tue)-------------End of Session------------------

je ne sais pas quoi mettre comme adresse expéditrice ? ^^

**01Please** · 03/06/2014, 14h09

Envoyé par hackoofr

La meilleure façon de vérifier le serveur SMTP est via Telnet
ça vous donne quoi comme réponse ce petit batch ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
@echo off
Telnet smtp.free.fr 25
Pause

Connexion à smtp-free-fr... Impossible d'ouvrir une connexion à l'hôte, sur le port 25: Echec de la connexion

**hackoofr** · 03/06/2014, 14h19

Envoyé par 01Please

Connexion à smtp-free-fr... Impossible d'ouvrir une connexion à l'hôte, sur le port 25: Echec de la connexion

Donc, le problème vient de votre serveur SMTP

Dans ce cas, je vous recommande de tester ce HTA pour qu'on puisse continuer [HTA] SMTP Mail Client avec pièce jointe

**01Please** · 03/06/2014, 14h37

J'ai reçu un mail dans mon adresse de messagerie sans exécuter le HTA ... je sais pas comment j'ai fait

mais par contre pour l'adresse émettrice

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Expediteur=-f paslapeinedechanger@Test.com

Est ce que c'est possible de mettre une autre adresse ?

**hackoofr** · 03/06/2014, 14h54

Envoyé par 01Please

J'ai reçu un mail dans mon adresse de messagerie sans exécuter le HTA ... je sais pas comment j'ai fait

mais par contre pour l'adresse émettrice

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Expediteur=-f paslapeinedechanger@Test.com

Est ce que c'est possible de mettre une autre adresse ?

Oui, vous pouvez, par exemple utiliser ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Expediteur=-f %ComputerName%@hackoo.com

**01Please** · 03/06/2014, 15h04

Merciiiiiiiiiiiiiiiiiiiiii

Et aussi est ce que je peux mettre plusieurs adresses pour les destinataires ??

Comment envoyer un mail automatiquement avec un serveur SMTP

Scripts/Batch

Discussions similaires

Partager

Partager