Mục lục
Bạn có thể muốn nhận danh sách tất cả các email bị trả lại từ Outlook. Mã này sẽ giúp bạn bắt đầu:
| 1234567891011121314151617181920212223242526 | Dim outOutlook As New Outlook.Dim outNamespace Như Outlook.NameSpaceLàm mờ hộp thư đến của tôi dưới dạng Outlook.MAPIFolderDim outItems As Outlook.ItemsDim outItem As ObjectĐặt outNamespace = outOutlook.GetNamespace ("MAPI")Đặt myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Đặt outItems = myInbox.ItemsDoCmd.Hourglass True'Lấy lại các Email Không thành côngĐối với mỗi đầu ra Mục đầu raNếu InStr (outItem.Subject, "Thông báo Trạng thái Giao hàng (Thất bại)")> 0 ThìDebug.Print outItem.SubjectKết thúc nếuKế tiếpDoCmd.Hourglass SaiĐặt outOutlook = Không có gìSet outNamespace = Không có gìSet outItem = Không có gì |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
