envoi de mail sans smtp

Version imprimable

Bonjour @ tous

Je souhaite créer une application qui m'envoie un mail sans avoir à préciser de server smtp
Ne sachant pas à l'avance qui utilisera mon application, je veux éviter à l'utilisateur de rajouter ce paramètre.
Existe-t-il des servers SMTP accessibles à tous anonymement?
Ou une autre méthode qui se débrouille à trouver l'info?
Code:

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 #!/bin/perl use MIME::Lite; use Net::SMTP; my $corps_mail = "H".chr(233)."llo"; # creation mail et envoi # entete $msg = new MIME::Lite From =>'toto@toto.fr', To =>'toto2@toto.fr', Subject =>'mail html avec pièce jointe', Type =>'multipart/mixed'; # creation du message my $TXTMessage = new MIME::Lite Type =>'TEXT', Data =>$corps_mail; # Modification du type (HTML) $TXTMessage->attr("content-type" => "text/html; charset=iso-8859-1"); # Attachez le message au mail $msg->attach ($TXTMessage); # envoi MIME::Lite->send("smtp", "smtp.free.fr", Timeout => 60); $msg->send;

09/01/2006, 08h42
2Eurocents

Re: envoie de mail sans smtp
Citation:

Envoyé par fredo2009

Je souhaite créer une application qui m'envoie un mail sans avoir à préciser de server smtp
Ne sachant pas à l'avance qui utilisera mon application, je veux éviter à l'utilisateur de rajouter ce paramètre.
Existe-t-il des servers SMTP accessibles à tous anonymement?
Ou une autre méthode qui se débrouille à trouver l'info?

Quelques précisions :
- * Il n'est pas possible d'envoyer de mail sans serveur SMTP.
  
  * Un SMTP accessible à tous, anonymement, cela existe et s'appelle un "Relais Ouvert". C'est une faute de configuration, cela ne devrait pas se produire. C'est une faille exploitée par les spammeurs. Vu l'usage qui en est fait, de plus en plus de sites refusent les mails provenant de relais ouverts, qui sont du spam à 95%.
  
  * Sur un site correctement configuré, l'information concernant le serveur SMTP sortant est enregistrée dans le DNS. En effet, le DNS peut contenir des informations sur le SMTP entrant (le champ MX) et le SMTP sortant légitime (Reverse MX). Il est donc possible d'interroger le DNS du site où l'on est pour connaître cette information, si elle est disponible.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Expediteur=inputbox("eMail de l'expediteur : ") 
Destinataire=inputbox("eMail du destinataire : ") 
Objet=inputbox("Objet du message : ") 
Corps=inputbox("Message : ") 
NombreCopies=inputbox("Le nombre de messages à envoyer : ") 
if nombrecopies<>0 then 
For Envoi=1 to NombreCopies 
MailEnvoi Expediteur,Destinataire,Objet,Corps 
Next 
end if 
sub MailEnvoi(Exped,Dest,Objet,body) 
Set objEmail = CreateObject("CDO.Message") 
objEmail.From = Exped 
objEmail.To = Dest 
objEmail.Subject = Objet 
objEmail.Textbody = body 
objEmail.Send 
end sub

Ce script VBS envoi un mail sans préciser le smtp et ça marche
Mais je veux le faire en perl

09/01/2006, 13h20
2Eurocents

Citation:

Envoyé par fredo2009

Ce script VBS envoi un mail sans préciser le smtp et ça marche

Cest un coup de chance, que cela fonctionne !

Chez moi, ce VBScript produit une erreur 'La valeur de configuration "SendUsing" est non valide'.

VBS doit aller chercher des infos dans la configuration de messagerie par défaut... Comme ma configuration n'est pas celle par défaut, ça plante :?

Par hasard, ça ne s'appuierait pas sur Outlook/OutlookExpress pour faire l'envoi ? Quelles sont les entêtes d'un message envoyé par ce moyen ?

Par ailleurs, l'objet ObjEmail admet une configuration du serveur SMTP :

Code:

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yahoo.fr"

Ce n'est certainement pas pour décorer, mais bien pour éviter de faire appel à une configuration par défaut dont on ne sait pas ce qu'elle vaut.

Citation:

Envoyé par fredo2009

Mais je veux le faire en perl

Il te reste à trouver un moyen d'interroger la configuration de messagerie de Windows, pour connaître le SMTP et l'utiliser ... ce ne sera pas portable, mais il n'y a pas de moyen de s'en passer.
09/01/2006, 14h24
Invité

CDO s'appuie effectivement sur Outlook (express). Il faut un profil de messagerie actif et valide, comme la plupart des produits de Microsoft qui envoient des mails (SQL Mail de SQL Server par exemple s'appuie sur un profil de messagerie Outlook).

Ce que tu demandes n'est par définition pas faisable, et cela ne relève ni de perl, ni de Microsoft ou qui que ce soit. Disons, ça serait comme envoyer une lettre sans passer par La Poste : tu la poses dans un coin de rue, et tu attends qu'elle s'en aille toute seule... :?
09/01/2006, 18h20
fredo2009

Merci

Je vais donc chercher ds ce sens:
soit un smtp ouvert à tous

soit trouver un moyen d'interroger la configuration de messagerie de Windows pour connaître le SMTP et l'utiliser
cette dernière solution me plait bien