Tartalomjegyzék
Érdemes megkapni az Outlook összes visszapattanó e -mail listáját. Ez a kód segíthet az indulásban:
| 1234567891011121314151617181920212223242526 | Dim outOutlook as New Outlook.ApplicationDim outNamespace mint Outlook.NameSpaceSaját bejövő üzenetek elhalványítása Outlook.MAPIFolder névenDim outItems as Outlook.It elemekDim outItem mint objektumSet outNamespace = outOutlook.GetNamespace ("MAPI")Állítsa be a MyInbox = outNamespace.GetDefaultFolder (olFolderInbox)Set outItems = myInbox.ItemsDoCmd.Oourglass True'Hibás e -mailek letöltéseMinden outItem In outItemsHa InStr (outItem.Subject, "Szállítási állapot értesítés (hiba)")> 0 AkkorHibakeresés.KinyomtatásItem.SubjectVége HaKövetkezőDoCmd.Oourglass HamisSet outOutlook = SemmiSet outNamespace = SemmiSet outItem = Semmi |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
