Cum se setează semnături diferite pentru răspunsuri și redirecționări în Outlook?
În mod normal, puteți seta semnături diferite pentru conturi diferite în Outlook, dar ați încercat vreodată să aplicați semnături diferite pentru răspunsuri și redirecționări. Înseamnă că, atunci când răspundeți la un e-mail, semnătura1 este introdusă, atunci când redirecționați un e-mail se aplică semnătura2. Cum ați putea rezolva această sarcină în Outlook?
Setați semnături diferite pentru răspunsuri și redirecționări cu codul VBA
Setați semnături diferite pentru răspunsuri și redirecționări cu codul VBA
Următorul cod VBA vă poate ajuta să setați diferite semnături pentru răspunsuri și redirecționări, vă rugăm să faceți pașii de mai jos unul câte unul:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Apoi apasa Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis, vedeți captura de ecran:
Cod VBA: setați semnături diferite pentru răspunsuri și transmiteri:
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
notițe: În codul de mai sus, Semnătura1 și Semnătura2 sunt cele două nume de semnături pe care doriți să le utilizați pentru răspuns și redirecționare. Vă rugăm să schimbați numele după nevoile dvs.
3. Încă în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Instrumente > Referinte a merge la Referințe-Proiect1 casetă de dialog și bifați Runtime Microsoft Scripting opțiune de la Referințe disponibile casetă listă, vezi captura de ecran:
4. Apoi faceți clic pe OK pentru a închide caseta de dialog, de acum înainte, când răspundeți la un e-mail, Semnătura1 va fi inserată simultan, vedeți captura de ecran:
Și când redirecționați un mesaj, Semnătura2 va fi inserată după cum urmează:
Cele mai bune instrumente de productivitate de birou
Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook
🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...
📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP) / Programați trimiterea de e-mailuri / CC/BCC automat după reguli la trimiterea e-mailului / Redirecționare automată (Reguli avansate) / Adăugare automată felicitare / Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...
📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile / Blocați e-mailurile înșelătorii de către subiecți și alții / Ștergeți e-mailurile duplicate / Cautare Avansata / Consolidați foldere ...
📁 Atașamente Pro: Salvați în serie / Detașare lot / Compresă în loturi / Salvare automata / Detașare automată / Comprimare automată ...
🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool / Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file / Minimizați Outlook în loc să închideți ...
???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite / E-mailuri anti-phishing / 🕘Afișați fusul orar al expeditorului ...
👩🏼🤝👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate / Împărțiți un grup de contact în grupuri individuale / Eliminați mementouri de ziua de naștere ...
Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.