使用收件箱規則從Outlook 2010自動下載附件到本地或網絡文件夾

Question

我有這段代碼，它適用於一臺計算機上的Outlook 2010 64位，但不能在運行32位的另一臺計算機上運行。我不認爲這與32bit/64有什麼關係，但只是想提一下它。

我已經嘗試了一切，禁用宏，將Outlook裏面出來，不能讓這個代碼工作。

也許第二眼會找到我丟失的東西：

Sub saveAttachtoDisk(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
Dim dateFormat 
dateFormat = Strings.Format(Now(), "mm_dd_yyyy_HH_MM_SS_AMPM") 
saveFolder = "C:\Users\Jarvis\Desktop\Test" 
For Each objAtt In itm.Attachments 
objAtt.SaveAsFile saveFolder & "\" & "My_Data_" & dateFormat & ".csv" 
Set objAtt = Nothing 
Next 
End Sub 

謝謝大家！

Answer 1

Based on our chat，似乎解決方案是：

1. 東西複製出來你的VB宏項目的，到一個文本文件中。將文本文件保存到您的驅動器。
2. 關閉一切，重新啓動計算機。
3. 轉到您的C：\ Documents and settings \\ Application Data \ Microsoft \ Outlook文件夾。
4. 要麼刪除文件VBAProject.otm，要麼（更好，更安全）重命名爲VBAProject.old或某些類似的名稱。
5. 打開Outlook
6. 重新打開VB宏編輯器
7. 粘貼，從文本文件中的代碼。

[Instructions courtesy of Arcane Code]