Bonjour,
Je voudrais envoyer un mail avec Lotus Notes via mon serveur IIS mais j'ai une erreur que je n'arrive pas à résoudre.
Le code:
L'erreur:
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 Dim Session Dim db Dim doc Set Session = CreateObject("Notes.NotesSession") Set db = Session.GETDATABASE("", "") Call db.OPENMAIL Set doc = db.CREATEDOCUMENT() With doc .Form = "Memo" .SendTo = "adresse..." .CopyTo = "adresse..." .subject = "Petit test" .body = "Ceci est un petit test d'envoi de message a partir du serveur" .From = Session.COMMONUSERNAME .PostedDate = Now .SAVEMESSAGEONSEND = True End With Call doc.SEND(True) Set Session = Nothing Set db = Nothing Set doc = Nothing
Erreur d'exécution Microsoft VBScript erreur '800a0046'
Permission refusée: 'CreateObject'
Je pense à un problème de droit mais je ne trouve pas.
Pouvez vous m'aider svp?
Partager