Skip i'r prif gynnwys

Sut i osod gwahanol lofnodion ar gyfer atebion ac ymlaen yn Outlook?

Fel rheol, gallwch chi osod gwahanol lofnodion ar gyfer gwahanol gyfrifon yn eich Camre, ond, erioed wedi ceisio cymhwyso gwahanol lofnodion ar gyfer atebion ac ymlaen. Mae'n golygu, pan fyddwch chi'n ateb e-bost, bod y llofnod1 wedi'i fewnosod, pan fyddwch chi'n anfon e-bost ymlaen mae'r llofnod2 yn cael ei gymhwyso. Sut allech chi ddatrys y dasg hon yn Outlook?

Gosodwch wahanol lofnodion ar gyfer atebion ac ymlaen gyda chod VBA


Gosodwch wahanol lofnodion ar gyfer atebion ac ymlaen gyda chod VBA

Gall y cod VBA canlynol eich helpu i osod gwahanol lofnodion ar gyfer atebion ac ymlaen, a wnewch chi isod gamau fesul un:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored, gweler y screenshot:

Cod VBA: Gosodwch wahanol lofnodion ar gyfer atebion ac ymlaen:

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

Nodyn: Yn y cod uchod, Llofnod1 ac Llofnod2 yw'r ddau enw llofnod rydych chi am eu defnyddio ar gyfer ateb a gyrru ymlaen. Newidiwch yr enwau i'ch angen chi.

ateb doc sig forwar 1

3. Dal yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > Cyfeiriadau i fynd i'r Cyfeiriadau-Prosiect1 blwch deialog, a gwirio Amser Rhedeg Sgriptio Microsoft opsiwn gan y Cyfeiriadau sydd ar Gael blwch rhestr, gweler y screenshot:

ateb doc sig forwar 2

4. Ac yna cliciwch OK i gau'r ymgom, o hyn ymlaen, pan fyddwch chi'n ateb e-bost, bydd Signature1 yn cael ei fewnosod ar unwaith, gweler y screenshot:

ateb doc sig forwar 3

A phan anfonwch neges ymlaen, bydd Signature2 yn cael ei fewnosod fel y llun isod a ddangosir:

ateb doc sig forwar 4


Offer Cynhyrchiant Swyddfa Gorau

Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook

🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...

📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP)  /  Amserlen Anfon E-byst  /  Auto CC/BCC gan Reolau Wrth Anfon E-bost  /  Awto Ymlaen (Rheolau Uwch)   /  Auto Ychwanegu Cyfarchiad   /  Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...

📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd  /  Rhwystro E-byst Sgam gan Bynciau ac Eraill  /  Dileu E-byst Dyblyg  /  Chwilio Manwl  /  Cydgrynhoi Ffolderi ...

📁 Ymlyniadau ProArbed Swp  /  Swp Datgysylltu  /  Cywasgu Swp  /  Auto Achub   /  Datgysylltiad Auto  /  Cywasgiad Auto ...

🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl   /  Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed  /  Lleihau Outlook Yn lle Cau ...

???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn  /   E-byst Gwrth-Gwe-rwydo  /  🕘Dangos Parth Amser yr Anfonwr ...

👩🏼‍🤝‍👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol  /  Rhannwch Grŵp Cyswllt i Grwpiau Unigol  /  Dileu Atgoffa Pen-blwydd ...

Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.

 

 

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