[Problèmes]Function avec CreateObject("CDO.Message") fonctionne pas sous SBS 2003
Bonjour,
Alors voilà j'ai le script suivant :
Code:
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 :
http://img23.imageshack.us/img23/4049/sanstitrerje.jpg
Merci d'avance pour vos réponses
