Discussion :

[gilardino]

Bonjour amis developpeurs,

J'ai récemment appris la technique d'envoi d'Email via des alias SMTP, en utilisant les objets CDO qu'offre VbScript voir la fonction ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub Envoyer_Mail(a_dest, cc_dest,cci_dest,  sujet, corps_msg, emetteur,smtp_server, server_port  )
	Set objEmail = CreateObject("CDO.Message")
 
 
 
	objEmail.to = a_dest
	objEmail.sujet = sujet
	objEmail.htmlbody = corps_msg
	objEmail.CC = cc_dest
	objEmail.BCC = cci_dest
	objEmail.From=emetteur
 
	objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp_server
	objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = server_port
 
	objEmail.Configuration.Fields.Update
	objEmail.Send
	set objEmail = Nothing
 
 End Sub

Cette technique est très intéressante mais relever l'inconvénient d'anonymat vu que n'importe quel serveur permis d'envoyer des Email en alias, peut utiliser n'importe quel alias y compris celui que j'utilise exemple : myalias, stockInfo, ..etc

Je voulais juste savoir s'il y a possibilité de d'envoyer un Email via un compte résident dans mon active directory, exemple : user : Info@mydomaine.com, pwd : 123pwd

autrement dit, j'ai le compte, je connais son mot de passe, et je veux envoyer un Email par le biais de ce compte

Et Merci d'avance.

[pc75]

Bonjour,

Tu ajoutes dans la config :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USER"
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PWD"
o

[gilardino]

ça parait simple et efficace, je vais l'essayer et je ne vous remercierai jamais autant.