Conas síniú a athrú go huathoibríoch bunaithe ar fhaighteoirí in Outlook?
De réir réamhshocraithe, tá feidhm ionsuite ag Outlook d’úsáideoirí síniú a athrú go huathoibríoch agus ríomhphoist á seoladh trí chuntais ríomhphoist éagsúla. Ach thairis sin, taispeánfaidh mé duit anseo modh chun síniú a athrú go huathoibríoch bunaithe ar fhaighteoirí éagsúla sa réimse To in Outlook.
Athraigh síniú bunaithe ar fhaighteoirí go huathoibríoch le cód VBA
Athraigh síniú bunaithe ar fhaighteoirí go huathoibríoch le cód VBA
Lean na céimeanna thíos le do thoil chun sínithe éagsúla a chur i bhfeidhm ar fhaighteoirí comhfhreagracha agus tú ag seoladh ríomhphoist in Outlook.
1. Ar dtús, ní mór duit an ghné sínithe ceangailte uathoibríoch in Outlook a dhíchumasú. Cliceáil le do thoil Comhad > Roghanna a oscailt Roghanna Outlook fhuinneog.
2. Sa Roghanna Outlook fuinneog, roghnaigh mail sa phána chlé, ansin cliceáil ar an Sínithe cnaipe sa Cum teachtaireachtaí alt. Féach an pictiúr:
3. Sa Sínithe agus Stáiseanóireacht bosca dialóige, téigh go dtí an Roghnaigh síniú réamhshocraithe alt faoin Síniú R-phoist cluaisín, roghnaigh cuntas ríomhphoist sa Cuntas ríomhphoist liosta anuas, agus ansin roghnaigh (Níl aon cheann) ó na Teachtaireachtaí nua agus Freagraí / ar aghaidh liostaí anuas. Déan na céimeanna seo arís go dtí go mbeidh gach cuntas ríomhphoist socraithe (Níl aon cheann). Ansin cliceáil ar an OK cnaipe.
nótaí: Is féidir leat na sínithe a theastaíonn uait a chruthú leis seo Sínithe agus Stáiseanóireacht dialóg.
4. Cliceáil ar an OK cnaipe nuair a fhilleann sé an Roghanna Outlook fhuinneog.
5. Brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
6. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte ThisOutlookSession sa phána ar chlé chun an fhuinneog Cód a oscailt, agus an chóip faoi chód VBA isteach san fhuinneog. Féach an pictiúr:
Cód VBA: Athraigh an síniú go huathoibríoch bunaithe ar fhaighteoirí in 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
nótaí:
- 1). Sa chód VBA, cuir “Seoladh Ríomhphoist 1/2/3/4”Le seoltaí ríomhphoist áirithe na bhfaighteoirí.
- 2). "aaa.htm""bbb.htm"Agus"ccc.htm" na sínithe sonraithe a sheolfaidh tú chuig na faighteoirí comhfhreagracha.
- 3). Sa chás seo, sínigh “AAASeolfar chuig “Seoladh Ríomhphoist 1”, Síniú“bbbSeolfar chuig “Seoladh Ríomhphoist 2"Agus"Seoladh Ríomhphoist 3", agus “Seoladh Ríomhphoist 4Gheobhaidh ”an ríomhphost leabaithe le síniú“ccc”. Athraigh iad le do thoil bunaithe ar do chuid riachtanas.
- 4). Má tá faighteoirí iolracha i ríomhphost, ní thógann an cód ach an chéad faighteoir san áireamh. Sa chás seo, gheobhaidh faighteoirí eile na ríomhphoist leis an síniú céanna leis an gcéad fhaighteoir.
7. Ansin cliceáil uirlisí > tagairtí dul go dtí an Tagairtí-Tionscadal bosca dialóige. Sa dialóg, seiceáil an dá Leabharlann Réada Microsoft Word agus an Microsoft Scripting Runtime roghanna, agus ansin cliceáil OK cnaipe, féach ar an scáileán:
8. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
As seo amach, tar éis ríomhphost a chumadh agus an cnaipe Seol a bhualadh, cuirfear an síniú comhfhreagrach isteach go huathoibríoch ag deireadh an chomhlachta ríomhphoist bunaithe ar sheoladh ríomhphoist an fhaighteora sa réimse To.
Cuir isteach an dáta reatha go huathoibríoch mar shíniú agus ríomhphost á sheoladh in Outlook:
Más mian leat an stampa ama mar shíniú a chur isteach sa chorp ríomhphoist agus ríomhphost nua a chruthú / a fhreagairt / a chur ar aghaidh i do Outlook, is féidir leat an Cuir síniú dáta leis nuair a chruthaíonn tú ríomhphost nua, freagair agus seol ar aghaidh rogha Kutools le haghaidh Outlook chun aclaíocht a dhéanamh air. Féach an pictiúr:
Íoslódáil agus bain triail as anois (rian saor in aisce 60-lá)
Uirlisí Táirgiúlachta Oifige is Fearr
Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú
🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...
📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP) / Sceideal Seol Ríomhphoist / Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh / Auto Ar Aghaidh (Ardrialacha) / Beannacht Auto Cuir leis / Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...
📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca / Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile / Scrios Ríomhphoist Dúblacha / Cuardach Casta / Comhdhlúthaigh Fillteáin ...
📁 Ceangaltáin Pro: Sábháil Baisc / Baisc Dícheangail / Comhbhrú Baisc / Auto Sábháil / Auto Dícheangail / Comhbhrúite Auto ...
🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool / Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed / Íoslaghdaigh Outlook In ionad Deiridh ...
???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach / Ríomhphoist Frith-Iascaireachta / 🕘 Taispeáin Crios Ama an tSeoltóra ...
👩🏼🤝👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe / Roinn Grúpa Teagmhála ar Ghrúpaí Aonair / Bain Meabhrúcháin Breithlá ...
Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.