运行未登录到客户端的Outlook VBA代码

Question

我在非人员邮件文件中有VBA代码。我需要它运行，没有任何人登录到该Outlook帐户。它将Excel附件保存到网络共享中（见下文）。目前它被设置为针对所有新来的邮件运行。

---

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) 

Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
Dim dateFormat 
dateFormat = Format(Now, "mmdd H-mm") 

saveFolder = "C:\Test\One" 

For Each objAtt In itm.Attachments 
    If Right(objAtt.FileName, 3) = "xls" Or Right(objAtt.FileName, 4) = "xlsx" Then 
    objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName 
    Set objAtt = Nothing 
    End If 
Next 

End Sub 

---

是否有可能自动运行该规则没有被登录到Outlook客户端运行？

Answer 1

你不能。

“因为Outlook Visual Basic for Applications代码在客户端上运行，所以Outlook必须运行代码才能运行。”

http://support.microsoft.com/kb/324568