Hvordan tilføjer man forskellige signaturer til flere e-mail-konti, når man opretter en ny e-mail i Outlook?
Fra tutorialen: E-mail signaturer i Outlook, bør du vide, hvordan du opretter en signatur i Outlook. Men efter at have oprettet en ny signatur, bliver du nødt til manuelt at tilføje den oprettede signatur til en ny besked ved at vælge underskrift > Den oprettede signatur i beskedvinduet.
Selvfølgelig kan du få Outlook til at tilføje en signatur automatisk, når du opretter en ny besked ved at klikke underskrift > Underskrifter, og vælge en signatur for en specifik e-mail-konto som vist nedenfor.
Men hvad nu hvis du har mange e-mail-konti og ønsker at tilføje forskellige signaturer til dine flere konti i batches? I denne tutorial vil jeg introducere en VBA-metode for at hjælpe dig med at få dette job gjort nemt.
Tilføj forskellige signaturer til flere e-mail-konti, når du opretter en ny e-mail i Outlook
1. I din Outlook skal du trykke på andre + F11 taster for at åbne vinduet Microsoft Visual Basic for Applications.
2. Dobbeltklik på i vinduet Microsoft Visual Basic for Applications Denne OutlookSession i projektruden, og kopier nedenstående VBA-kode ind i vinduet ThisOutlookSession (kode). Se skærmbillede:
VBA-kode: Tilføj forskellige signaturer til flere e-mail-konti, når du opretter en ny e-mail i Outlook - ThisOutlookSession
Public WithEvents GInspectors As Inspectors
Public WithEvents GExplorer As Explorer
Private Sub Application_Startup()
Set GInspectors = Application.Inspectors
Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
‘Update by ExtendOffice
Dim xMail As MailItem
On Error Resume Next
EndTimer
If Item.Class = olMail Then
Set xMail = Item
Set GInspector = Nothing
Set GInspector = xMail.GetInspector
StartTimer
End If
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
On Error Resume Next
EndTimer
Set GInspector = Nothing
Set GInspector = Inspector
StartTimer
End Sub
3. Klik på i vinduet Microsoft Visual Basic til applikationer indsatte > Moduler. Kopier derefter følgende VBA-kode til modulvinduet.
VBA-kode: Tilføj forskellige signaturer til flere e-mail-konti, når du opretter en ny e-mail i Outlook - Modul
Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
Public TimerID As Long
Public GInspector As Inspector
Sub StartTimer()
On Error Resume Next
TimerID = SetTimer(0&, 0&, 1000&, AddressOf TimerProc)
End Sub
Sub EndTimer()
On Error Resume Next
KillTimer 0&, TimerID
End Sub
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTimer As Long)
On Error Resume Next
Call SetSignatureToAccount
EndTimer
End Sub
Sub SetSignatureToAccount()
‘Update by ExtendOffice
Dim xMail As MailItem
Dim xSignatureFile, xSignaturePath As String
Dim xSubject As String
Dim xDoc As Document
Dim xAccount As Account
Dim xIsNew As Boolean
Dim xInspector As Inspector
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
xSubject = GInspector.Caption
Set xDoc = GInspector.WordEditor
xIsNew = False
Set xMail = GInspector.CurrentItem
Select Case xMail.Parent.Parent
Case "" 'Replace the email address in double quotes
If VBA.InStr(xSubject, "RE: ") = 1 Then
Exit Sub
ElseIf VBA.InStr(xSubject, "FW: ") = 1 Then
Exit Sub
Else
xSignatureFile = xSignaturePath & "Signature1.htm" 'Replace "Signature1" with your actual signature name
xIsNew = True
End If
Case "" 'Replace the email address in double quotes
If VBA.InStr(xSubject, "RE: ") Then
Exit Sub
ElseIf VBA.InStr(xSubject, "FW: ") Then
Exit Sub
Else
xSignatureFile = xSignaturePath & "Signature2.htm" 'Replace "Signature2" with your actual signature name
xIsNew = True
End If
'Add more Cases for more email accounts
End Select
If xIsNew = True Then
With xDoc.Application.Selection
.WholeStory
.EndKey
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End With
Else
With xDoc.Application.Selection
.MoveRight Unit:=wdCharacter, Count:=1
.HomeKey Emptyparam, Emptyparam
.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End With
End If
Set xDoc = Nothing
Set GInspector = Nothing
Set xMail = Nothing
End Sub
- 1) Du bør udskifte , i 39. og 48. række til dine faktiske e-mailadresser.
- 2) Du bør udskifte Signature1 , Signature2 i 45. og 54. række til dine faktiske signaturnavne.
- 3) Med ovenstående VBA-kode kan vi tilføje signaturer til to e-mail-konti. Hvis du har flere konti, skal du erstatte den 57. række i koden med flere sager:
Hvis VBA.InStr(xSubject, "RE: ") = 1 Så
Exit Sub
ElseIf VBA.InStr(xSubject, "FW: ") = 1 Så
Exit Sub
Else
xSignatureFile = xSignaturePath & "Signature.htm"
xIsNew = Sand
End If
4. Klik på i vinduet Microsoft Visual Basic til applikationer Værktøjer > Referencer, markér afkrydsningsfeltet ud for Microsoft Word 16.0-objektbibliotek, og klik OK.
5. Genstart Outlook, og gem VBA-koderne.
6. Når du nu opretter en ny besked med en e-mail-konto, som du har oprettet en signatur til, tilføjes den tilsvarende signatur automatisk.
Bemærk: Hvis du opdager, at der er tilføjet to signaturer, når du opretter en ny besked med en e-mail-konto, skal du klikke underskrift > Underskrifter i beskedvinduet. I sektionen Vælg standardsignatur skal du vælge den e-mail-konto, der har to signaturer, og vælge (Ingen) fra rullelisten Nye beskeder.
Relaterede artikler
Sådan importeres eller indsættes HTML-signaturer i Outlook?
For eksempel downloadede du nogle HTML-signaturer fra websteder og vil importere dem til din Outlook. Nogen nemme måder? Denne artikel vil guide dig til at importere eller indsætte HTML-signaturer i Outlook trin for trin.
Hvordan indsætter man baggrundsfarve i en Outlook-signatur?
Det er nemt at tilføje eller fjerne baggrundsfarve i en e-mail i Outlook. Men hvordan kunne du indsætte eller fjerne baggrundsfarve i en Outlook-signatur? Nedenstående løsninger hjælper dig med at løse det:
Hvis du vil have Outlook til at tilføje signatur automatisk, når du besvarer eller videresender en meddelelse, skal du konfigurere standardsignaturen ved at klikke på Signatur > Signaturer og vælge en signatur for en specifik e-mail-konto som vist nedenfor. Men hvad nu hvis du har mange e-mail-konti og ønsker at tilføje forskellige signaturer til dine flere konti i batches? I denne tutorial vil jeg introducere en VBA-metode for at hjælpe dig med at få dette job gjort nemt.
Hvordan indstiller man forskellige signaturer til svar og videresendelser i Outlook?
Normalt kan du indstille forskellige signaturer for forskellige konti i din Outlook, men har nogensinde prøvet at anvende forskellige signaturer til svar og videresendelser. Det betyder, at når du besvarer en e-mail, indsættes signatur1, når du videresender en e-mail, anvendes signatur2. Hvordan kunne du løse denne opgave i Outlook?
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.