Outlook 전자 메일에서 다른받는 사람에 대해 다른 서명을 자동으로 선택하는 방법

Outlook 솔루션 2025 년 9 월 29 일

많은 사용자는 Outlook이 전자 메일의 다른받는 사람에 대해 다른 서명을 자동으로 선택할 수 있기를 바랍니다. 따라서이 기사에서는 VBA를 통해이를 실현하는 방법을 설명합니다.

기본적으로 Outlook에서는 새 이메일, 회신 및 전달에 다양한 서명을 자동으로 삽입 할 수만 있습니다. 그러나 많은 사람들은 Outlook이 다양한 수신자에 대해 다른 서명을 자동으로 선택할 수 있기를 바랍니다. 안타깝게도 Outlook은 이러한 직접적인 기능을 제공하지 않습니다. 따라서 타사 추가 기능 또는 VBA 코드와 같은 다른 방법을 찾아야합니다. 이제 다음에서 VBA 코드를 공개하여 산들 바람처럼 실현할 수 있습니다.

수신자마다 다른 서명 자동 선택

먼저 Outlook 프로그램을 실행하세요.
그런 다음 자동 서명 서명 기능을 비활성화하는 것이 좋습니다.

먼저 "파일"메뉴로 이동하여 "옵션"을 선택합니다.
"Outlook 옵션"창에서 "메일"탭으로 전환합니다.
그런 다음 "서명"버튼을 찾아 클릭합니다.
다음으로 팝업 대화 상자에서 "새 메시지"와 "답장 / 전달"모두에 "(없음)"을 설정합니다.
그런 다음 일련의 "확인"을 클릭하여 변경 사항을 저장합니다.

그런 다음 Outlook 기본 창으로 돌아가서 "Alt + F11"키를 누를 수 있습니다.
다음으로 "Microsoft Visual Basic for Applications"창에서 "ThisOutlookSession"프로젝트를 찾아서 엽니 다.
그런 다음 다음 VBA 코드를 복사하여이 프로젝트에 붙여 넣습니다.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.recipient
    Dim strRecipientAddress As String
    Dim strSignatureFile As String
    Dim objFileSystem As Object
    Dim objTextStream As Object
    Dim strSignature As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
    End If
 
    'Select different signature files based on recipients
    'You can change the conditions as per you actual needs
    If objRecipients.Count = 1 Then
       Set objRecipient = objRecipients.Item(1)
       strRecipientAddress = objRecipient.Address
       If strRecipientAddress = "mandy@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Test John Smith.htm"
       ElseIf strRecipientAddress = "anne@datanumen.com" Or strRecipientAddress = "tony@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Johnny.htm"
       ElseIf strRecipientAddress = "abby@datanumen.com" Then
          strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\New John Smith.htm"
       End If
    Else
       strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\John Smith.htm"
    End If
 
    'Read the specific signature file
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objTextStream = objFileSystem.OpenTextFile(strSignatureFile)
    strSignature = objTextStream.ReadAll
 
    'Insert the signature to this email
    objMail.HTMLBody = objMail.HTMLBody & "<HTML><BODY><br>" & strSignature & "</br></HTML></BODY>"
End Sub

그 후에이 코드에 서명해야합니다.
나중에 서명 된 매크로를 허용하도록 Outlook 매크로 설정을 변경합니다.
이제부터는 "보내기"버튼을 클릭하여 이메일을 보낼 때마다 Outlook에서 수신자를 식별하고 이메일 본문 끝에 해당 서명을 자동으로 삽입합니다.

수신 이메일에서 숨겨진 악성 매크로를 찾으십시오.

요즘 바이러스는 매우 성숙하고 강력 해졌습니다. 그들은 항상 이메일에서 무해한 것으로 위장합니다. 따라서 이제 Outlook에서 매크로를 사용하려면 악성 매크로에 대한 경계를 높여야합니다. 그렇지 않으면 PST 데이터가 위험에 처하게됩니다. PST가 손상되면 최선을 다해 PST 복구 데이터. 이 경우 다음과 같은 강력한 도구를 적용하는 것이 좋습니다. DataNumen Outlook Repair.

저자 소개 :

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