なぜOutlookには『添付付きで返信』『添付付きで全員に返信』がないのか！を解決するマクロ

LotusNotesを使っていたユーザーにとって、なんでやねん！と突っ込みたくなる機能の喪失。

それが『添付ファイル付きで返信』『添付ファイル付きで全員に返信』ですね。

結論から言うと、マクロを組んでツールバーに入れておけば解決します。

VBAコード

添付付きで返信

Public Sub ReplyAllWithAttachments() Dim objItem As MailItem Dim objReply As MailItem Dim objForward As MailItem Dim recSrc As Recipient Dim recDst As Recipient If TypeName(ActiveWindow) = "Inspector" Then Set objItem = ActiveInspector.CurrentItem Else Set objItem = ActiveExplorer.Selection(1) End If Set objForward = objItem.Forward Set objReply = objItem.ReplyAll objForward = objReply.Subject For Each recSrc In objReply.Recipients strAddress = recSrc.Address If recSrc.AddressEntry.Type = "SMTP" Then strAddress = """" & recSrc.Name & """ < " & recSrc.Address & " > " End If Set recDst = objForward.Recipients.Add(strAddress) recDst.Type = recSrc.Type recDst.Resolve Next objReply.Close olDiscard objForward.Display
End Sub

添付付きで全員に返信

Public Sub ReplyWithAttachments() Dim objItem As MailItem Dim objReply As MailItem Dim objForward As MailItem Dim recSrc As Recipient Dim recDst As Recipient If TypeName(ActiveWindow) = "Inspector" Then Set objItem = ActiveInspector.CurrentItem Else Set objItem = ActiveExplorer.Selection(1) End If Set objForward = objItem.Forward Set objReply = objItem.Reply objForward = objReply.Subject For Each recSrc In objReply.Recipients strAddress = recSrc.Address If recSrc.AddressEntry.Type = "SMTP" Then strAddress = """" & recSrc.Name & """ < " & recSrc.Address & " > " End If Set recDst = objForward.Recipients.Add(strAddress) recDst.Type = recSrc.Type recDst.Resolve Next objReply.Close olDiscard objForward.Display
End Sub

OutlookのVBAはまだまだ理解できていない部分が多い為、こちらのサイトを参考にさせて頂きました！

やっていることは、『転送』は添付がメールに貼り付けられた状態になるので、宛先を元メールから持ってくるという内容です。