“모두에게 회신”하고 원본 첨부 파일을 Outlook에 보관하는 방법?

Outlook에서 "전체 답장"을 수행하고 원본 첨부 파일을 모두 다시 보내려면 어떻게해야합니까?

email microsoft-outlook

— 자르
소스

그리고 수신 된 메시지의 맥락에서 누가 모두 입니다. 발신자와 CC 및 BCC 목록에 언급 된 사람들 을 모두 의미 할 수 있지만 전달은 아직 언급되지 않은 사람을 의미합니다.

— pavium December

@pavinum : 저는 영어의 의미가 아닙니다. 당신의 문학 능력에 감사드립니다. 그 기능을 사용하고 싶습니다. 다른 작업에서는 첨부 파일이있는 모든 사람에게 회신됩니다. 알고 있다면 대답하십시오.

— Saar

"모두 회신"을 원하지만 원본 메시지에있는 첨부 파일은 유지하고 싶다고 말하고 있습니까? 왜 당신이 원하는지 잘 모르겠습니다. 그 사람들은 이미 첨부 파일을 받았습니까?

— ale

@Al Everett : 정확히. 동일한 첨부 파일을 다시 보냅니다. 관리의 이상한 요구 사항;).

— Saar

기본 기능에 대한이 무시 무시한 "미스 (miss)"는 여전히 8 년 후인 2017 년에도 여전히 존재합니다.

— 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 초 안에 웹 사이트에서 "첨부 파일이있는 모든 사람에게 답장"을 검색 함)을 발견했습니다.

— 에일
소스

@Al Everett : 자세한 답변 감사합니다. 저에게 웹 검색이 도움이되지 않았다고 믿습니다. 나를 잘못, 잘못된 키워드를 사용했습니다.

— Saar

Al Everett에게, 누가 누군가가 원하는지 물어 봤는데 ... 첫 번째 사람이 아닌 마지막 이메일이 중요한 이유는 마지막 사람이 첨부 파일을 가지고 있는지 확인하여 처리하는 것입니다. 또한 현장에서 편집하고 모두에게 '반환'할 수 있습니다. '모두에게 다시 보내기'뿐만 아니라 ...)

가능한 해결책:

이 메일을 처음으로 보낸 사람은 "보낸 편지함"폴더를 열고 메일을 연 다음 작업- "이 메시지 다시 보내기 ..."를 다시 선택하십시오.

— 크루 자흐
소스