Kuinka poistaa joitakin erikoismerkkejä automaattisesti aiheriviltä lähetettäessä sähköpostia?
Saatat lisätä erikoismerkkejä vahingossa, kun kirjoitat aiheen aiheriville lähettäessäsi sähköpostia Outlookissa, joten sinun on poistettava nämä erikoismerkit yksitellen. Tässä artikkelissa puhun siitä, kuinka kaikki nämä erikoismerkit poistetaan automaattisesti aiheesta lähetettäessä sähköposteja.
Poista aiheriviltä kaikki erikoismerkit automaattisesti, kun lähetät sähköposteja VBA-koodilla
Poista aiheriviltä kaikki erikoismerkit automaattisesti, kun lähetät sähköposteja VBA-koodilla
Poista erikoismerkit automaattisesti aiheriviltä, kun lähetät sähköpostia, seuraava VBA-koodi voi tehdä sinulle palveluksen. Ole hyvä ja toimi näin:
1. Pidä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Vuonna Microsoft Visual Basic for Applications ikkuna, kaksoisnapsauta ThisOutlookSession mistä Projekti1 (VbaProject.OTM) ruudusta avataksesi tilan ja kopioi ja liitä sitten seuraava koodi tyhjään moduuliin.
VBA-koodi: Poistaa automaattisesti erikoismerkit aiheriviltä
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMailItem As Outlook.MailItem
Dim xRegExp As RegExp
Dim xSubject As String
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
xSubject = xMailItem.Subject
Set xRegExp = CreateObject("VBScript.RegExp")
With xRegExp
.Global = True
.IgnoreCase = True
.Pattern = "[^a-zA-Z0-9\u4e00-\u9fa5]"
End With
If xRegExp.test(xSubject) = False Then Exit Sub
xSubject = xRegExp.Replace(xSubject, "-")
xMailItem.Subject = GetTargetStr(xSubject)
Set RegExp = Nothing
End Sub
Function GetTargetStr(Str As String)
Dim xS, xStr As String
Dim i As Integer
Dim xIsFirst As Boolean
xIsFirst = True
xStr = ""
For i = 1 To Len(Str)
xS = Mid(Str, i, 1)
If xS = "-" Then
If xIsFirst Then
xS = " "
xIsFirst = False
Else
xS = ""
End If
Else
xIsFirst = True
End If
xStr = xStr + xS
Next i
GetTargetStr = xStr
End Function
3. Ja sitten, edelleen sisällä Microsoft Visual Basic for Applications -ikkunassa Työkalut > Viitteet mennä Referenssit-Projekti1 valintaikkuna ja tarkista Microsoft VBAScriptin säännölliset lausekkeet 1.0 Vaihtoehto Saatavilla olevat referenssit luetteloruutu, katso kuvakaappaus:
4. Napsauta sitten OK sulkeaksesi valintaikkunan, nyt kun lähetät viestin, jonka aiherivillä on erikoismerkkejä, se poistetaan automaattisesti lähettämisen jälkeen. Katso kuvakaappaus:
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
