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

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.

doc sig forwar răspuns 1

3. Încă în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe unelte > 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:

doc sig forwar răspuns 2

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:

doc sig forwar răspuns 3

Și când redirecționați un mesaj, Semnătura2 va fi inserată după cum urmează:

doc sig forwar răspuns 4


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL