带有条目 ID 的邮件详细信息

Posted 2023-04-18

【中文标题】带有条目 ID 的邮件详细信息

【英文标题】：Mail details with Entry Id

【发布时间】：2014-01-26 10:58:50

【问题描述】：

我有 Outlook 邮件条目 ID，我想要该条目 ID 的详细信息，即收件人、主题、正文等。

电子邮件仍在收件箱中，没有移动到任何地方

我用 VBA 写代码

提前谢谢..

Private Sub CommandButton4_Click()
i = 0
j = 1

暗淡路径，文件名作为字符串 设置 currentExplorer = Application.ActiveExplorer 设置选择 = currentExplorer.Selection

        Set currentMail = objNameSpace.GetItemFromID("000000000AB85207D8C3664BA439B3CE1603D186070019BED8705003484BACA686B84F9C6E880000006DE67E000019BED8705003484BACA686B84F9C6E880000428CEF9B0000")
                MailTo = currentMail.To
                MailSubject = currentMail.Subject
                MailBody = currentMail.Body
                MailDateTime = currentMail.CreationTime
                attcount = currentItem.Attachments.Count

        For j = 1 To attcount + 1


            'FileName = "\\wipfs01\ES Quality\Personal Folders\Mahesh\Tools\Sorting-Telus\Attachment\" & Atmt.FileName
            'Atmt.SaveAsFile FileName

            Set chk = UserForm2.Controls("chkn" & j)

            If chk.Value = True Then

                path = SaveAttachment("\\wipfs01\ES Quality\Personal Folders\Mahesh\Tools\Sorting-Telus\Attachment\PO\")
                FileName = path & currentItem.Attachments(j).FileName
                currentItem.Attachments(j).SaveAsFile FileName

                Set currentMail = currentItem
                MailTo = currentMail.To
                MailSubject = currentMail.Subject
                MailBody = currentMail.Body
                MailDateTime = currentMail.CreationTime
                chk.Visible = False
            End If


         Next j

    'MsgBox MailTo & vbCrLf & MailSubject & vbCrLf & MailBody & vbCrLf & MailDateTime

结束子

【问题讨论】：

你应该发布一些代码。您尝试解决此问题的方法。

其他方式可以关闭或不回答问题

@MikroDel 我添加了代码

非常非常好！现在是个好问题

【参考方案1】：

使用 Namespace.GetItemFromID 使用其条目 ID 打开消息。