人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

以下のようなことをやりたいのですが、
サンプルコード(VBA?)をご教示ください。

環境:Microsoft Outlook 2003

トリガー:特定の件名のメールを受信
動作:自動的にメール本文をテキストファイルへコピーし、
日付のファイル名でテキストファイルを、デスクトップ上に保存

●質問者: threemenz69
●カテゴリ:コンピュータ
✍キーワード:Microsoft Outlook VBA コピー コード
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● Mook
●60ポイント

こんな感じでどうでしょうか。

Option Explicit
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
 Const SaveSubject = "保存したいタイトル名" ' このタイトルを含むメールを保存
 
 Dim objMail As MailItem
 Dim entID As Variant
 For Each entID In Split(EntryIDCollection, ",")
 Set objMail = Session.GetItemFromID(entID)
 
 If InStr(objMail.Subject, SaveSubject) > 0 Then
 SaveFile objMail
 End If
 Next
End Sub

Sub SaveFile(objMail As MailItem)
 Dim fso
 Set fso = CreateObject("Scripting.FileSystemObject")

 Dim ws
 Set ws = CreateObject("WScript.Shell")
 
 Dim filePath
 filePath = ws.SpecialFolders("Desktop")

 filePath = filePath & "\" & Format(objMail.ReceivedTime, "YYYYMMDD_HHNN") & ".txt"

 With fso.CreateTextFile(filePath, True)
 .Write objMail.Body
 .Close
 End With
End Sub
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ