Hogyan lehet automatikusan eltávolítani néhány speciális karaktert a tárgysorból e-mail küldéskor?
Véletlenül beilleszthet néhány speciális karaktert, amikor beírja a tárgyat a tárgysorba, miközben e-mailt küld az Outlook programban, ezért ezeket a speciális karaktereket egyenként el kell távolítania. Ebben a cikkben arról fogok beszélni, hogyan lehet ezeket a speciális karaktereket automatikusan eltávolítani a tárgyból, amikor e-maileket küldünk.
Automatikusan távolítsa el az összes speciális karaktert a tárgysorból, amikor VBA kóddal ellátott e-maileket küld
Automatikusan távolítsa el a speciális karaktereket a tárgysorból, amikor e-maileket küld, a következő VBA-kód tehet szívességet. Kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Az Microsoft Visual Basic for Applications ablakban kattintson duplán ThisOutlookSession tól Project1 (VbaProject.OTM) ablaktáblán nyissa meg a módot, majd másolja és illessze be a következő kódot az üres modulba.
VBA kód: Speciális karakterek automatikus eltávolítása a tárgysorból
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. És akkor még mindig a Microsoft Visual Basic for Applications ablakban kattintson Eszközök > Referenciák menni Referenciák-Projekt1 párbeszédpanelt, és ellenőrizze Microsoft VBAScript rendszeres kifejezések 1.0 lehetőség a Elérhető referenciák lista mező, lásd a képernyőképet:
4. Ezután kattintson OK a párbeszédpanel bezárásához most, amikor üzenetet küld a tárgysorban néhány speciális karakterrel, az elküldés után automatikusan eltávolításra kerül. Lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.