これも便利！添付ファイル付き返信メールをマクロ（VBA）で作成するの巻

はじめに

VBAで添付ファイル付きの返信メールを作成しようとしたところ、一発では作れませんでした
だもんで、自分で作ってしまいましょう

内容

最初に参考にしたサイトはこちら

残念ながらOUTLOOK2013では動作しませんでした
う～ん
でもプログラムを見るとやり方が判ったので作成です

実現方法は以下の通りです

• 返信メール、転送メールを作成
• 返信メールには添付ファイルがなく、転送メールには宛先、件名がない状態
• なので添付ファイルが付いた転送メールに返信メールの宛先、件名をコピーすれば、問題解決ｗ

もともと、VBAで添付ファイル付き返信メールはサポートされていません
返信メール、転送メールを組合わせると簡単にできます
アルゴリズムは簡単ですねｗ

仕様

内容：
　カーソルにあるメールを添付ファイル付きで返信メールとして作成

動作確認：
　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でサポートしないんでしょうね