Ugrás a tartalomra

Hogyan adhatunk különböző aláírásokat több e-mail fiókhoz, amikor válaszolunk vagy továbbítunk az Outlookban?

Az oktatóanyagból: E-mail aláírások az Outlookban, tudnia kell, hogyan hozhat létre aláírást az Outlookban. Az új aláírás létrehozása után azonban manuálisan kell hozzáadnia a létrehozott aláírást, ha hozzá szeretné adni, amikor válaszol vagy továbbít egy üzenetet a aláírás > A létrehozott aláírás az üzenetablakban.

Természetesen beállíthatja, hogy az Outlook automatikusan aláírást adjon hozzá, amikor rákattintva válaszol vagy továbbít egy új üzenetet aláírás > aláírások, és válasszon egy aláírást egy adott e-mail fiókhoz az alábbiak szerint.

De mi van akkor, ha sok e-mail fiókja van, és különböző aláírásokat szeretne kötegben hozzáadni több fiókjához? Ebben az oktatóanyagban bemutatok egy VBA-módszert, amely segít a munka egyszerű elvégzésében.


Különböző aláírások hozzáadása több e-mail fiókhoz, amikor válaszol vagy továbbít az Outlookban

1. Az Outlook programban nyomja meg a gombot más + F11 gombokkal nyissa meg a Microsoft Visual Basic for Applications ablakot.

2. A Microsoft Visual Basic for Applications ablakban kattintson duplán a ikonra ThisOutlookSession a Projekt ablaktáblában, és másolja be az alábbi VBA-kódot a ThisOutlookSession (Code) ablakba. Lásd a képernyőképet:

VBA-kód: Különböző aláírások hozzáadása több e-mail fiókhoz, amikor új e-mailt hoz létre az Outlookban - 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. A Microsoft Visual Basic for Applications ablakban kattintson a gombra betétlap > Modulok. Ezután másolja a következő VBA-kódot a Modul ablakba.

VBA-kód: Különböző aláírások hozzáadása több e-mail fiókhoz, amikor válaszol vagy továbbít az Outlook modulban

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: ") Then
      xSignatureFile = xSignaturePath & "Signature1.htm" 'Replace "Signature1" with your actual signature name that you will set as the signature when you reply to a message.
    ElseIf VBA.InStr(xSubject, "FW: ") Then
      xSignatureFile = xSignaturePath & "Signature2.htm" 'Replace "Signature2" with your actual signature name that you will set as the signature when you forward a message.
    Else
      xIsNew = True
      Exit Sub
    End If
  Case "" 'Replace the email address in double quotes
    If VBA.InStr(xSubject, "RE: ") Then
      xSignatureFile = xSignaturePath & "Signature3.htm" 'Replace "Signature3" with your actual signature name that you will set as the signature when you reply to a message.
    ElseIf VBA.InStr(xSubject, "FW: ") Then
      xSignatureFile = xSignaturePath & "Signature4.htm" 'Replace "Signature4" with your actual signature name that you will set as the signature when you forward a message.
    Else
      xIsNew = True
      Exit Sub
    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
Jegyzet:
  • 1) Cserélnie kell a és a a 39. és 48. sorban a tényleges e-mail címére.
  • 2) Cserélnie kell aláírás a 41., 43., 50. és 52. sorban a tényleges aláírási nevedre a megjegyzések szerint.
  • 3) A fenti VBA kóddal két e-mail fiókhoz tudunk aláírást adni. Ha több fiókja van, cserélje ki a kód 57. sorát további esetekre:
  • eset ""
    Ha VBA.InStr(xSubject, "RE: ") = 1 Akkor
    xSignatureFile = xSignaturePath & "Signature1.htm"
    ElseIf VBA.InStr(xSubject, "FW: ") = 1 Akkor
    xSignatureFile = xSignaturePath & "Signature2.htm"
    Más
    xIsNew = Igaz
    Exit Sub
    Ha véget

4. A Microsoft Visual Basic for Applications ablakban kattintson a gombra Eszközök > Referenciák, jelölje be a Microsoft Word 16.0 objektumtár, és kattintson a gombra OK.

5. Indítsa újra az Outlookot, és mentse el a VBA-kódokat.

6. Most, amikor olyan e-mail fiókkal válaszol vagy továbbít egy üzenetet, amelyhez aláírást állított be, a megfelelő aláírás automatikusan hozzáadásra kerül.

Jegyzet: Ha úgy találja, hogy két aláírás került hozzáadásra, amikor válaszol vagy továbbít egy üzenetet egy e-mail fiókkal, kattintson a gombra aláírás > aláírások az üzenetablakban. Az Alapértelmezett aláírás kiválasztása részben válassza ki a két aláírással rendelkező e-mail fiókot, majd válassza ki (Nincs) a Válaszok/továbbítás legördülő listából.


Kapcsolódó cikkek

Hogyan lehet HTML-aláírásokat importálni vagy beszúrni az Outlookba?

Például letöltött néhány HTML-aláírást a webhelyekről, és importálni szeretné azokat az Outlook-ba. Van valami egyszerű módszer? Ez a cikk lépésről lépésre bemutatja a HTML-aláírások importálását vagy beillesztését az Outlook programba.

Hogyan lehet háttérszínt beilleszteni egy Outlook aláírásba?

Az Outlookban egyszerűen hozzáadhat vagy eltávolíthat háttérszínt egy e-mailben. De hogyan illeszthet be vagy távolíthat el háttérszínt egy Outlook-aláírásba? Az alábbi megoldások segítenek megoldani:

Hogyan adhatunk különböző aláírásokat több e-mail fiókhoz, amikor új e-mailt hozunk létre az Outlookban?

Ha azt szeretné, hogy az Outlook automatikusan adjon aláírást új üzenet létrehozásakor, akkor be kell állítania az alapértelmezett aláírást az Aláírás > Aláírások lehetőségre kattintva, és az alábbiak szerint kiválasztva egy aláírást egy adott e-mail fiókhoz. De mi van akkor, ha sok e-mail fiókja van, és különböző aláírásokat szeretne kötegben hozzáadni több fiókjához? Ebben az oktatóanyagban bemutatok egy VBA-módszert, amely segít a munka egyszerű elvégzésében.

Hogyan állíthat be különböző aláírásokat a válaszokhoz és továbbításokhoz az Outlookban?

Normál esetben különböző aláírásokat állíthat be a különböző fiókokhoz az Outlook programban, de megpróbáltak már más-más aláírást alkalmazni a válaszok és továbbítások során. Ez azt jelenti, hogy amikor válaszol egy e-mailre, az aláírás1 kerül beillesztésre, e-mail továbbításakor az aláírás2 kerül alkalmazásra. Hogyan oldhatná meg ezt a feladatot az Outlook programban?


A legjobb irodai hatékonyságnövelő eszközök

Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető)  /  Ütemezze az e-mailek küldését  /  Automatikus CC/BCC szabályok szerint e-mail küldésekor  /  Automatikus továbbítás (Speciális szabályok)   /  Automatikus üdvözlet hozzáadása   /  A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...

📨 Email Management: Könnyen visszahívhatja az e-maileket  /  Blokkolja az alanyok és mások átverő e-mailjeit  /  Törölje az ismétlődő e-maileket  /  Részletes keresés  /  Mappák összevonása ...

📁 Attachments ProKötegelt mentés  /  Batch Detach  /  Batch tömörítés  /  Automatikus mentés   /  Automatikus leválasztás  /  Automatikus tömörítés ...

🌟 Interface Magic: 😊További szép és menő hangulatjelek   /  Növelje Outlook termelékenységét a füles nézetekkel  /  Minimalizálja az Outlookot a bezárás helyett ...

👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel  /   Adathalászat elleni e-mailek  /  🕘A feladó időzónájának megjelenítése ...

👩🏼‍🤝‍👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből  /  Egy kapcsolattartó csoport felosztása egyéni csoportokra  /  Távolítsa el a születésnapi emlékeztetőket ...

Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations