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 : Sélectionner tout - Visualiser dans une fenêtre à part Call SubSave(Item)Puis, plus tard, je le recharge pour le traiter :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Dim Item As Outlook.MailItem LIGNE = SubLoad Set Item = LIGNEN'é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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Si quelqu'un peut me dépatouiller ce serait très sympa
Merci d'avance
Partager