Discussion :

[Manu3100]

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!!!

[kiki29]

Salut, déjà via une recherche ?

PS : Balise ton code

[Manu3100]

Salut,
Je ne suis pas un expert de VBA, j'apprend sur le terrain...


J'ai fais des recherches et j'ai trouvé qu'il faillait que que j'indique le serveur de ma Db (qui fini par .nsf) sur dans cette ligne dans la 2eme partie de la parenthèse.

Exemple:
Set Dir = Session.GetDatabase("", "mail-in\chgmb275.nsf")

Mais cela ne marche toujours pas...

Merci

[saidslaoui]

Bonjour

Il faut renseigner le serveur et le nom du fichier dans le texte suivant "notesSession.GetDatabase( "server", "dbfile" )", les informations demandées sont dans les propriété de la boîte générique

Bon courage