将outlook邮件自动保存到指定文件夹[已关闭]

将Outlook中的宏安全设置为低: 转到“文件”、“选项”、“信任中心”和“打开信任中心设置”,然后更改宏设置。在Outlook 2007及更早版本中,它的at工具是宏安全性。

打开VBA编辑器:

要将代码放入模块中,请执行以下操作:

1. 右键单击项目1并选择“插入”>单元

2. 将下面的宏复制并粘贴到新模块中。

       Public Sub SaveMsg(Item As Outlook.MailItem)
   Dim sPath As String
   Dim dtDate As Date
   Dim sName As String
   Dim enviro As String 
   enviro = CStr(Environ("USERPROFILE"))
   sName = Item.Subject
   ReplaceCharsForFileName sName, "_" 
   dtDate = Item.ReceivedTime
   sName = Format(dtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
   vbUseSystem) & Format(dtDate, "-hhnnss", _
   vbUseSystemDayOfWeek, vbUseSystem) & "-" & sName & ".msg"
   ' use My Documents in older Windows.     
   sPath = enviro & "\Documents\"
   Debug.Print sPath & sName
   Item.SaveAs sPath & sName, olMsg
   End Sub
   Private Sub ReplaceCharsForFileName(sName As String, _
   sChr As String _
   )
   sName = Replace(sName, "/", sChr)
   sName = Replace(sName, "\", sChr)
   sName = Replace(sName, ":", sChr)
   sName = Replace(sName, "?", sChr)
   sName = Replace(sName, Chr(34), sChr)
   sName = Replace(sName, "<", sChr)
   sName = Replace(sName, ">", sChr)
   sName = Replace(sName, "|", sChr)
   End Sub
   

这个网站给了我一个完美的答案:

https://www.slipstick.com/outlook/archive-outlook/save-incoming-messages-hard-drive/

只需复制粘贴他们的代码并更改基本参数。 像枪一样工作。

您可以使用简单的脚本和规则将附件自动保存到文件夹。

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
   sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
   For Each oAttachment In MItem.Attachments
      oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
   Next
End Sub

https://www.extendoffice.com/documents/outlook/3747-outlook-auto-download-save-attachments-to-folder.html