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 ddileu rhai cymeriadau arbennig o linell pwnc wrth anfon negeseuon e-bost?

Fe allwch chi roi rhai cymeriadau arbennig yn ddamweiniol pan fyddwch chi'n teipio pwnc yn y llinell pwnc wrth anfon e-bost yn Outlook, felly mae angen i chi gael gwared â'r cymeriadau arbennig hyn fesul un. Yn yr erthygl hon, byddaf yn sôn am sut i gael gwared â'r holl gymeriadau arbennig hyn yn awtomatig o'r pwnc wrth anfon negeseuon e-bost.

Tynnwch yr holl gymeriadau arbennig o'r llinell bwnc yn awtomatig wrth anfon negeseuon e-bost gyda chod VBA


Tynnwch yr holl gymeriadau arbennig o'r llinell bwnc yn awtomatig wrth anfon negeseuon e-bost gyda chod VBA

Mae Auto yn dileu'r cymeriadau arbennig o linell bwnc wrth anfon negeseuon e-bost, gall y cod VBA canlynol eich gwneud yn ffafr. Gwnewch fel hyn:

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

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith ThisOutlookSession oddi wrth y Project1 (VbaProject.OTM) pane i agor y modd, ac wedyn copïwch a gludwch y cod canlynol yn y modiwl gwag.

Cod VBA: Auto dileu cymeriadau arbennig o linell bwnc

Preifat Sub Application_ItemSend (Gan Erthygl Fel Gwrthwynebu, Diddymu Fel Boolean) Dim xMailItem Fel Outlook.MailItem Dim xRegExp Fel RegExp Dim xSubject As String On Error Eilyngu Nesaf Os Eitem.Class <> olMail Yna Eithriad Eithrio xMailItem = Eitem xSubject = xMailItem.Subject Gosod xRegExp = CreateObject ("VBScript.RegExp") Gyda xRegExp .Global = Gwir .IgnoreCase = Gwir .Pattern = "[^ a-zA-Z0-9 \ u4e00- \ u9fa5]" Diwedd Gyda Os xRegExp.test (xSubject) = Ffug Yna Eitem Ymadael xSubject = xRegExp.Replace (xSubject, "-") xMailItem.Subject = GetTargetStr (xSubject) Set RegExp = Does dim Dim Is-Faintiad Terfynol GetTargetStr (Str As String) Dim xS, xStr Fel String Dim i Fel Integer Dim xIsFirst Fel Boole xIsFirst = Gwir xStr = "" Am i = 1 I Len (Str) xS = Canol (Str, i, 1) Os xS = "-" Yna Os xIsFirst Yna xS = "" xIsFirst = Ffug Else xS = "" Diwedd Os Else xIsFirst = Gwir Diwedd Os xStr = xStr + xS Nesaf i GetTargetStr = Function End xStr

doc dileu char arbennig 1

3. Ac yna, yn dal yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch offer > cyfeiriadau i fynd i'r Cyfeiriadau-Project1 blwch deialog, a siec Expression Rheolaidd Microsoft VBAScript 1.0 opsiwn gan y Cyfeiriadau ar gael rhestrwch y blwch, gweler y sgrin:

doc dileu char arbennig 2

4. Yna cliciwch OK i gau'r dialog, nawr, pan fyddwch yn anfon neges gyda rhai cymeriadau arbennig yn y llinell pwnc, caiff ei dynnu'n awtomatig ar ôl ei anfon. Gweler y sgrin:

doc dileu char arbennig 3



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.