Bonjour,
Alors voilà j'ai le script suivant :
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 :
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"
Merci d'avance pour vos réponses
Partager