Question

我在Outlook中有VBA代码用于在发送＆＃39;此Outlook会话后发送特定电子邮件（在主题行中有三个星号）。

当Outlook第一次打开时，它可以正常工作，但是，第二天我发现VBA代码无法在一夜之间运行，只有在我关闭\重新打开Outlook时才能正常运行？

这种情况才开始发生在公司搬到2007年和2007年的时候。 2010版本。

我需要它在发送的邮件上不断运行，因为我早期批处理过程会发送大量我希望从已发送文件夹中删除的电子邮件，并在每个邮件发送后将其放在已删除的文件夹中。 / p>

这是代码。由于之前运行良好，我只能假设较新的Outlook版本需要一些额外的触发器来保持这个Outlook会话＆＃39;开放或某种性质。

任何想法都会受到赞赏。

Option Explicit
Private WithEvents olSentItems As Items
Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.GetNamespace("MAPI")
Set olSentItems = objNS.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub olSentItems_ItemAdd(ByVal Item As Object)
If Item.Class = olMail And InStr(1, Trim(Item.Subject), " * * * ", vbTextCompare) > 0 _
Then
Item.Delete
End If
End Sub

Answer 1

我建议您查看信任中心设置＆gt;＆gt;宏。 Office 2003以不同的方式使用它，它在Office 2003之后全新。

尝试不同的设置，看看哪一个适合您的需要。它们总共有四个设定级别。

最好只使用一个版本的Outlook。如果您同时拥有这两者，请不要在2007年和2010年之间进行交流。 Outlook版本不能与错误的创建共存。

此页面应该能够提供更多详细信息。

Click Here

Outlook VBA第二天停止运行

1 个答案: