2

このコードは、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

みんな、ありがとう!

4

1 に答える 1

2

私たちのチャットに基づくと、解決策は次のとおりだったようです。

  1. VB マクロ プロジェクトからすべてをテキスト ファイルにコピーします。テキストファイルをドライブに保存します。
  2. すべてを閉じて、コンピューターを再起動します。
  3. C:\Documents and settings<yourusernamehere>\Application Data\Microsoft\Outlook フォルダーに移動します。
  4. ファイル VBAProject.otm を削除するか、(より適切かつ安全に) VBAProject.old または類似の名前に名前を変更します。
  5. Outlook を開く
  6. VB マクロ エディタを再度開きます。
  7. テキスト ファイルからコードを貼り付けます。

[Arcane Code の厚意による指示]

于 2012-11-15T00:26:08.100 に答える