Extraire mail en pdf

Bonjour à tous,

j'arrive a faire une boucle sur les mails de ma boite Lotus Notes, et à les déplacer d'un dossier à un autre dans Lotus. Mais j'aimerai pouvoir extraire ces mails de Lotus si possible en format PDF.

Il faut peut etre s'inspirer de ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function moveToFolder(dbMailbox As NotesDatabase, docMailbox As NotesDocument, folderName As String) As Boolean Dim docMailBoxCopy As NotesDocument On Error GoTo handleError Set docMailBoxCopy = docMailbox.CopyToDatabase(dbMailbox) docMailBoxCopy.PutInFolder folderName, True docMailbox.Remove True On Error GoTo 0 moveToFolder = True Exit Function handleError: MsgBox "Error # " & Err & " : " & Error$ & " - line " & Erl, 16, "DEMOA Notes Error - moveToFolder" End Function

---

Merci de votre aide !

Est-ce que la bibliothèque PDFCreator pourrait m'aider ? Si quelqu'un si connait un peu plus :)