Macro Import mail Lotus

Bonjour,

Je cherche une macro pour importer le body d'un mail non lu dans Lotus Notes.
J'ai trouvé quelques codes mais trop complexes et qui ne fonctionnent pas !
Si quelqu'un à déjà fait ça je suis preneur!

Cordialement Sylvain

Un des codes que j'ai trouvé :

Code:

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
Sub Initialize()
 
   Dim s As notessession
   Dim w As notesuiworkspace
   Dim doc As notesdocument
   Dim collection As notesdocumentcollection
   Dim db As notesdatabase
   Dim v As Variant
   Set s = New notessession
Set w = New notesuiworkspace
 
   Set db = s.currentdatabase
   Set collection = db.UnprocessedDocuments
   Set doc = collection.GetFirstDocument()
   Close
   Open "c:\body.txt" For Output As 1
   v = doc.getitemvalue("Body")
   Print #1, v(0)
   Close
   MsgBox v(0)
   v = atExplode(v(0), Chr$(13) + Chr$(10))
   Forall l In v
      MsgBox l
  End Forall
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function atExplode(ByVal s As String, div As String) As Variant
   ReDim result(0 To 0) As String
   Dim i As Integer
   Dim pos As Long
   Dim oldpos As Long
   Dim skip As Long
   oldpos = 1
   skip = Len(div)
   pos = InStr(s, div)
   Do Until pos = 0
      ReDim Preserve result(0 To i + 1)
      result(i) = Mid$(s, oldpos, pos - oldpos)
      i = i + 1
      oldpos = pos + skip
      pos = InStr(oldpos, s, div)
   Loop
   result(i) = Mid$(s, oldpos)
   atExplode = result
End Function