これも便利!添付ファイル付き返信メールをマクロ(VBA)で作成するの巻
公開日:
:
最終更新日:2017/05/23
エクスペリエンス
はじめに
VBAで添付ファイル付きの返信メールを作成しようとしたところ、一発では作れませんでした
だもんで、自分で作ってしまいましょう
内容
最初に参考にしたサイトはこちら
残念ながらOUTLOOK2013では動作しませんでした
う~ん
でもプログラムを見るとやり方が判ったので作成です
実現方法は以下の通りです
- 返信メール、転送メールを作成
- 返信メールには添付ファイルがなく、転送メールには宛先、件名がない状態
- なので添付ファイルが付いた転送メールに返信メールの宛先、件名をコピーすれば、問題解決w
もともと、VBAで添付ファイル付き返信メールはサポートされていません
返信メール、転送メールを組合わせると簡単にできます
アルゴリズムは簡単ですねw
仕様
内容:
カーソルにあるメールを添付ファイル付きで返信メールとして作成
動作確認:
Outlook2013
Windows7
ソース
Public Sub リプライ() '内容: ' 添付ファイル付きリプライメールの作成 'プログラム: ' 元メールから転送メールと返信メールを作成 ' 転送メールに返信メールの宛先と件名をコピーして出来上がり 'オブジェクト作成 Dim objMail As Outlook.MailItem Dim objReply As Outlook.MailItem Dim objForward As Outlook.MailItem 'リプライメール確定 If TypeName(Application.ActiveWindow) = "Inspector" Then Set objMail = ActiveInspector.CurrentItem Else Set objMail = ActiveExplorer.Selection(1) End If '返信内容コピー Set objReply = objMail.ReplyAll Set objForward = objMail.Forward '宛先、件名コピー objForward.Subject = objReply.Subject objForward.To = objReply.To objForward.CC = objReply.CC '表示 objForward.Display objReply.Close olDiscard End Sub
まとめ
やり方は判ってしまえば簡単です
MSは、なぜ添付ファイル付き返信メールをVBAでサポートしないんでしょうね
PC
関連記事
-
ScanSnap iX500の電源が入らなくなって修理に出して無事戻ってきたの巻
はじめに ScanSnap iX500の電源が入らなくなったので修理に出しました 幸いなこと
-
【青春18きっぷ:2018年夏その2】ラーメン二郎京都店!ブルーボトル!二条城にも行く京都満腹お土産ツアー
一言 実家浜松から京都まで何とか青春18きっぷでの行動範囲でした はじめに 実家の浜松から
-
早い! 車検証と車検を入手 車検のコバック
やってきました、車検証 車検のコバックで先日、検査を受けました 無事通過で、あとは車検が
-
乗換え2回!浜松→東京 青春18きっぷ 2014年冬 その3
一言 今回、乗換え2回で楽チンでした はじめに 本日で帰宅です 帰りも青春18きっぷで帰
-
東京大阪の往復はこれが便利! 日帰り1day大阪の予約の巻
日帰り1day大阪で月曜日出発は便が限られているとは知らんかったよ 9/9に大阪出張と
-
【公開】ファミリーバザール2016年冬の陣!衣料、日用雑貨がリーズナブル!第75回岩本町・東神田ファミリーバザールで買ってきたの巻
はじめに 今回も2016/11/25~11/27に開催された第75回岩本町・東神田ファミリ
-
【青春18きっぷ:2018年夏その1】座っていく東京→浜松の帰省ツアー
一言 始発が出る駅で乗り換えると座っていけます はじめに 今回、青春18きっぷで浜松まで帰
-
移動時間が長い!成田→関空編 東京大阪日帰り ジェットスター
ジェットスターはリーズナブルですが、時間が掛かりました さて、ジェットスターで東京大阪
-
スマホでハード・キーボード打ちは楽! Nexus7のキーボードインプレッション&設定【Google NEXUS7専用】Bluetooth接続キーボード兼スタンド兼カバー
やっぱりPCでキーボードを打ちなれているので、スマホでのキーボード打ちも楽です さて、
-
【青春18きっぷ:2018年夏 その0】今年も大黒屋さんで買ってきたの巻(2018.8.20追加)
はじめに 今年の帰省は久しぶりに青春18きっぷで帰って見ようと思い、きっぷを買ってきました