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
Note: 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.
3. Wciąż w Microsoft Visual Basic for Applications okno, kliknij Tools > 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:
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:
A kiedy prześlesz wiadomość, Signature2 zostanie wstawiony jak pokazano na poniższym zrzucie ekranu:
Najlepsze narzędzia biurowe
Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy
🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...
📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP) / Zaplanuj wysyłanie wiadomości e-mail / Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail / Automatyczne przewijanie (Zasady zaawansowane) / Automatyczne dodawanie powitania / Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...
📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili / Blokuj oszukańcze wiadomości e-mail według tematów i innych / Usuń zduplikowane wiadomości e-mail / Wiecej opcji / Konsoliduj foldery ...
📁 Załączniki Pro: Zapisz zbiorczo / Odłącz partię / Kompresuj wsadowo / Automatyczne zapisywanie / Automatyczne odłączanie / Automatyczna kompresja ...
🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów / Zwiększ produktywność programu Outlook dzięki widokom na kartach / Zminimalizuj program Outlook zamiast go zamykać ...
>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki / E-maile chroniące przed phishingiem / 🕘Pokaż strefę czasową nadawcy ...
👩🏼🤝👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili / Podziel grupę kontaktów na pojedyncze grupy / Usuń przypomnienia o urodzinach ...
O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.