Paano Awtomatikong Pumili ng Iba't ibang Lagda para sa Iba't ibang Tatanggap sa Iyong Mga Email sa Outlook

Maraming mga gumagamit ang umaasa na maaaring awtomatikong piliin ng Outlook ang iba't ibang mga lagda para sa iba't ibang mga tatanggap sa mga email. Kaya, ang artikulong ito ay magtuturo kung paano ito mapagtanto sa pamamagitan ng VBA.

Bilang default, pinapayagan ka lang ng Outlook na awtomatikong ipasok ang iba't ibang lagda sa mga bagong email, tugon at pagpapasa. Gayunpaman, maraming tao ang umaasa na maaaring awtomatikong piliin ng Outlook ang iba't ibang mga lagda para sa iba't ibang mga tatanggap. Sa kasamaang palad, ang Outlook ay hindi nagbibigay ng ganoong direktang tampok. Kaya, kailangan mong maghanap ng iba pang mga paraan, tulad ng anumang mga third party na add-in o VBA code. Ngayon, sa mga sumusunod, ipapakita namin sa iyo ang isang piraso ng VBA code, na makakatulong sa iyong mapagtanto na parang madali lang.

Auto Select Iba't ibang Signature para sa Iba't ibang Recipient

1. Upang magsimula, dapat mong ilunsad ang iyong programa sa Outlook.
2. Pagkatapos ay mas mabuting i-disable mo ang tampok na auto-insert signature.

• Una, pumunta sa menu na "File" at piliin ang "Mga Opsyon".
• Sa window ng "Outlook Options," lumipat sa tab na "Mail".
• Pagkatapos ay hanapin at i-click ang pindutang "Mga Lagda".
• Susunod sa popup dialog box, itakda ang "(wala)" sa parehong "Mga Bagong Mensahe" at "Mga Tugon/Pagpapasa".
• Pagkatapos nito, i-click ang isang serye ng "OK" upang i-save ang mga pagbabago.

3. Pagkatapos nito, maaari kang bumalik sa pangunahing window ng Outlook at pindutin ang "Alt + F11" na mga key.
4. Susunod, sa window ng "Microsoft Visual Basic for Applications", hanapin at buksan ang proyektong "ThisOutlookSession".
5. Kasunod, kopyahin at i-paste ang sumusunod na VBA code sa proyektong ito.

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

6. Pagkatapos nito, dapat mong lagdaan ang code na ito.
7. Mamaya baguhin ang iyong mga setting ng macro ng Outlook upang payagan ang mga naka-sign na macros.
8. Mula ngayon, sa tuwing i-click mo ang pindutang "Ipadala" upang magpadala ng email, kikilalanin ng Outlook ang tatanggap at awtomatikong ilalagay ang kaukulang lagda sa dulo ng katawan ng email.

Abangan ang Nakatagong Nakakahamak na Macro sa Mga Papasok na Email

Ngayon ang mga virus ay naging napaka-mature at malakas. Lagi nilang binabalatan ang mga ito bilang mga hindi nakapipinsalang bagay sa email. Samakatuwid, ngayon na nilalayon mong gumamit ng mga macro sa Outlook, dapat mong itaas ang iyong pagbabantay laban sa mga nakakahamak na macro. Kung hindi, ang iyong data ng PST ay mananatiling nasa panganib. Kung ma-corrupt ang PST, gagawin mo ang iyong makakaya bawiin ang PST datos. Sa kasong ito, iminumungkahi na maglapat ng makapangyarihang tool, gaya ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql ayusin at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa