自动将 Outlook 邮件保存到指定的文件夹

2 回答

• 2

  **将 Outlook 中的宏安全性设置为低：**转到“文件”，“选项”，“信任中心”并打开“信任中心设置”，然后更改“宏设置”。在 Outlook 2007 和更早的版本中，它位于工具，宏安全性中。

  打开 VBA 编辑器：

  要将代码放入模块中：

  • 右键单击 Project1，然后选择“插入”>“模块”

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

  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/

  只需复制粘贴其代码并更改基本参数即可。像枪一样工作。

  回复于 2024-04-25T23:53:37+08:00
• -1

  您可以使用简单的脚本以及规则来 auto-save 文件夹附件。

  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

  回复于 2024-04-25T23:53:37+08:00