Outlook 自动保存邮件

cenleij

本人不会VBA，在网上找了一段代码可以自动保存附件，现在有几个问题希望可以帮忙解答。

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "D:\MO\bbc\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub

1.自动保存的附件是否可以自动保存时修改附件文件名同邮件标题
2.如何修改代码为自动保存整个邮件
3.自动保存附件或者电邮的时候是否可以自动新建一个以邮件标题命名的文件夹

闻启学

邮件标题 所指的是 邮件主题 ？？

cenleij

闻启学 发表于 2019-10-20 09:17
邮件标题 所指的是 邮件主题 ？？

是的，请问有办法么，谢谢！