Astuces Excel
  1. Astuces Excel
  3. L'access aux informations d'email Outlook dans la feuille de calcul Excel (VBA): corps, HTMLbody, RTFbody est <> vide
Intereting Posts
Formule compliquée utilisant INDIRECT, ADDRESS et MATCH – existe-t-il une meilleure façon? comment sélectionner des lignes selon une autre colonne Le script Python avec xlwings ne calcule pas les formules du tableau lorsqu'il est copié et collé d'un classur à l'autre Python, xlrd puis-je convertir xlsx en file csv sans connaître le nom de la feuille de calcul? Excel "La table externe n'est pas dans le format attendu." Excel NetWorkdays () La fonction embeddede échoue dans le PC japonais Erreur lors de l'exécution de la requête node-mssql Comment puis-je appuyer sur un button de ruban Addin d'Excel à l'aide de C #? (Reuters Excel Addin) Perl excel en pdf Ajout de valeur de sum à la cellule active VBA excel Comment get une valeur de cellule à l'intérieur de "marques de décision", en utilisant COUNTIF? Comment placer le code Excel VBA sur l'événement de sauvegarde Pourquoi mon entête Content-Length est-il incorrect? Geting des valeurs de OleDbDataReader Suppression de dupes dans une cellule unique, VBA nestede

L'access aux informations d'email Outlook dans la feuille de calcul Excel (VBA): corps, HTMLbody, RTFbody est <> vide

Merci d'avance pour l'aide … mon Googleness m'a échoué aujourd'hui.

J'ai trouvé de nombreuses sources sur l'access aux informations de messagerie avec excel VBA, et pour la plupart, je peux les faire fonctionner. Mais pour une raison quelconque, la partie la plus critique, le corps du courrier électronique, est vide. 

Dim myOlApp As Object, myNameSpace As Object Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myfolders = myNameSpace.Folders n = 1 Do Until myfolders.Item(n) = "xxxxx" n = n + 1 Loop Set myfolder = myfolders.Item(n) Set myfolder2 = myfolder.Folders("Inbox") c = 12 n = 36 For Each Item In myfolder2.Items itsj = Item.Subject itrt = Item.ReceivedTime itbo = Item.Body Cells(n, c) = itrt Cells(n, c + 1) = itsj Cells(n, c + 2) = itbo n = n + 1 Next Item

Tout semble fonctionner, sauf Item.Body. J'ai un

Erreur d'exécution "287": erreur définie par l'application ou définie par l'object

En regardant le corps, ou en l'occurrence: .HTMLBody ou .RTFBody, dans la vue locale, ils affichent tous une valeur de <>. J'ai essayé plusieurs courriels différents de différentes personnes et toujours le même résultat. J'ai également foré dans le dossier Locals tous les autres objects pour faire reference directement au courrier électronique et au même résultat. J'utilise Outlook 2010 et Excel.

Merci!

Je n'avais aucun problème avec le mien, sauf qu'il ne s'agissait pas de rien dans la cellule. Donc, je l'ai modifié tout simplement et je l'ai mis dans Application.ActiveSheet: 

 Dim myOlApp As Object, myNameSpace As Object Set myOlApp = CreateObject("Outlook.Application") Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myfolders = myNameSpace.Folders n = 1 Do Until myfolders.Item(n) = "xxxxx" n = n + 1 Loop Set myfolder = myfolders.Item(n) Set myfolder2 = myfolder.Folders("Inbox") c = 1 n = 1 For Each Item In myfolder2.Items itsj = Item.Subject itrt = Item.ReceivedTime itbo = Item.Body Application.ActiveSheet.Cells(n, c) = itrt Application.ActiveSheet.Cells(n, c + 1) = itsj Application.ActiveSheet.Cells(n, c + 2) = itbo n = n + 1 Next Item

Je suis sur Office 2010.