Sut i newid llofnod yn awtomatig yn seiliedig ar dderbynwyr yn Outlook?
Yn ddiofyn, mae gan Outlook swyddogaeth adeiladu i ddefnyddwyr newid llofnod yn awtomatig wrth anfon e-byst trwy wahanol gyfrifon e-bost. Ond y tu hwnt i hynny, yma byddaf yn dangos i chi ddull o newid llofnod yn awtomatig yn seiliedig ar wahanol dderbynwyr yn y maes To yn Outlook.
Newid llofnod yn seiliedig ar dderbynwyr yn awtomatig gyda chod VBA
Newid llofnod yn seiliedig ar dderbynwyr yn awtomatig gyda chod VBA
Dilynwch y camau isod i gymhwyso gwahanol lofnodion i dderbynwyr cyfatebol wrth anfon e-byst yn Outlook.
1. Yn gyntaf, mae angen i chi analluogi'r nodwedd llofnod ynghlwm yn Outlook. Cliciwch Ffeil > Dewisiadau i agor y Dewisiadau Outlook ffenestr.
2. Yn y Dewisiadau Outlook ffenestr, dewiswch bost yn y cwarel chwith, yna cliciwch ar y Llofnodion botwm yn y Cyfansoddi negeseuon adran. Gweler y screenshot:
3. Yn y Llofnodion a Deunydd Ysgrifennu blwch deialog, ewch i'r Dewiswch lofnod diofyn adran o dan yr Llofnod E-bost tab, dewiswch gyfrif e-bost yn y Cyfrif e-bost rhestr ostwng, ac yna dewis (Dim) oddi wrth y Negeseuon newydd ac Atebion / ymlaen rhestrau gwympo. Ailadroddwch y camau hyn nes bod yr holl gyfrifon e-bost wedi'u gosod (Dim). Yna cliciwch y OK botwm.
Nodyn: Gallwch hefyd greu eich llofnodion angenrheidiol yn hyn Llofnodion a Deunydd Ysgrifennu blwch deialog.
4. Cliciwch ar y OK botwm pan fydd yn dychwelyd y Dewisiadau Outlook ffenestr.
5. Gwasgwch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
6. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith SesiwnOutlook yn y cwarel chwith i agor ffenestr y Cod, a'r copi o dan god VBA i'r ffenestr. Gweler y screenshot:
Cod VBA: Newid llofnod yn awtomatig yn seiliedig ar dderbynwyr yn Outlook
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 2022/08/01
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xDoc As Document
Dim xFindStr As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
For Each xRecipient In xRecipients
If xRecipient.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
xRcpAddress = xRecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
Else
xRcpAddress = xRecipient.AddressEntry.Address
End If
Select Case xRcpAddress
Case "Email Address 1"
xSignatureFile = xSignaturePath & "aaa.htm"
Exit For
Case "Email Address 2", "Email Address 3"
xSignatureFile = xSignaturePath & "bbb.htm"
Exit For
Case "Email Address 4"
xSignatureFile = xSignaturePath & "ccc.htm"
Exit For
End Select
Next
VBA.DoEvents
Set xDoc = xMailItem.GetInspector.WordEditor
xFindStr = "From: " & xMailItem.Recipients.Item(1).Name & " <" & xRcpAddress & ">"
If VBA.InStr(1, xMailItem.Body, xFindStr) <> 0 Then
xDoc.Application.Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With xDoc.Application.Selection.Find
.ClearFormatting
.Text = xFindStr
.Execute Forward:=True
End With
With xDoc.Application.Selection
.MoveLeft wdCharacter, 2
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
Else
With xDoc.Application.Selection
.EndKey Unit:=wdStory, Extend:=wdMove
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
End If
xDoc.Application.Selection.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End Sub
Nodiadau:
- 1). Yn y cod VBA, disodli'r “Cyfeiriad E-bost 1/2/3/4”Gyda chyfeiriadau e-bost penodol y derbynwyr.
- 2). "aaa.htm""bbb.htm"A"ccc.htm" yw'r llofnodion penodedig y byddwch yn eu hanfon at dderbynwyr cyfatebol.
- 3). Yn yr achos hwn, llofnod “aaaYn cael ei anfon at “Cyfeiriad E-bost 1", llofnod "BBBYn cael ei anfon at “Cyfeiriad E-bost 2"A"Cyfeiriad E-bost 3", a "Cyfeiriad E-bost 4”Yn derbyn yr e-bost wedi'i fewnosod â llofnod“ccc”. Newidiwch nhw ar sail eich anghenion.
- 4). Os oes sawl derbynnydd mewn e-bost, dim ond y derbynnydd cyntaf y mae'r cod yn ei gymryd i ystyriaeth. Yn yr achos hwn, bydd derbynwyr eraill yn derbyn y negeseuon e-bost gyda'r un llofnod â'r derbynnydd cyntaf.
7. Yna cliciwch offer > Cyfeiriadau i fynd i'r Cyfeiriadau-Prosiect blwch deialog. Yn y dialog, gwiriwch y ddau Llyfrgell Gwrthrychau Microsoft Word a Amser Rhedeg Sgriptio Microsoft opsiynau, ac yna cliciwch OK botwm, gweler y screenshot:
8. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
O hyn ymlaen, ar ôl cyfansoddi e-bost a tharo'r botwm Anfon, bydd y llofnod cyfatebol yn cael ei fewnosod yn awtomatig ar ddiwedd y corff e-bost yn seiliedig ar gyfeiriad e-bost y derbynnydd yn y maes To.
Mewnosod y Dyddiad Cyfredol yn Llofnod yn Awtomatig Wrth Anfon E-bost Mewn Rhagolwg:
Os ydych chi am fewnosod stamp amser fel llofnod yn y corff e-bost wrth greu / ateb / anfon e-bost newydd yn eich Camre, gallwch chi alluogi'r Ychwanegwch lofnod dyddiad wrth greu e-bost newydd, ateb ac ymlaen opsiwn o Kutools ar gyfer Rhagolwg i'w gyflawni. Gweler y screenshot:
Dadlwythwch a rhowch gynnig arni nawr (llwybr am ddim 60 diwrnod)
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 Pro: Arbed 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.