これも便利!添付ファイル付き返信メールをマクロ(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
関連記事
-
-
アフェリエイトを少し有利に!もしもアフェリエイトを申請、カエレバ、ヨメレバを設定してみたの巻
ちょっとアフェリエイトが有利になりそうです はじめ ブログのアクセス数もちょこっと伸びて
-
-
木場公園でブログ書きのノマドをしてみたの巻
はじめに 近所の木場公園でノマドをやってみました 普段は自宅でブログを書くのですが、気分転換
-
-
キュウリ1苗を植え替えた!今週のプチトマトとキュウリ 永田農法
今週のできごと その1 プチトマトを収穫 今回は種類を変えて2個 完熟したも
-
-
完熟プチトマトを1つ収穫!今週のプチトマトとキュウリ 永田農法
今週のできごと トマト1つが完熟しました 長かった 収穫して、お弁当に投入です キュウリ
-
-
大阪から東京まで東海道本線で帰宅!大阪→東京 青春18きっぷ その1
大阪出張の帰りに青春18きっぷで帰ってきました、遠かった 大阪出張です 今回は10時
-
-
UQ WiMAXでAtermWM3800Rを機器追加してみたの巻
WiMAXの機器追加解除も簡単でしたが、機器追加も簡単でした さて、前回、WiMAXの
-
-
Zeam Launcherでプリンストールのアプリは消せなかったの巻
残念ながら、Zeam Launcherでプリンストールのアプリは消せませんでした 某所
-
-
爆安!第73回2015年冬 岩本町・東神田ファミリーバザールに参戦して来たの巻
はじめに 今年も岩本町で行われるファミリーバザールに行ってきました お天気が良くてよかった
-
-
WAONがお得!イオンカード入会の巻 マックスバリュー
はじめに WAONのポイント還元がお得です どのくらいお得? 消費税が5%から8%にアップ
-
-
車検の前にオイル交換! オートバックス オイル交換
車検の前にオイル交換をします 久々のオートバックスへ 豊洲にあるスーパーオートバック

