Índice
Você pode desejar obter uma lista de todos os e-mails devolvidos no Outlook. Este código deve ajudá-lo a começar:
| 1234567891011121314151617181920212223242526 | Dim outOutlook As New Outlook.ApplicationDim outNamespace como Outlook.NameSpaceDim myInbox As Outlook.MAPIFolderDim outItems As Outlook.ItemsDim outItem As ObjectDefina outNamespace = outOutlook.GetNamespace ("MAPI")Set myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Definir outItems = myInbox.ItemsDoCmd.Hourglass True'Recuperar e-mails com falhaPara Cada outItem Em outItemsIf InStr (outItem.Subject, "Delivery Status Notification (Failure)")> 0 ThenDebug.Print outItem.SubjectFim sePróximoDoCmd.Hourglass FalseDefinir outOutlook = NothingDefinir outNamespace = NothingDefinir outItem = Nothing |
https://bytes.com/topic/access/answers/954203-retrieve-list-bumped-email-addresses-outlook-into-access
