Application_ItemSend中缺少Outlook MailItem属性

Question

我有以下代码，其中SenderName MailItem属性显示为空白。

Private Sub Application_ItemSend(ByVal MyItem As Object, Cancel As Boolean)
    Dim res As Integer

    ' The "Class" MailItem property is found
    If MyItem.Class = olMail Then

        ' This is coming up blank
        ' The "SenderName" MailItem property is not apparent
        MsgBox MyItem.SenderName

        res = MsgBox("Archive outgoing email?", vbQuestion + vbYesNo, "XYZ")
        If res = vbYes Then
            Call ProcessIt(MyItem)
        Else
            Cancel = True
        End If
    End If
End Sub

也许会有一些男生错误，并会对我错过的内容表示赞赏。

Outlook 2013 Windows 7

Answer 1

只有在实际发送邮件并将其移动到“已发送邮件”文件夹后，才会填充发件人相关属性。当Application.ItemSend事件触发时，消息仍未发送。

您最早可以访问已填充的所有属性的已发送邮件位于Sent Itens文件夹上的Items.ItemAdd事件中。