Récupérer mailitem depuis fichier texte

Bonjour,

Pour des raisons liées à mon environnement sur lequel je n'ai pas les droits, j'ai besoin d'enregistrer dans un fichier texte l'identifiant du message que je veux traiter plus tard.

Donc j'appelle cette sub pour sauvegarder mon mail :

Code:

---

Call SubSave(Item)

---

Code:

---

1 2 3 4 5 6

Sub SubSave(ByVal SItem As Outlook.MailItem) FILE = FreeFile Open "mail.txt" For Output As FILE Print #FILE, SItem Close FILE End Sub

---

Puis, plus tard, je le recharge pour le traiter :

Code:

---

1 2 3

Dim Item As Outlook.MailItem LIGNE = SubLoad Set Item = LIGNE

---

Code:

---

1 2 3 4 5 6

Function SubLoad() As String FILE = FreeFile Open "mail.txt" For Input As FILE Line Input #FILE, LIGNE Close FILE SubLoad = LIGNE

---

N'étant pas un expert du VBA j'ai un pb pour assigner le string LIGNE qui contient mon identifiant de mail à Index qui est déclaré comme Outlook.MailItem = je n'ai pas trouvé la façon de faire ça correctement pour que ça ne plante pas Outlook et qu'ensuite je puisse utiliser Item

Si quelqu'un peut me dépatouiller ce serait très sympa
Merci d'avance

Finalement j'ai trouvé :

je dois sauvegarder dans mon fichier texte : Print #FILE, Item.entryID

puis, plus tard, à la relecture : Set Item = Application.Session.GetItemFromID (LIGNE)