なぜ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はまだまだ理解できていない部分が多い為、こちらのサイトを参考にさせて頂きました！

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