Outlook에서 "전체 회신"을 사용할 때 원래 보낸 사람을 제외한 모든받는 사람을 "참조"필드로 자동 이동하는 방법

지금 공유 :

일부 사용자는 Outlook에서 "전체 회신"을 사용할 때 원래 보낸 사람을 제외한 모든받는 사람을 항상 "참조"필드로 이동합니다. 이 기사에서는 Outlook VBA를 사용하여 이동을 자동화하는 방법을 소개합니다.

Outlook에서 "전체 회신"을 사용할 때 원래 보낸 사람을 제외한 모든받는 사람을 "참조"필드로 자동 이동기본적으로 "전체 회신"을 선택하여 전자 메일에 회신하면 원래 "받는 사람"필드에 있던 모든 수신자는 회신 메일의 "받는 사람"필드에 계속 배치됩니다. 그러나 많은 사용자가 "받는 사람"필드에 원래 보낸 사람 만있는 "참조"필드로 모든받는 사람을 이동하려고합니다. 이 요구 사항에 대한 응답으로 여기에서 자동으로 인식 할 수있는 VBA 코드를 공개합니다.

원본 발신자를 제외한 모든 수신자를 "전체 회신"의 "참조"필드로 자동 이동

  1. 먼저 Outlook 프로그램을 시작하십시오.
  2. 그런 다음 기본 Outlook 창에서 "Alt + F11"키 버튼을 누릅니다.
  3. 다음으로 Outlook VBA 편집기로 들어갑니다.
  4. 그런 다음 "ThisOutlookSession"프로젝트를 찾아서 열어야합니다.
  5. 나중에이 프로젝트 창에 다음 VBA 코드를 복사하여 붙여 넣어야합니다.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim objCCRecipient As Outlook.recipient
    Dim strSender As String
 
    Set objReplyAll = objMail.ReplyAll
 
    strSender = objMail.SenderEmailAddress
 
    For Each objRecipient In objMail.Recipients
        'Exclude yourself
        If objRecipient.Address <> "youremail@datanumen.com" Then
           'Add the recipients as CC recipients
           Set objCCRecipient = objReply.Recipients.Add(objRecipient.Address)
           objCCRecipient.Type = olCC
        End If
    Next
 
    'Keep original sender in To field
    objReplyAll.To = strSender
    objReplyAll.Display
 
    Cancel = True
End Sub

VBA 코드- "전체 회신"을 사용할 때 원래 보낸 사람을 제외한 모든받는 사람을 "CC"필드로 자동 이동

  1. 그런 다음이 매크로에 서명 한 다음 디지털 서명 된 매크로를 허용하도록 Outlook 매크로 설정을 변경해야합니다.
  2. 결국 당신은 res 수 있습니다tar새 VBA 프로젝트를 활성화하려면 Outlook을 선택하십시오.
  3. 이제부터는 "전체 회신"을 사용하여 이메일에 회신 할 때마다 "받는 사람"필드에 원래 보낸 사람 만있는 "참조"필드로 모든 수신자가 이동 한 것을 볼 수 있습니다.

PST 손상시 당황하지 마십시오.

PST 파일에 클라이언트 정보 등 귀중한 데이터가 많이 포함되어있는 경우 PST 파일이 손상되면 걱정해야합니다. 그러나 최근에 파일을 백업했다면 당황하지 않을 것입니다. 백업을 통해 손상된 Outlook 쉽게 데이터를 제공합니다. 그러나 그러한 백업이없는 경우에도 다음과 같은 강력한 복구 도구를 사용할 수 있습니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 수리 SQL 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM

지금 공유 :

댓글이 닫혀있다.