Spisie treści
Możesz chcieć uzyskać listę wszystkich odrzuconych wiadomości e-mail z programu Outlook. Ten kod powinien pomóc Ci zacząć:
| 1234567891011121314151617181920212223242526 | Dim outOutlook jako nowy Outlook.ApplicationDim outNamespace As Outlook.NameSpacePrzyciemnij moją skrzynkę odbiorczą jako Outlook.MAPIFolderDim outItems As Outlook.ItemsPrzyciemnij element jako obiektSet outNamespace = outOutlook.GetNamespace("MAPI")Ustaw myInbox = outNamespace.GetDefaultFolder(olFolderInbox)Set outItems = myInbox.ItemsDoCmd.Klepsydra prawda„Pobierz nieudane wiadomości e-mail”Dla każdego outItem w outItemsJeśli InStr(outItem.Subject, "Powiadomienie o stanie dostarczenia (awaria)") > 0 WtedyDebug.DrukujPozycja.TematZakończ, jeśliNastępnyDoCmd.Klepsydra FałszWystartujOutlook = NicSet outNamespace = NicSet outItem = Nic |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
