運行未登錄到客戶端的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