Il y a actuellement 54 visiteurs
Jeudi 08 Décembre 2022
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: 403
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: 403
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
Expert(e)
Expert(e)
 
Messages: 1873
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: 3113
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: 403
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: 3113
Inscription: 11 Juin 2007 13:22
Localisation: Au fond de mon calbar
 



Sujets similaires

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

Message Notification sonore reception mail
Bonjour,Est-il possible d'être averti par une notification sonore sur mon PC dès réception d'un mail reçu d'une personne précise sur une adresse mail préciseJe suis sous Windows 10 et j'utilise Firefox. Je lis mes mails sur le webmail de mon fournisseur d'accès.Merci d'avance pour l'aide que vous ...
Réponses: 2

Message Perte d'adresse mail secondaire
BonjourLe site mail de la poste me force à changer de mot de passe, sauf qu'il me demande une vérification par une adresse mail secondaire que je n'ai plus pour m'envoyer un code. Est-il possible de réinitialiser mon mot de passe sans passer par cette adresse mail secondaire ?Merci d'avance
Réponses: 2

Message Zone DNS : domaine chez gandi mais hébergement mail chez OVH
Bonjour, Actuellement, j'ai un nom de domaine qui est chez Gandi mais des serveurs de noms OVH sont utilisés, la gestion DNS se fait donc du coté d'OVH. Les e-mails sont hébergés chez OVH.J'aimerais réattribuer les serveurs de noms Gandi pour pouvoir manipuler la zone DNS depuis Gandi.Malgré les ser ...
Réponses: 0

Message comment envoyer 1000 mail?
bonjourmon asso a actuellement une adresse gmail et je suis limité par l envoi de 500 mails par jourscomment envoyer 1000 mail?merci pour votre aide!
Réponses: 1

Message adresse mail
Bonjour,Lorsque je demande une adresse mail a un vendeur/acheteur sur la messagerie leboncoin, l'adresse est marquée de mémoire "masqué pour votre sécurité" je ne sais plus trop.Est-il possible d'obtenir quand même l'adresse mail de cette personne.Cdty
Réponses: 1

Message orange notification mail
Salut tout le monde lorsque je démarre une fois sur le bureau mon logiciel messagerie orange notification mail me montre des emails "bizarres" (voir la capture écran) soi-disant à ouvrir et lorsque je rentre sur ma boite mail orange fort heureusement ils n'y sont pas mème en indésir ...
Réponses: 4


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


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