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

ベストアンサー

• Mook2008/08/15 02:18:13

  満足60pt

  今週は Outlook で動作確認できる環境がないので、動作の確認出来ていませんが、

  一応のサンプルです（多分動くとは思うのですが）。

  
  

  '-----------------------------------------
  Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
  '-----------------------------------------
      Dim ns As NameSpace
      Set ns = GetNamespace("MAPI")
      
      Dim mf As MAPIFolder
      Set mf = ns.Folders("個人用フォルダ").Folders("受信トレイ")
      
      Dim gf As MAPIFolder
      
      Dim mis As Variant
      mis = Split(EntryIDCollection, ",")
      
      Dim mai As MailItem
      Dim mi As Variant
      Dim oFile As Object
      For Each mi In mis
          Set mai = Application.Session.GetItemFromID(mi)
  '★名前で確認する場合
          If mai.SenderName = "Aさん" Then
  '★アドレスで確認する場合
  '---    If mai.SenderEmailAddress = "A-san@foo.bar.ne.jp" Then
              For Each oFile In mai.Attachments
  '★ファイル名のチェック
                  If InStr(oFile.Filename, "勤怠管理") > 0 Then
                      saveFile oFile
                  End If
              Next
          End If
      Next
  End Sub
  
  '-----------------------------------------
  Sub saveFile(objFile As Object)
  '-----------------------------------------
      Dim Shell, myPath
      Set Shell = CreateObject("Shell.Application")
      Set myPath = Shell.BrowseForFolder(&O0, "ファイルを保存するフォルダを選んでください", &H1 + &H10, "C:\")
      If Not myPath Is Nothing Then
          objFile.SaveAsFile myPath.Items.Item.Path & "\" & objFile.DisplayName
      End If
  End Sub
  

  
  

  指定フォルダの意味が、毎回指定ではなく、固定のフォルダを指定しておきたいの

  でしたら、上記の関数部分を下記のように直接指定してください。

  '-----------------------------------------
  Sub saveFile(objFile As Object)
  '-----------------------------------------
      objFile.SaveAsFile "C:\MyData\SaveFolder\" & objFile.DisplayName
  End Sub
  

  
  

  正常に動かない場合はコメントください。日曜の夜にはフォローアップします。

  
  

  参考URL

  http://degitalmobile.seesaa.net/article/34346539.html

  http://officetanaka.net/excel/vba/tips/tips39.htm

  http://peiyorin.cocolog-nifty.com/blog/2007/04/outlook_vba_0c9f....

  スター

  • hananeko_0 2008/08/16 00:24:00

    今回もワクワクしながら確認しました！　

    アドレスで確認する＆固定フォルダへの保存で実行し

    そのフォルダを開くと・・・「すごい！本当に保存されてる！」(≧∇≦)b 感激っ

    今回もバッチリの回答で解決しました！

    参考HPも私の疑問にピッタリのページばかりでした！

    （自分でも時間をかけて探したのですが、こんなヒット系のページには会えませんでした）

    Mookさんの回答は毎回「本当にすごい」と心から感心してます。　（＾人＾）感謝♪

    A(*ﾟｰﾟ*)R(ｰﾟ* )I(ﾟ )G( )A( ﾟ)T(* ﾟｰ)O(*ﾟ▽ﾟ*)ﾉ~☆

その他の回答

この質問へのコメント

• Mook2008/08/15 14:47:10
  ファイル名のチェックが、「勤務管理」ではなく「勤怠管理」になっていました。
  正しく修正して動作確認をしてください。
• Mook2008/08/16 05:06:01
  無事に動いたようで何よりでした。

質問の情報

登録日時

2008-08-14 23:52:28

終了日時

2008-08-16 00:24:52

回答条件

1人3回まで

この質問のカテゴリ

• ビジネス・経営
• コンピュータ

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

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者19時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者119時間前
• 内定してほしいポケモンはいますか？匿名質問者20時間前

メニュー

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

PC版

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