Különböző aláírások automatikus kiválasztása a különböző címzettekhez az Outlook e-mailjeiben

Sok felhasználó azt reméli, hogy az Outlook automatikusan kiválasztja a különböző aláírásokat az e-mailekben a különböző címzettekhez. Így ez a cikk megtanítja, hogyan valósítsa meg VBA-n keresztül.

Alapértelmezés szerint az Outlook csak a változó aláírások automatikus beszúrását teszi lehetővé új e-mailekbe, válaszokba és továbbításokba. Sokan azonban azt remélik, hogy az Outlook automatikusan kiválasztja a különböző aláírásokat a különböző címzettekhez. Sajnos az Outlook nem biztosít ilyen közvetlen szolgáltatást. Ezért más utakat kell keresnie, például bármely harmadik féltől származó bővítményt vagy VBA-kódot. A következőkben egy darab VBA-kódot tárunk eléd, amely segíthet a megvalósításban, mint egy szellő.

Különböző aláírások automatikus kiválasztása a különböző címzettekhez

1. Először is el kell indítania az Outlook programot.
2. Akkor jobb, ha letiltja az aláírás automatikus beszúrása funkciót.

• Először lépjen a „Fájl” menübe, és válassza az „Opciók” lehetőséget.
• Az „Outlook beállításai” ablakban váltson a „Levelezés” fülre.
• Ezután keresse meg és kattintson az „Aláírások” gombra.
• Ezután a felugró párbeszédpanelen állítsa be a „(none)” értéket mind az „Új üzenetek”, mind a „Válaszok/Továbbítások” mezőben.
• Ezután kattintson egy sor „OK” gombra a módosítások mentéséhez.

3. Ezután visszatérhet az Outlook főablakába, és megnyomhatja az „Alt + F11” billentyűket.
4. Ezután a „Microsoft Visual Basic for Applications” ablakban keresse meg és nyissa meg a „ThisOutlookSession” projektet.
5. Ezt követően másolja ki és illessze be a következő VBA-kódot ebbe a projektbe.

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. Ezt követően alá kell írnia ezt a kódot.
7. Később módosítsa az Outlook makró beállításait, hogy engedélyezze az aláírt makrókat.
8. Mostantól minden alkalommal, amikor a „Küldés” gombra kattint e-mail küldéséhez, az Outlook azonosítja a címzettet, és automatikusan beilleszti a megfelelő aláírást az e-mail törzsének végére.

Ügyeljen a rejtett rosszindulatú makrókra a bejövő e-mailekben

Manapság a vírusok nagyon érettek és erősek. Mindig ártalmatlan dolgoknak álcázzák őket az e-mailben. Ezért most, hogy makrókat kíván használni az Outlookban, fokozottan ügyeljen a rosszindulatú makrókra. Ellenkező esetben a PST-adatai veszélyben lesznek. Ha a PST megsérül, mindent megtesz ennek érdekében visszaállítani a PST-t adat. Ebben az esetben javasolt egy erős eszköz alkalmazása, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com