Tip: Jiné jazyky jsou přeloženy společností Google. Můžete navštívit English verze tohoto odkazu.
Přihlásit se
x
or
x
x
Registrovat
x

or

Jak automaticky změnit podpis podle příjemců v aplikaci Outlook?

Ve výchozím nastavení má aplikace Outlook vlastní funkci umožňující uživatelům automaticky měnit podpis při odesílání e-mailů prostřednictvím různých e-mailových účtů. Ale mimo to, zde vám ukážeme způsob automatické změny podpisu na základě různých příjemců v poli Komu v aplikaci Outlook.

Změňte podpis podle příjemců automaticky pomocí kódu VBA


V aplikaci Outlook vždy odpovězte na e-mail s výchozím e-mailovým účtem:

Pokud chcete ve svém aplikaci Outlook vždy odpovídat na e - mail s výchozím e - mailovým účtem Vždy odpovězte pomocí výchozího účtu možnost volby Kutools pro aplikaci Outlook udělá vám laskavost. Zobrazit screenshot:

Kutools pro aplikaci Outlook: s více než 40 šikovnými doplňky aplikace Outlook, můžete zkusit bez omezení v 45 dnech. Stáhněte si bezplatnou zkušební verzi teď!


Změňte podpis podle příjemců automaticky pomocí kódu VBA

Postupujte podle níže uvedených kroků, chcete-li při odesílání e-mailů v aplikaci Outlook použít různé podpisy odpovídajícím příjemcům.

1. Za prvé, musíte v aplikaci Outlook zakázat funkci automatického podpisu. prosím klikněte Soubor > možnosti k otevření Možnosti aplikace Outlook okno.

2. V Možnosti aplikace Outlook okno, vyberte Poštovní zásilka v levém podokně klikněte na tlačítko Podpisy tlačítko v Sestavte zprávy sekce. Zobrazit screenshot:

3. V Podpisy a papírnictví dialogové okno, přejděte na Vyberte výchozí podpis část pod Podpis e-mailu vyberte v e - mailovém účtu e - mail Emailový účet rozbalovací seznam a potom vyberte (Žádné) z Nové zprávy a Odpovědi / předávání rozbalovací seznamy. Opakujte tyto kroky, dokud nebudou nastaveny všechny e-mailové účty (Žádné). Poté klikněte na tlačítko OK tlačítko.

Poznámka: Můžete také vytvořit potřebné podpisy v tomto Podpisy a papírnictví dialogové okno.

4. Klepněte na tlačítko OK při návratu Možnosti aplikace Outlook okno.

5. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

6. V Microsoft Visual Basic pro aplikace okno, klikněte dvakrát ThisOutlookSession v levém podokně otevřete okno Kód a kopii pod kódem VBA do okna. Zobrazit screenshot:

Kód VBA: Automaticky změnit podpis podle příjemců v aplikaci Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 20180814
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xTextStream As Scripting.TextStream
Dim xSignature As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class = olMail Then
    Set xMailItem = Item
    Set xRecipients = xMailItem.Recipients
End If
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
If xRecipients.Count = 1 Then
    Set xRecipient = xRecipients.Item(1)
    xRcpAddress = xRecipient.Address
    Select Case xRcpAddress
        Case "Email Address 1"
            xSignatureFile = xSignaturePath & "aaa.htm"
        Case "Email Address 2", "Email Address 3"
            xSignatureFile = xSignaturePath & "bbb.htm"
        Case "Email Address 4"
            xSignatureFile = xSignaturePath & "ccc.htm"
    End Select
End If
Set xTextStream = xFSO.OpenTextFile(xSignatureFile)
xSignature = xTextStream.ReadAll
xMailItem.HTMLBody = xMailItem.HTMLBody & "<HTML><BODY><br>" & xSignature & "</br></HTML></BODY>"
End Sub

Poznámky:

1. V kódu VBA prosím vyměňte "E-mailová adresa 1 / 2 / 3 / 4"S určitými e-mailovými adresami příjemců.

2. "aaa.htm""bbb.htm"A"ccc.htm"jsou zadané podpisy, které odešlete odpovídajícím příjemcům.

3. V tomto případě podpis "aaa"Bude odeslána do"E-mailová adresa 1", Podpis"bbb"Bude odeslána do"E-mailová adresa 2"A"E-mailová adresa 3", a "E-mailová adresa 4"Obdrží e-mail s vloženým podpisem"ccc". Změňte je podle svých potřeb.

7. Pak klikněte na tlačítko nářadí > Reference přejděte na Reference-Projekt dialogové okno. V dialogu zkontrolujte prosím Microsoft Scripting Runtime a klepněte na tlačítko OK OK tlačítko, viz screenshot:

8. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

Od tohoto okamžiku po složení e-mailu a stisknutí tlačítka Odeslat se příslušný podpis automaticky vloží na konec těla e-mailu na základě e-mailové adresy příjemce v poli Komu.

Chcete-li vložit tělo jako podpis do těla e-mailu při vytváření / odpovědi / předávání nových e-mailů v aplikaci Outlook, můžete povolit Při vytváření nového e-mailu s odpovědí a dopředu přidejte podpis dne možnost volby Kutools pro aplikaci Outlook k dosažení tohoto cíle. Zobrazit screenshot:

Kutools pro aplikaci Outlook: s více než 40 šikovnými doplňky aplikace Outlook, můžete zkusit bez omezení v 45 dnech. Stáhněte si bezplatnou zkušební verzi teď!



Kutools pro aplikaci Outlook

Více než rozšířené funkce 100 pro aplikace Outlook 2010, 2013, 2016, 2019 a 365

screen shot kutools pro výhled malý pro banner 201812

Více funkcí | Stažení zdarma | Pouze $ 39.00 pro stovky funkcí

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.