1

次のコードを使用して、電子メールの写真を特定のフォルダーに保存しています。

Private Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Temp\"

For Each objAtt In itm.Attachments
If objAtt.FileName <> "image001.gif" Then
    objAtt.SaveAsFile saveFolder & "\" & itm.Subject & ".JPG"
End If

Set objAtt = Nothing
Next
End Sub

しかし、私はそれを実際に機能させることはできません。ThisOutlookSession に、ルールに添付されたモジュールとして保存しようとしましたが、何も保存されていません。

また、メールのコメントを本文の [COMMENT] タグに特定のテキストが書き込まれるテキスト ファイルに保存する別のスクリプトを作成することも考えています。これは可能ですか？

4

2 に答える 2

2

パスに余分な「\」があります。

objAtt.SaveAsFile saveFolder & itm.Subject & ".JPG" を試してください

または saveFolder = "C:\Temp"

于 2013-10-23T02:40:41.453 に答える
1

これは私が仕事をするようになったコードです:

Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment

Dim dateFormat
dateFormat = Format(Now, "yyyy-mm-dd")

'Message subject should be the meter serial number i.e.K11TB00864
Dim subject
subject = Trim(itm.subject)

Dim saveFolder As String
saveFolder = "C:\Temp\Photo"

For Each objAtt In itm.Attachments
If objAtt.FileName <> "image001.gif" Then
objAtt.SaveAsFile saveFolder & "\" & itm.subject & " " & dateFormat & ".jpg"
End If

Set objAtt = Nothing
Next
End Sub
于 2013-10-29T12:09:52.483 に答える