Wie kann man beim Senden von E-Mails einige spezielle Zeichen automatisch aus der Betreffzeile entfernen?
Möglicherweise fügen Sie versehentlich einige Sonderzeichen ein, wenn Sie den Betreff in der Betreffzeile eingeben, während Sie eine E-Mail in Outlook senden. Daher müssen Sie diese Sonderzeichen einzeln entfernen. In diesem Artikel werde ich darüber sprechen, wie Sie alle diese Sonderzeichen automatisch aus dem Betreff entfernen können, wenn Sie E-Mails senden.
Entfernen Sie alle Sonderzeichen automatisch aus der Betreffzeile beim Senden von E-Mails mit VBA-Code.
Um die Sonderzeichen automatisch aus der Betreffzeile zu entfernen, wenn Sie E-Mails senden, kann Ihnen der folgende VBA-Code helfen. Bitte gehen Sie wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic for Applications doppelt auf ThisOutlookSession im Bereich Project1(VbaProject.OTM), um den Modus zu öffnen, und kopieren Sie dann den folgenden Code in das leere Modul.
VBA-Code: Automatisches Entfernen von Sonderzeichen aus der Betreffzeile
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. Klicken Sie dann immer noch im Fenster Microsoft Visual Basic for Applications auf Extras > Verweise, um zum Dialogfeld Verweise-Project1 zu gelangen, und aktivieren Sie die Option Microsoft VBAScript Regular Expressions 1.0 aus der Liste der verfügbaren Verweise. Siehe Screenshot:
4. Klicken Sie dann auf OK, um das Dialogfeld zu schließen. Nun werden beim Senden einer Nachricht mit einigen Sonderzeichen in der Betreffzeile diese nach dem Senden automatisch entfernt. Siehe Screenshot:
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie das komplett neue Kutools für Outlook mit über100 beeindruckenden Funktionen! Jetzt herunterladen!
📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP) /E-Mails zeitgesteuert senden /Automatische CC/BCC nach Regel beim Senden von E-Mails /Automatische Weiterleitung (Erweiterte Regeln) /Automatisches Hinzufügen von Begrüßungen / Mehrfache Empfänger-E-Mails automatisch in einzelne E-Mail-Nachrichten aufteilen...
📨 E-Mail-Verwaltung: E-Mails zurückrufen /Betrugsversuche anhand des Betreffs und anderer Kriterien blockieren /Duplikate E-Mails löschen /Erweiterte Suche /Ordner organisieren...
📁 Anhänge Pro:Stapelweise speichern /Stapelweise abtrennen /Stapelweise komprimieren /Automatisch speichern /Automatisch abtrennen/Automatische Komprimierung...
🌟 Interface-Magie: 😊Mehr attraktive und coole Emojis /Benachrichtigung bei wichtigen E-Mails /Outlook minimieren statt schließen...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten /Anti-Phishing-E-Mails /🕘Zeitzone des Absenders anzeigen...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte stapelweise aus ausgewählten E-Mails hinzufügen /Eine Kontaktgruppe in einzelne Gruppen aufteilen /Geburtstagserinnerung entfernen...
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!
