このコードは、Outlook 2010 64 ビットの 1 台のコンピューターで動作しますが、32 ビットを実行している別のマシンでは動作しません。これは 32 ビット/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
みんな、ありがとう!