2

我有 VBA 代码来查找特定 Outlook 文件夹中电子邮件中的附件并将它们保存到一个位置。

我有一个 Outlook 规则，将电子邮件发送到 Outlook 文件夹，然后触发宏。该代码不会在我的计算机上自动触发，但会在另一台计算机上触发。电子邮件进入，规则将其放入文件夹，但代码不运行。当我通过 VB 编辑器手动运行代码时，它会将附件保存在正确的位置。

我已检查以确保文件夹和路径名称正确（无论哪种方式，如果它们错误，则在我手动运行时代码将无法正常运行）。

展望规则：

消息到达后应用此规则

来自 xxxxxxxxxxxx

并在主题中带有 xxxx

并且仅在这台机器上

将其移至 xxxxx 文件夹

并运行 Project1.ThisOutlookSession.Save

VBA代码：

Sub Save(item As Outlook.MailItem)
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim msg As Outlook.MailItem

Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
Set olFolder = olFolder.Folders("xxxxxxx")
Set oApp = CreateObject("Shell.Application")

For Each myitem In olFolder.Items
  For Each att In myitem.Attachments
    att.SaveAsFile "\\.............\" & att.FileName
      myitem.Attachments.Remove 1
      myitem.Save
  Next
Next
End Sub
4

2 回答 2

0

传入的邮件项是子保存中的项目（项目为 Outlook.MailItem）。它没有在代码中使用。

稍后手动运行时，代码仍然会忽略传递的任何项目，但现在处理 olFolder 中的所有项目。

尝试这个：

Sub Save(item As Outlook.MailItem)
For Each att In item.Attachments
    att.SaveAsFile "\\.............\" & att.FileName
    item.Attachments.Remove 1
    item.Save
Next
End Sub
于 2014-11-30T15:14:16.227 回答
0

尝试删除文件（首先将代码保存在其他地方）... \Documents and Settings\\Application Data\Microsoft\Outlook\VbaProject.OTM

于 2019-07-11T03:12:06.877 回答