Comment identifier le serveur smtp et le port pour l'envoie d'un message par Win

Signaler
Messages postés
13
Date d'inscription
vendredi 17 février 2006
Statut
Membre
Dernière intervention
30 avril 2008
-
Messages postés
13
Date d'inscription
vendredi 17 février 2006
Statut
Membre
Dernière intervention
30 avril 2008
-
salut tout le monde,
je veux envoyer un e-mail à l'aide de Winsok,mais je connais pas quel
adresse serveur smtp et quel port j dois utiliser,
est ce qu'il y'a une methode pour identifier le serveur smtp et le port ?
merci,

5 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
46
salut,
va falloir préciser.....
smtp : ton FAI (ou le FAI de ton utilisateur)
port : selon ce FAI mais au moins à 95% du temps -> port 25

<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
Messages postés
13
Date d'inscription
vendredi 17 février 2006
Statut
Membre
Dernière intervention
30 avril 2008

je croix que pour envoyer un e-mail par exemple à "personne@hotmail.com" je doit avoir l'adresse du serveur smtp de mon FAI.
comment identifier ce serveur?
merci
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour ,

En utilisant tout simplement mailto.
Exemple ci-dessous que j'utilise dans mon job:

'Envoi automatisé de mailing avec pièces jointes
Dim Objet, Msg, Dest
Dest      = "[mailto:jean-marc@xxxxx.fr jean-marc@xxxxx.fr]"
Objet = Replace(FicSortie, ".html", " ")
Objet = Replace(Objet, " ", "%20")
Objet = Replace(Objet, "Controle", "CLIENT%20:%20Controle")  


Msg="Bonjour," & vbCrLf & vbCrLf & "Ci-joint le fichier """ &_
      FicSortie & """." & vbCrLf & vbCrLf & vbCrLf &_
      "Cordialement." & vbCrLf & "Cellule GCOS7"
Msg=Escape(Msg)


Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "mailto:" & Dest & "?subject=" & Objet & "&body=" & Msg '& vbCrLf & Fichier
WScript.Sleep(8000)
WshShell.SendKeys "%(if)" & Path & FicSortie & "{ENTER}"      'ou {F10} si W2003 pour pièce(s) jointe(s)
'WshShell.SendKeys "{F10}if" & Path2 & "Jor TDS-IMTP du " & Dat & ".txt" &"{ENTER}"
'WshShell.SendKeys "{F10}if" & Path2 & "Jor TDS-TPEA du " & Dat & ".txt" &"{ENTER}"
WScript.Sleep(400)
'WshShell.SendKeys "%(s){ENTER}"  'pour envoyer le mail
Set WhsShell = Nothing

jean-marc
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
46
ps : je me suis peut-être mal exprimé. quand je disais "ton utilisateur", je parlais de la personne qui utiliserait ton appli (si le but est la redistribution), pas de ton destinataire....

<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
Messages postés
13
Date d'inscription
vendredi 17 février 2006
Statut
Membre
Dernière intervention
30 avril 2008

bonjour,
oui le but est la distribution , et l'application doit identifier le serveur smtp toute seule (envoie d'unmessage autonome) sans intervention de l'utilisateur.
merci jean-marc pour ton code j'espère qu'il marche .