Discussion :

[Banjalex59]

Bonjour à tous,

Je suis confronté à un problème concernant l'envoi d'un mail avec fichier joint via Lotus 8.5 via une macro dans un fichier Excel2010.
Tout d'abord, il me faut préciser que la macro que j'utilise fonctionnait parfaitement avant que l'on me change mon ordinateur. Après changement du PC, je passe d'excel 2007 à 2010, la macro fonctionne toujours correctement SAUF (hé oui, voila le problème ;-)) lors de son lancement en automatique au petit matin via une tache programmée (cela fonctionnait avant le changement de poste).

L'erreur renvoyée par Lotus est la suivante:



Je ne trouve pas la solution à ce problème, le reste de la macro fonctionne pourtant correctement. D'ailleurs, elle ne fonctionne pas uniquement lors du lancement via la tache planifiée du matin (si je programme une tache planifiée dans la journée, cela fonctionne !!!). Enfin, la tache planifiée du matin lance également tout un ensemble de macro qui fonctionnent toutes correctement ...

Pour info, voici le code de la fonction VBA permettant d'envoyer le mail:

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Private Sub UseLotus()
 
 
    Dim Session As Object
    Dim Dir As Object
    Dim Doc As Object
    Dim Workspace As Object
    Dim EditDoc As Object
    Dim Wbk1 As Workbook
    Dim Attachement As Object
    Dim objet As Object
    'Dim POT As String
    Dim Fichierdemande As String
    Dim odoc As Object
    Dim objWorkbookCible As Workbook
    Dim objworkbooksource As Workbook
 
    Set Wbk1 = ThisWorkbook
    Set objworkbooksource = ActiveWorkbook
 
    auj = Now()
    MyDate = Format(auj, "dddd d mmmm yyyy")
    Nom_fichier = objworkbooksource.Worksheets(2).Name & "_" & MyDate
 
 
    Worksheets(2).Copy
 
    Set objWorkbookCible = ActiveWorkbook
 
    ActiveWorkbook.SaveAs "adresse_sur_le_reseau\" & Nom_fichier"
 
    objWorkbookCible.Close
 
 
    'POT = Wbk1.Worksheets(3).Cells(2, 5)
   ' Fichierdemande = "adresse_sur_le_reseau\nom_fichier"
 
On Error GoTo Traiteerreur
 
    'Création de la session 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 = "Sujet du mail "
    Doc.SendTo = Array("adresse mail")
 
    Doc.body = ""
 
    Set Attachement = Doc.CREATERICHTEXTITEM("test")
    Call Attachement.EMBEDOBJECT(1454, "", "adresse_sur_le_reseau\" & Nom_fichier & ".xlsx")
    'Call Attachement.EMBEDOBJECT(1454, "", objWorkbookCible)
 
    Doc.send False
 
    'Affichage du mail dans 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 "Il y a eu un problème de création automatique du mail", vbCritical, "Error"
        Sheets("Sommaire").Select
 
 
    Set Session = Nothing
    Set Dir = Nothing
    Set Doc = Nothing
    Set Workspace = Nothing
    Set EditDoc = Nothing
 
End Sub

Merci à tous pour votre aide,

Banjalex.

[Jean-Philippe André]

Salut,

en l'état, je dirai qu'il s'agit plus d'une erreur côté Lotus Notes, avec un fichier de configuration manquant

Investigue de ce côté dans un premier temps.

[Banjalex59]

Bonsoir jpcheck,

et merci pour ta réponse !

Je vais essayer de creuser de ce côté là avec le service support de la boite.

Mais comment expliquer que la macro fonctionne correctement quand je la lance manuellement ?
Si Lotus était mal configuré, il afficherait l'erreur tout le temps, non ?

Bonne soirée,

Alexandre.