Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

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

Fel rheol, gallwch osod gwahanol lofnodion ar gyfer gwahanol gyfrifon yn eich Outlook, ond, erioed, ceisiwch gyflwyno gwahanol lofnodion ar gyfer atebion ac ymlaen. Mae'n golygu, pan fyddwch chi'n ateb e-bost, mae'r signature1 wedi'i fewnosod, pan fyddwch yn anfon e-bost ymlaen, bydd y signature2 yn cael ei ddefnyddio. 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 chi i osod gwahanol lofnodion ar gyfer atebion ac ymlaen, gwnewch isod y camau isod fesul cam:

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

2. Yna, cliciwch Mewnosod > Modiwlau, copïwch a gludwch y cod isod i'r modiwl gwag a agorwyd, gweler y sgrin:

Cod VBA: Gosod gwahanol 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, Signature1 ac Signature2 Ydy'r ddau enw llofnod yr hoffech eu defnyddio ar gyfer ymateb ac anfon ymlaen. Newidwch yr enwau at eich angen.

doc sig forwar ateb 1

3. Dal yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > cyfeiriadau i fynd i'r Cyfeiriadau-Project1 blwch deialog, a siec Microsoft Scripting Runtime opsiwn gan y Cyfeiriadau ar gael rhestrwch y blwch, gweler y sgrin:

doc sig forwar ateb 2

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

doc sig forwar ateb 3

A phan fyddwch yn anfon neges ymlaen, bydd Signature2 yn cael ei fewnosod fel sgwsh a ganlyn:

doc sig forwar ateb 4



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.