Jak nastavit různé podpisy pro odpovědi a předávání v aplikaci Outlook?
Normálně můžete ve svém Outlooku nastavit různé podpisy pro různé účty, ale někdy jste se pokusili použít různé podpisy pro odpovědi a přeposílání. To znamená, že když odpovíte na e-mail, vloží se podpis1, při přeposlání e-mailu se použije podpis2. Jak byste mohli tento úkol vyřešit v Outlooku?
Nastavte různé podpisy pro odpovědi a přeposílání pomocí kódu VBA
Nastavte různé podpisy pro odpovědi a přeposílání pomocí kódu VBA
Následující kód VBA vám pomůže nastavit různé podpisy pro odpovědi a přeposílání, proveďte prosím následující kroky jeden po druhém:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. Potom klepněte na tlačítko Vložit > Modul, zkopírujte a vložte pod kód do otevřeného prázdného modulu, viz screenshot:
Kód VBA: Nastavte různé podpisy pro odpovědi a předávání:
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
Pozor: Ve výše uvedeném kódu, Podpis1 a Podpis2 jsou dva názvy podpisů, které chcete použít pro odpovídání a přeposílání. Změňte prosím jména podle svých potřeb.
3. Stále v Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Tools > Reference přejděte na Reference-Project1 dialogové okno a zkontrolujte Microsoft Scripting Runtime možnost z nabídky Dostupné reference seznam, viz screenshot:
4. A pak klikněte na tlačítko OK zavřít dialogové okno, od nynějška, když odpovíte na e-mail, bude vložen podpis 1, viz screenshot:
A když přepošlete zprávu, Signature2 se vloží jako následující zobrazený snímek obrazovky:
Nejlepší nástroje pro produktivitu v kanceláři
Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!
Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!
???? Automatizace e-mailu: Automatická odpověď (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Připomenout e-maily / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Připomeňte si, když přijdou důležité e-maily / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
