Bonjour,
Je m'en remets à vous après une recherche infructueuse sur le forum.
J'ai conçu une macro pour envoyer des mails par CDO.
Cette macro va etre utilisée par différentes personnes dont le serveur SMTP sortant peut varier.
Est il possible de recupérer cette info du serveur SMTP sortant (qui est entre autre paramétrée dans outlook pour chaque personne, si cela peut aider) afin de l'intégrer dans ma macro?
////////////////////////////////////Code///////////////////////////////////////////////////////////
"Sub MailCdoQuiSadapteAuServeur(Optional factice As String)
Dim config As CDO.Configuration
Dim email As CDO.Message
'???????????????????????????????????????????????????????????????????????????????????
'code permettant la recherche du serveur et repercution dans la variable"VariableServeur"
???????????????????????????????????????????????????????????????????????????????????
Set config = New CDO.Configuration
With config.Fields
.Item("") = VariableServeur 'ICI LE SERVEUR
.Update
End With
...
End sub
///////////////////////////////////////////////////////////////////////////////////////////////////////
Merci d'avance de votre aide!
Cordialement.
Frédéric
Je m'en remets à vous après une recherche infructueuse sur le forum.
J'ai conçu une macro pour envoyer des mails par CDO.
Cette macro va etre utilisée par différentes personnes dont le serveur SMTP sortant peut varier.
Est il possible de recupérer cette info du serveur SMTP sortant (qui est entre autre paramétrée dans outlook pour chaque personne, si cela peut aider) afin de l'intégrer dans ma macro?
////////////////////////////////////Code///////////////////////////////////////////////////////////
"Sub MailCdoQuiSadapteAuServeur(Optional factice As String)
Dim config As CDO.Configuration
Dim email As CDO.Message
'???????????????????????????????????????????????????????????????????????????????????
'code permettant la recherche du serveur et repercution dans la variable"VariableServeur"
???????????????????????????????????????????????????????????????????????????????????
Set config = New CDO.Configuration
With config.Fields
.Item("") = VariableServeur 'ICI LE SERVEUR
.Update
End With
...
End sub
///////////////////////////////////////////////////////////////////////////////////////////////////////
Merci d'avance de votre aide!
Cordialement.
Frédéric