これも便利!添付ファイル付き返信メールをマクロ(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
関連記事
-
-
これは便利!メールの自動移動!Outlookのメールをマクロ(VBA)で移動させるの巻
はじめに 会社のメーラーはOutlookを利用しています で、メール受信はIMAPサーバ経由
-
-
今週はネットを張った!今週のプチトマトときゅうり 永田農法
今週の出来事 きゅうりが大きくなってきたので、ネットを張りました これで生育に加速が付くと良
-
-
リーガルの靴を修理に出してきたの巻 リーガル日本橋店
はじめに リーガルのかかとが壊れちゃったので修理に出してきました 流れ 修理する靴を店舗に
-
-
あっという間に東京駅まで!関空→成田編 東京大阪日帰り ジェットスター
成田→関空よりも帰りの関空→成田の方があっという間に帰ってきた感じです 大阪出張、帰り
-
-
年末の忙しい時期にふるさと納税で焼肉ジンギスカンセットとA4等級・鹿児島産黒毛和牛すき焼き&鹿児島県大隅産うなぎ2尾(無頭)セットを申し込んだの巻
写真提供:フリー写真素材ぱくたそ はじめに 年末の忙しい時期に、ふるさと納税を申し込みました
-
-
突然やってきた! 今なら1,000ポイントプレゼント! 楽天マート
楽天マートって生協の宅配システムと同じです 突然やってきましたw 楽天マートのカタロ
-
-
楽天オークションからジャンクなiPhone4がやってきたの巻【入手編】
はじめに 楽天オークションでiPhone4 16GBを落札したのは前回の通りです で、オ
-
-
完熟プチトマトを1つ収穫!今週のプチトマトとキュウリ 永田農法
今週のできごと トマト1つが完熟しました 長かった 収穫して、お弁当に投入です キュウリ
-
-
でっかいけど便利! 大型断裁機 ペーパーカッター YG-LN BA58A4 開封の儀
はじめに 本が多くなり、整理しなければならなくなったので、遅ればせながら、断裁機を買いました
-
-
月曜日は要注意! 日帰り1day大阪 JR東海ツアーズ
のぞみ品川発に乗ろうとすると始発で出発でした 日帰り1day大阪に乗車です 前回、利

