Bonjours à tous,

Je suis bloqué sur un problème dans ma macro. Ce que j'essaye de faire est d'envoyer un mail à partir d'excel via Lotus Notes (sans qu'il l'envoi automatiquement, l'envoi se fait manuellement).
Le code que j'ai marche très bien!

Donc mon problème est celui la: Le mail s'envoie de mon adresse mail personnel et non pas de l'adresse mail commune de mon département.

Voici le code:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub UseLotus()
 
 
    Dim Session As Object
    Dim Dir As Object
    Dim Doc As Object
    Dim Workspace As Object
    Dim EditDoc As Object
 
 
On Error GoTo TraiteErreur
    'Creation of a memo in Lotus Notes
    Set Workspace = CreateObject("Notes.NotesUIWorkspace")
    Set Session = CreateObject("notes.NOTESSESSION")
    Set Dir = Session.GetDatabase("", "")
    Call Dir.OpenMail
 
    'Creation d'un document
    Set Doc = Dir.CreateDocument
 
        Doc.Form = "Memo"
        Doc.Subject = ActiveSheet.Range("A2").Value
        Doc.SendTo = ActiveSheet.Range("A1").Value
        Doc.Body = ActiveSheet.Range("A3").Value
 
 
    'Display the Mail in Lotus Notes
    Set EditDoc = Workspace.EditDocument(True, Doc)
    Set Session = Nothing
    Set Dir = Nothing
    Set Doc = Nothing
    Set Workspace = Nothing
    Set EditDoc = Nothing
 
    Exit Sub
 
TraiteErreur:
 
    MsgBox "Error with the Mail", vbCritical, "Error"
 
    Set Session = Nothing
    Set Dir = Nothing
    Set Doc = Nothing
    Set Workspace = Nothing
    Set EditDoc = Nothing
 
End Sub

Merci de votre aide!!!