Note: The other languages of the website are Google-translated. Back to English

Jak ustawić różne podpisy dla odpowiedzi i przesłanych dalej w Outlooku?

Zwykle możesz ustawić różne podpisy dla różnych kont w Outlooku, ale kiedykolwiek próbowałeś zastosować różne podpisy dla odpowiedzi i wiadomości przesyłanych dalej. Oznacza to, że gdy odpowiadasz na wiadomość e-mail, wstawiany jest podpis1, a przesyłany dalej e-mail podpis2 jest stosowany. Jak możesz rozwiązać to zadanie w Outlooku?

Ustaw różne podpisy dla odpowiedzi i przesłanych dalej z kodem VBA


Ustaw różne podpisy dla odpowiedzi i przesłanych dalej z kodem VBA

Poniższy kod VBA może pomóc w ustawieniu różnych podpisów dla odpowiedzi i wiadomości przesyłanych dalej, wykonaj poniższe kroki jeden po drugim:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Następnie kliknij wstawka > Moduł, skopiuj i wklej poniższy kod do otwartego pustego modułu, zobacz zrzut ekranu:

Kod VBA: ustaw różne podpisy dla odpowiedzi i wiadomości przesyłanych dalej:

Public WithEvents GExplorer As Outlook.Explorer
Public WithEvents GMail As Outlook.MailItem
Public GFSO As Scripting.FileSystemObject
Public GTextStream As Scripting.TextStream
Public GText As String
Private Sub Application_Startup()
    Set GExplorer = Outlook.Application.ActiveExplorer
    Set GFSO = New Scripting.FileSystemObject
End Sub
Private Sub GExplorer_SelectionChange()
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GExplorer.Selection.Item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set GMail = xItem
End Sub
Private Sub GMail_Reply(ByVal Response As Object, Cancel As Boolean)
    InsertSignature Response, "Signature1.htm"   'change this signature name for replies
End Sub
Private Sub GMail_Forward(ByVal Forward As Object, Cancel As Boolean)
    InsertSignature Forward, " Signature2.htm"    'change this signature name for forwards
End Sub
Private Sub InsertSignature(Item As Object, SignName As String)
    Dim xSignatureFile As String
    Dim xMailItem As Outlook.MailItem
    xSignatureFile = CreateObject("WScript.Shell").SpecialFolders(5)
    xSignatureFile = xSignatureFile & "\Microsoft\Signatures\" & SignName
    Set GTextStream = GFSO.OpenTextFile(xSignatureFile)
    GText = ""
    GText = GTextStream.ReadAll
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    With xMailItem
        .Display
        .HTMLBody = .HTMLBody & "<br><br>" & GText
    End With
End Sub

Uwagi: W powyższym kodzie, Podpis 1 i Podpis 2 to dwie nazwy podpisów, których chcesz używać do odpowiadania i przekazywania. Zmień nazwy według swoich potrzeb.

doc sig forwar odpowiedz 1

3. Wciąż w Microsoft Visual Basic for Applications okno, kliknij Narzędzia > Referencje , aby przejść do Referencje-projekt 1 okno dialogowe i zaznacz Środowisko wykonawcze skryptów firmy Microsoft Microsoft opcja z Dostępne referencje pole listy, zobacz zrzut ekranu:

doc sig forwar odpowiedz 2

4. A następnie kliknij OK aby zamknąć okno dialogowe, od teraz, kiedy odpowiadasz na e-mail, Signature1 zostanie wstawiony od razu, patrz zrzut ekranu:

doc sig forwar odpowiedz 3

A kiedy prześlesz wiadomość, Signature2 zostanie wstawiony jak pokazano na poniższym zrzucie ekranu:

doc sig forwar odpowiedz 4


Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!

  • Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
  • Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
  • Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
  • Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
  • Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.
strzał Kutools Outlook Kutools tab 1180x121
shot Kutools Outlook Kutools Plus Tab 1180x121
 
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL