Envoyer un texte par e-mail

[edgarjacobs]

Pour win32-GC
Merci pour l'info, mais tout est résolu. Mais je conserve l'url donnnée, ça peu encore servir si d'autres questions dans le genre débarquent

Bonne soirée,
Edgar.

[WIN32-[GG]]

no problem

Donc: Sujet résolu.
HA! Pas tout à fait: Il faut voir si erfan y arrive...

[Cmanix]

Salut, voici un batch pour envoyer des mail avec pièce jointe:

Code : Tout sélectionner

@echo off

:::::::::::::::::::::::CONFIGURATION:::::::::::::::::::::::
set serveur_smtp=smtp.domaine.com
set port_smtp=25
set identifiant=
set mot_de_passe=
                   ::SSL activé=True ;SSL désactivé=False
set SSL=False

::::::::::::::::::::::::::MESSAGE::::::::::::::::::::::::::
set email_source=test@test.fr
set email_cible=email@domaine.com
set sujet=test
                   ::texte sur une ligne="texte" ;texte sur plusieur ligne="ligne 1" ^& VbCrLf ^& "ligne 2"
set texte="ligne 1" ^& VbCrLf ^& "ligne 2"

:::::::::::::::::::::::PIECE JOINTE::::::::::::::::::::::::
                   ::Atention aux extention de fichiers refusé qui peuvent empecher l'envoi du message. Indiquer le chemin complet.
set piece_jointe=



echo Set objEmail = CreateObject("CDO.Message") >ms.vbs
echo On Error Resume Next >>ms.vbs
echo objEmail.From = "%email_source%" >>ms.vbs
echo objEmail.To = "%email_cible%" >>ms.vbs
echo objEmail.Subject = "%sujet%" >>ms.vbs
echo objEmail.Textbody = %texte% >>ms.vbs
if not "%piece_jointe%"=="" echo objEmail.AddAttachment("%piece_jointe%") >>ms.vbs
echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  >>ms.vbs
echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 >>ms.vbs
echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "%serveur_smtp%" >>ms.vbs
echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = %port_smtp% >>ms.vbs
echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "%identifiant%" >>ms.vbs
echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "%mot_de_passe%" >>ms.vbs
echo objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = %SSL% >>ms.vbs
echo objEmail.Configuration.Fields.Update >>ms.vbs
echo objEmail.Send >>ms.vbs
ms.vbs
del ms.vbs
 

[arrkhan]

Pour savoir si votre routeur fait aussi serveur smtp allez voir ici: http://arrkhan.free.fr/fai.php
Si il ya rien de marquer, c'est que ce n'est pas le cas.

Humm...., je suis le arrkhan en question et ce script ne sert pas du tout à ça.

FYI ce script permet de connaitre le smtp de l'appareil qui se connecte (ordi, smartphone, frigo) en identifiant le réseau sur lequel il est, car beaucoup de box internet empêche le lancement de mail si issu d'un fai différent d'eux.

Ce script me permettais, à une époque d'avoir dans mes softs, une partie "contacter l'auteur" et me permettais de récupérer le smtp du poste pour que le message s’envoie dans tous les cas.

fai.php comprend une soixante de fournisseurs d'accès français, belge et canadien, quand il n'y a rien de marqué, c'est que je ne l'ai pas parsé (ne le connaissant pas), mais plus d'info sont alors disponible en faisant http://arrkhan.free.fr/debugfai.php

@ plus

[Jasmine]

Grave erreur! Je dois employer le serveur smtp de la messagerie de mon FAI. Je ne sais pas pourquoi, ce n'est pas mon rayon, mais c'est comme ça.