Outlookで「すべてに返信」して元の添付ファイルを保持する方法

Outlookで「全員に返信」を実行し、元の添付ファイルを全員に再送信する方法を教えてください。

email microsoft-outlook

— ザール
ソース

そして、受信したメッセージのコンテキストで誰がすべてです。CCとBCCのリストで言及されている送信者と人々を意味するすべてに返信できますが、転送はまだ言及されていない人を意味します。

— パビウム2009

@pavinum：私は英語の意味のためにここにはいません。あなたの文学能力をありがとう。その機能を使用したいと思います。他のワークステーションでは、添付ファイル付きで全員に返信されます。わかっている場合は答えてください。

— ザール

「全員に返信」したいが、元のメッセージに存在する添付ファイルは保持したいということですか？なぜあなたがしたいのか分かりません。つまり、それらの人々はすでに添付ファイルを受け取っているのではないでしょうか？

— エール

@アルエベレット：正確に。同じ添付ファイルを再送信します。管理からの奇妙な要件;）。

— ザール

基本的な機能に関するこの恐ろしい「ミス」は、2017年の8年後でもまだ存在しています。

— javadba

回答:

どうやらVBAコードなしではないようです。まさにそうすることを目的とするものがあります。（ソース）

説明：このOutlook VBAサンプルは、元の添付ファイルを含む現在開いているメッセージまたは選択したメッセージへの返信を作成して表示します。

Sub ReplyWithAttachments()
    Dim rpl As Outlook.MailItem
    Dim itm As Object

    Set itm = GetCurrentItem()
    If Not itm Is Nothing Then
        Set rpl = itm.Reply
        CopyAttachments itm, rpl
        rpl.Display
    End If

    Set rpl = Nothing
    Set itm = Nothing
End Sub

Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application

    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select

    Set objApp = Nothing
End Function

Sub CopyAttachments(objSourceItem, objTargetItem)
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set fldTemp = fso.GetSpecialFolder(2) ' TemporaryFolder
   strPath = fldTemp.Path & "\"
   For Each objAtt In objSourceItem.Attachments
      strFile = strPath & objAtt.FileName
      objAtt.SaveAsFile strFile
      objTargetItem.Attachments.Add strFile, , , objAtt.DisplayName
      fso.DeleteFile strFile
   Next

   Set fldTemp = Nothing
   Set fso = Nothing
End Sub

コードに関する注意：

GetCurrentItem()関数を使用して、現在選択または表示されているアイテムを返します。
CopyAttachments()手順を使用して、添付ファイルを返信にコピーします。
交換するitm.Replyとitm.ReplyAll、あなたがすべてに返信することを好む場合。

（ああ、私はこれを約30秒で「Outlookの添付ファイルで全員に返信」のWeb検索を実行して発見しました）。

— エール
ソース

@Al Everett：詳細な回答をありがとう。Web検索は役に立たなかったと信じています。間違ったキーワードを使用しました。

— ザール

アル・エベレットに、なぜ誰かがしたいのかと尋ねました...重要なのは、最後の人が添付ファイルを持っていることを確実にするために、最初のメールではなく最後のメールです... 同様に、その場で編集し、すべてに「戻す」ことができます。「すべてに返送する」だけではありません...）

可能な解決策：

このメールを初めて送信するユーザーは、「送信済みアイテム」フォルダを開き、メールを開いて、アクション-「このメッセージを再送信...」を再度選択します。

— クルヤチ
ソース