Discussion :

[boss_gama]

salut, je voudrais savoir comment se connecter à un smtp externe sous win xp pro. J'ai vu la référence à un objet message, mais je n'ai pas trouvé de détails dessus.

[Immobilis]

Salut,

Cherche peut-être du côté CDO.SYS?
http://www.w3schools.com/asp/asp_send_email.asp

A+

[boss_gama]

ca a l'air faisable. Je teste ca des que j'arrive à mettre la main sur le composant CDOSYS

[boss_gama]

j'ai l'erreur suivante quand j'envoie un mail:
La valeur "SendUsing" de configuration est non valide.
D'après microsoft, il ya 2 raisons possible:

• Microsoft Exchange 2000 Server n'est pas installé.
• Vous utilisez CDOSYS pour envoyer le courrier en utilisant éventuellement une page ASP.

Je sais pas trop pour la première raison, il faut que je contacte mon administrateur réseau qui n'est pas la aujourd'hui, mais comment je fais pour contourner la 2e? car mon objectif est évidemment d'envoyer un mail via une page asp ....

[Immobilis]

Montre un peu de code.

[boss_gama]

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
Set Mail = CreateObject("CDO.Message")
Mail.to = "***@***"
Mail.Subject = request.form("Sujet") 
Mail.HTMLBody = body
Mail.From = "***@***"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = HostMail
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Mail.Configuration.Fields.Update 
set pjointe = fs.GetFolder(chemin)
	for each item in pjointe.Files
		mail.AddAttachment chemin & item.Name
	Next
set pjointe = nothing
'dans le cas d'une erreur
On Error Resume Next
Mail.Send

[Immobilis]

Ben faudrait que tu regardes mieux l'exemple du paragraphe : "Sending a text e-mail using a remote server".
Il te manque un parametre...