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