Il y a actuellement 408 visiteurs
Vendredi 29 Mars 2024
accueilactualitésdossierscomparer les prixtélécharger gratuitement vos logicielsoffres d'emploiforum informatique
Connexion
Créer un compte

Envoi mail VBscript - détection auto du SMTP

Besoin d'aide pour configurer un serveur ? Vous souhaitez obtenir des conseils pour référencer votre site ? Un petit souci pour accéder à votre FTP ? Des soucis de programmation en PHP / ASP / HTML / XHTML / XML / XSLT / CSS / ReactJS / AngularJS / VueJS / CGI / PERL / C / MySQL / PostgreSQL ??? Nous avons peut-être la solution dans ce forum ...

Envoi mail VBscript - détection auto du SMTP

Message le 01 Aoû 2021 15:19

Bonjour.

J'ai trouvé le code ci-dessous qui me permet d'envoyer un mail :

Code: Tout sélectionner
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2
'===========================================================
EmailSender = "expediteur@xxxxx.fr"
Email_Destinataire = "destinataire@xxxxx.fr"
'===========================================================
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "SUJET"
objMessage.From = """Expediteur"" <"& EmailSender &">"
objMessage.To = Email_Destinataire
'objMessage.AddAttachment("c:/attachement.txt")
objMessage.HTMLBody = "<H1>Corps du mail</H1>"
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxxx.fr"
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = EmailSender
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 
objMessage.Configuration.Fields.Update
 

On Error Resume Next
objMessage.Send
If err <> o Then
Msgbox Err.Description,vbCritical,Err.Description
else
Msgbox "ok"
end if


Mais j'aimerai savoir s'il y a un moyen que le serveur SMTP soit détecté automatiquement. Actuellement je dois mettre celui de mon FAI, et j'aimerai que le script fonctionne même si je change de FAI, ou bien si je suis sur une autre connexion que la mienne, etc...

Est-ce qu'il y a un moyen de faire ça ou non ? Si oui lequel ?


Merci d'avance pour vos réponse.
Bonne journée.
mlkgiosn
Apprenti(e) Expert(e)
Apprenti(e) Expert(e)
 
Messages: 404
Inscription: 09 Avr 2010 13:54
 


Re: Envoi mail VBscript - détection auto du SMTP

Message le 11 Aoû 2021 13:26

Bonjour.

Personne n'aurait d'idée ?

Ou à défaut, une commande qui renvoie le serveur SMTP qu'on utilise ?

J'ai posé la question sur d'autres forum, car je me dis que celui-ci est peut-être "trop général" pour une question comme ça, mais malgré tout, pas de réponse.

J'ai l'impression que c'est pas possible, ou en tous cas, très compliqué, rien n'étant vraiment impossible en informatique lol.
mlkgiosn
Apprenti(e) Expert(e)
Apprenti(e) Expert(e)
 
Messages: 404
Inscription: 09 Avr 2010 13:54
 

Re: Envoi mail VBscript - détection auto du SMTP

Message le 11 Aoû 2021 17:58

Bonsoir mlkgiosn,


Tu as une réponse concrète sur ce forum
Apparemment comme tu le soulignes, c'est impossible.


Bonne soirée
Avatar de l'utilisateur
heracles
PC-Infopraticien
PC-Infopraticien
 
Messages: 2321
Inscription: 02 Juin 2014 19:18
 

Re: Envoi mail VBscript - détection auto du SMTP

Message le 11 Aoû 2021 19:58

Yop

......rien n'étant vraiment impossible en informatique lol.


Faut pas prendre ses rêves pour de la réalité. :wink:
Avatar de l'utilisateur
chiva
PC-Infopraticien
PC-Infopraticien
 
Messages: 3141
Inscription: 11 Juin 2007 13:22
Localisation: Au fond de mon calbar
 

Re: Envoi mail VBscript - détection auto du SMTP

Message le 12 Aoû 2021 19:46

chiva a écrit:Yop

......rien n'étant vraiment impossible en informatique lol.


Faut pas prendre ses rêves pour de la réalité. :wink:


Définition wikipedia du second degré :

Dans le langage, le second degré consiste à amener à un sens plus subtil que la phrase ne veut le faire croire. Il est souvent utilisé dans l'humour noir.
mlkgiosn
Apprenti(e) Expert(e)
Apprenti(e) Expert(e)
 
Messages: 404
Inscription: 09 Avr 2010 13:54
 

Re: Envoi mail VBscript - détection auto du SMTP

Message le 12 Aoû 2021 19:48

Je vous retourne la remarque :wink:
Avatar de l'utilisateur
chiva
PC-Infopraticien
PC-Infopraticien
 
Messages: 3141
Inscription: 11 Juin 2007 13:22
Localisation: Au fond de mon calbar
 



Sujets similaires

Message [Réglé] Possible piratage boîte mail
Bonsoir,En tentant de consulter ma boîte Outlook ce soir je constate qu'elle semble piratée.On me refuse l'accès via mes identifiants et la demande d'envoi d'un code par SMS est compromise car mon numéro de téléphone a visiblement été changé lui aussi.Pour information, le site prétend que j'ai essay ...
Réponses: 9

Message mettre le descriptif d'un flyer dans un mail
Bonjour,Excusez-moi mais je ne sais pas à quel endroit, poser la question suivante :Est-possible de mettre le contenu d'un flyer dans un mail afin qu'il soit lisible directement à l'ouverture sans le mettre en pièce jointe ?MerciCordialement
Réponses: 9

Message mail orange
BonjourDepuis que j'ai du changé mon mot de passe orange , ma boite gmail et window 10 ne reconnait plus cette adresse .
Réponses: 4

Message Probleme de détection d'écran
Bonjour,Je dispose d'une tour HP Pavilion P6000 Series.Caractéristique matériel :Carte graphique : PCIe Pegatron D10M1BA1H HP P/N 616594-001 DVi/HDMI ID14011.Carté mère : HP Pavilion Slimline S5610T Desktop MotherboardVoici le problème (ordinateur qui a 10 ans) : Lorsque je démarre l'ordinateur, rie ...
Réponses: 3

Message help 2 compte facebook piraté mail et mot de passe changé
Bonjour.Cela peut paraitre être une demande méchante et malveillante mais je vous assure que c'est juste pour récupérer mes comptes qui comportent les photos de mes petits enfants.facebook a bloqué mes compte pour usage inhabituel. et après un mois les compte sont revenu avec une autre photo un autr ...
Réponses: 3

Message Problème envoi fichier PDF
BonjourJ'aimerai envoyer un fichier PDF à un destinataire, sauf que je veux qu'il arrive en image "brute" si j'ose m'exprimer ainsi. je m'explique, mon fichier est sur acrobat et quand je l'envoi le destinataire à le document mais avec les plages d'illustration, etc...je prends comme exemp ...
Réponses: 2

Message envoi sms
Bonjour,Avec mon M23 samsung lorsque j’envoie un sms il ne part pas, pourquoi svp.Cdt
Réponses: 2


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 5 invités


.: Nous contacter :: Flux RSS :: Données personnelles :.