• 締切済み

アウトルックのVBA添付ファイルの保存について

アウトルックのVBAについて、 受信と同時に添付ファイル（Excel）をフォルダに自動保存したいのですが下記条件があります。 １．添付ファイル名：*Ａ日報*　（「Ａ日報」を含むファイル名） 　　差出人：Aさんのみ 　　フォルダ；デスクトップの「Aさんの日報」フォルダ ２．添付ファイル名：*Ａ議事録*　（「Ａ議事録」を含むファイル名） 　　差出人：Aさんのみ 　　フォルダ；デスクトップの「Aさんの議事録」フォルダ ３．添付ファイル名：*Ｂ日報*　（「Ｂ日報」を含むファイル名） 　　差出人：Bさんのみ 　　フォルダ；デスクトップの「Bさんの日報」フォルダ ４．添付ファイル名：*Ｂ議事録*　（「Ｂ議事録」を含むファイル名） 　　差出人：Bさんのみ 　　フォルダ；デスクトップの「Bさんの議事録」フォルダ ５．添付ファイル名：*Ｂ報告書*　（「Ｂ報告書」を含むファイル名） 　　差出人：Bさんのみ 　　フォルダ；デスクトップの「Bさんの報告書」フォルダ http://q.hatena.ne.jp/1218725545の方と良く似ているのですが、 同一人物から、ファイル名で保存先を変える方法がどうしても分かりません。。。 どうかよろしくお願いします！！

みんなの回答

回答No.1

リンク先と変わらんでしょ。 VBA の条件分岐について調べれば克服できる内容だと思う。 差出人の判断やファイル名の判断で、リンク先では単純な If 文だけど、ElseIf で 2個目の判断基準を追加するとか。 http://excelvba.pc-users.net/fol6/6_1.html Cさんとか 3つ目のファイルが登場することも視野に入れるなら If ～ ElseIfをやめて Select ～ Case を使うとか。

harusion77
質問者

補足

temtecomai2さん ご回答ありがとうございます！ まさに、Cさんとか3つ目のファイルが登場する可能性大なんで、「Select ～ Case」を使いたいのですが、私の知識不足で出来ません。。。 どうかもう少し教えて頂けませんか？？m(__)mm(__)m

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • Outlook　VBAについてです！！

    アウトルックのVBAについて、教えてください！！ アウトルックのVBAについて、 受信と同時に添付ファイル（Excel）をフォルダに自動保存したいのですが下記条件があります。 １．添付ファイル名：*勤務管理*　（「勤務管理」を含むファイル名） 　　差出人：Aさんのみ 　　フォルダ；デスクトップの「Aさん勤務管理」フォルダ ２．添付ファイル名：*勤務管理*　（「勤務管理」を含むファイル名） 　　差出人：Bさんのみ 　　フォルダ；デスクトップの「Bさん勤務管理」フォルダ 　（参考URL　http://q.hatena.ne.jp/1218725545） このように２つの条件を入れる場合にはどのように記載すれば 良いのでしょうか？ 参考URLにあるものを用いて、１つの設定はできるのですが 2つ目の条件（この場合、Bさんの条件）を追加できません！！ 本当に初心者なので、ぜひともお力を貸してください！！

  • アウトルックのVBAについて教えてください！！

    アウトルックのVBAについて、 受信と同時に添付ファイル（Excel）をフォルダに自動保存したいのですが下記条件があります。 １．添付ファイル名：*勤務管理*　（「勤務管理」を含むファイル名） 　　差出人：Aさんのみ 　　フォルダ；デスクトップの「Aさん勤務管理」フォルダ ２．添付ファイル名：*勤務管理*　（「勤務管理」を含むファイル名） 　　差出人：Bさんのみ 　　フォルダ；デスクトップの「Bさん勤務管理」フォルダ ３．添付ファイル名：*勤務管理*　（「勤務管理」を含むファイル名） 　　差出人：Cさんのみ 　　フォルダ；デスクトップの「Cさん勤務管理」フォルダ ４．添付ファイル名：*勤務管理*　（「勤務管理」を含むファイル名） 　　差出人：Dさんのみ 　　フォルダ；デスクトップの「Dさん勤務管理」フォルダ ５．添付ファイル名：*勤務管理*　（「勤務管理」を含むファイル名） 　　差出人：Eさんのみ 　　フォルダ；デスクトップの「Eさん勤務管理」フォルダ 　（参考URL​http://q.hatena.ne.jp/1218725545​） 本当に初心者なので、ぜひともお力を貸してください！！

  • Excel VBAでOutlookの添付保存

    Excel VBAでOutlookで受信したメールの添付ファイルをマイドキュメントに保存し、保存が完了したらールを削除するしたいです。 会社のメールはOutlookマクロが規制されており使用できません。 Excel VBAで実現できますか？ どのようなコードをかけばよいですか？

  • Outlook2003 添付ファイルを一括で保存したい

    添付ファイルのあるメールが1000通程あり、添付ファイルを全て保存したいのです。（この作業は毎月あります。。。） 一括で保存する方法をご存知でしたら教えてください。 ・Outlook2003を使用 ・添付ファイルの数は、１メールに１ファイルのみです ・差出人は毎回決まっています。 ・件名と添付ファイルには「キーワード」という文字が含まれています 　※ファイル名の重複はありません よろしくお願い致しま

  • Outlookの添付ファイルを一括保存したい。かつ同名の添付ファイルは

    Outlookの添付ファイルを一括保存したい。かつ同名の添付ファイルは自動的に別名保存したい。ファイル名の後に、１，２，３という具合にナンバーを付けて。 あらかじめ指定したフォルダに、現在開いているフォルダにあるすべてのメールについて、件名・添付ファイル名に文字列"キーワード"が含まれていれば、保存する。しかも、同名の添付ファイルがあったら、ファイル名の後ろにナンバーを付けて別名保存したい。そのようなマクロを教えてください。http://okwave.jp/qa/q3544497.html ↑上のがとても参考になるのですが、これだと同名ファイルは上書きされてしまいます。 どうぞ、よろしくお願いします。

  • OutlookのVBAについて教えてください

    はじめまして。 Outlookにて仕訳ルールの処理にて 特定のアドレスの方からのメールを仕訳け、さらに 添付ファイルを保存する。という処理を行っています。 添付ファイルの保存自体はネットでのVBAを参考に 作成することができました。 ただ、OutLook起動時に複数件、同じメールがある場合、 一番古いメールの添付ファイルのみが保存されてしまっているようです。 解決方法がわかる方、教えてください。 やりたいことは以下のとおりです。 宜しくお願い致します。 ■実現したいこと ・件名Aのメールの場合：添付ファイルをフォルダーAへ保存 ・件名Bのメールの場合：添付ファイルをフォルダーBへ保存 ・件名Cのメールの場合：添付ファイルをフォルダーCへ保存 ・件名Dのメールの場合：添付ファイルをフォルダーDへ保存 ■OutLookのVBA Public Sub SaveAttachments(objMsg As MailItem) Const SAVE_Dir = "C:\" Dim objFSO As Object Dim objAttach As Attachment Dim strFileName As String Dim c As Integer: c = 1 Dim flg As Integer: flg = 1 Dim SAVE_PATH As String Set objFSO = CreateObject("Scripting.FileSystemObject") ' 件名により、保存先のパスを変更します。 SAVE_PATH = SAVE_Dir If VBA.Right(SAVE_PATH, 1) <> "\" Then SAVE_PATH = SAVE_PATH & "\" Select Case objMsg.Subject Case "件名A" SAVE_PATH = SAVE_PATH & "フォルダーA" Case "件名B" SAVE_PATH = SAVE_PATH & "フォルダーB" Case "件名C" SAVE_PATH = SAVE_PATH & "フォルダーC" Case "件名D" SAVE_PATH = SAVE_PATH & "フォルダーD" Case Else flg = 0 End Select If VBA.Right(SAVE_PATH, 1) <> "\" Then SAVE_PATH = SAVE_PATH & "\" ' 指定のフォルダに添付ファイルを格納 If flg = 1 Then For Each objAttach In objMsg.Attachments With objAttach strFileName = SAVE_PATH & objAttach.FileName .SaveAsFile strFileName End With Next End If End Sub

  • Outlook Express添付ファイルの保存について

    受信メールで添付ファイルを保存したい場合なのですが、 添付ファイルの保存を選んで参照をクリックすると フォルダの参照が出るのですが、 他のアプリケーションのように新しいフォルダをこのダイアログボックスでは作れないのでしょうか？ 添付データは各物件ごとに090916 ●●会社○○受信（内容） といった形でフォルダを作って保存しているので、 現在は別途エクスプローラーを開いて保存する場所にフォルダを作ってから添付保存で同じところに保存しています。 何か良い方法ございましたら教えて下さい。

  • 添付ファイルの保存

    Outlook Express6を使用して添付ファイルを保存する際、 特定のフォルダにドラッグアンドドロップして保存しています。 毎回、同じファイル名の為、上書で保存しているのですが、時々、ファイル名と拡張子の間に(1)や(2)が挿入されファイル名が変わってしまう事があります。添付ファイル名が同じメールを複数開いた状態で行うとこの現象が確実に起こる様ですが、1件しか開いていない場合でも発生することがあります。常に同じファイル名で保存したいのですが分かる方いらっしゃいましたらぜひ教えてください。 OSはWinXp pro SP1です。

  • Outlookで添付ファイルの貼り付け、保存ができません……

    以下は、私のパソコンで起きている現象です。 (1)Outlookで新規メールにファイルを添付しようとすると、 　次のエラーメッセージが表示され添付できません。 　　ファイル○○○○を作成できません。 　　ファイルの作成先フォルダを右クリックし、 　　ショートカットメニューの［プロパティ］をクリックして、 　　そのフォルダへのアクセス権を確認してください。 また、 (2)受信したメールに添付されているファイルを保存しようとすると、 　次のエラーメッセージが表示され保存できません。 　　添付ファイルを保存できません。 　　ファイル○○○○を作成できません。 　　ファイルの作成先フォルダを右クリックし、 　　ショートカットメニューの［プロパティ］をクリックして、 　　そのフォルダへのアクセス権を確認してください。 この現象はともに、特定の名前の付いたファイルのみに起こります。 (1)は私が、(2)は送信者が、ファイル名を変えれば回避できますが、都 合上、そういうわけにもいきません。このファイルのやりとりはこれ までにも頻繁にありましたが、今回のような現象は起きたことがあり ません。ファイルやフォルダの共有条件も設定を変えておらず、原因 が特定できず困惑しています。どなたか、おわかりになる方のお知恵 を拝借できればと思っております。よろしくお願いいたします。

  • EXCEL VBAで作成した　ファイルを　複製できますか？

    　ＥＸＣＥＬ　ＶＢＡで　名簿を作成しました。 　名簿はＭＯに　保存しました。 保存したファイルを　デスクトップに　コピーしました。 しかし、ファイルを開いても、マクロがうまく働きませんでした。 「同じファイル名のファイルがある・・・」のようなメッセージが出てしまいます。 　1台のコンピューターだけでなく、複数で使えるようにするには、ＶＢＡで作 成したファイルはどのように保存すればよいのでしょうか。教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する