• はてなアカウントでログイン
• 無料ユーザー登録

みんなの回答

• Mook2011/03/27 01:48:11

  満足60pt

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

  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
  

  スター

この質問へのコメント

質問の情報

登録日時

2011-03-26 15:48:47

終了日時

2011-04-02 15:50:02

回答条件

1人3回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• おかず交換をしたいのですが、下記、いずれかでも良いので教えてください。 1. おかず交換会をしている場所…o9bot1111日前
• 二重整形って最小何歳でできるんですか匿名質問者1121時間前
• 日本の医療費の総額を知りたい。 家計と健保と自治体の助成金の3種で、医療機関の収入は成り立っていると思…匿名質問者1312日前
• 思春期で親がうざいときどうすればいいですか。匿名質問者21時間前
• 日本の音楽大学での（芸大を含む）でのソルフェージュでは、唱法としては、移動ドと固定ドと土地らが多いの…匿名質問者22時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ