自动另存邮件到D盘发件人文件夹中

TTBRD

请老师们帮忙看下，当有新邮件进来时，根据发件人自动另存到电脑硬盘D盘的收件人文件夹中，以下是我自己写的，但是出错，请看看怎么修改，谢谢！
Private Sub Application_NewMail()
Dim mlItem As Outlook.MailItem
If mlItem.SenderName = "XXX@163.com" Then
mlItem.SaveAS "D:\Mailbox\XXX\" & mlItem.FileName
End If
End Sub

闻启学

修改下  
Private Sub Application_NewMail()
Dim mlItem As Outlook.MailItem
If mlItem.SenderEmailAddress = "XXX@163.com" Then
mlItem.SaveAS "D:\Mailbox\XXX\" & mlItem.FileName
End If
End Sub

TTBRD

闻启学 发表于 2019-5-5 22:23
修改下  
Private Sub Application_NewMail()
Dim mlItem As Outlook.MailItem

老师，改了以后，还是出现运行时错误，提示对象变量或with块变量未设置，请看看是什么问题，谢谢！

闻启学

TTBRD 发表于 2019-5-6 08:12
老师，改了以后，还是出现运行时错误，提示对象变量或with块变量未设置，请看看是什么问题，谢谢！

加我QQ 417129126

lmswy

TTBRD 发表于 2019-5-6 08:12
老师，改了以后，还是出现运行时错误，提示对象变量或with块变量未设置，请看看是什么问题，谢谢！

最终搞定了吗？
我也是同样的需求：
Private Sub Application_NewMail()
    Dim myItem As Outlook.MailItem
    Set myItem = Application.ActiveExplorer.Selection.Item(1)
    MsgBox "来自：" & myItem.SenderName & "邮件主题：" & myItem
End Sub
问题出在红色字体部分，它是提到了之前鼠标选中的邮件，而不是新到邮件的信息，
所以这个要修改为类似于Target、ThisWorkbook的ThisNewMail，但不知道ThisNewMail给如何写？