Bonjour,

Alors voilà j'ai le script suivant :

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
Public Sub SendMail(Expediteur,Destinataire,Sujet,Message,Smtp,Port)
		Set Mail = CreateObject("CDO.Message")
		With Mail
			.From=Expediteur
			.To=Destinataire
			.Subject=Sujet
			.TextBody=Message
			.Configuration.Fields.Item _
			("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
			.Configuration.Fields.Item _
			("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Smtp
			.Configuration.Fields.Item _
			("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port
			.Configuration.Fields.Update
			.Send
		End With
End Sub
SendMail "ErreurSAV@noreply.net","aurelien@aide-info.fr","1","1","smtp.orange.fr","25"
Celui-ci marche parfaitement sous Windows XP pro SP3 et sous Windows 2000 server mais par contre sous SBS 2003 (Windows server 2003 small business services) il ne fonctionne pas. J'ai l'erreur suivante :



Merci d'avance pour vos réponses