E-posta gönderirken konu satırından bazı özel karakterleri otomatik olarak nasıl kaldırabilirsiniz?
Outlook ile e-posta gönderirken konu satırına konuyu yazarken yanlışlıkla bazı özel karakterler eklemiş olabilirsiniz, bu nedenle bu özel karakterleri tek tek kaldırmak zorunda kalabilirsiniz. Bu makalede, e-postaları gönderirken konudan tüm bu özel karakterleri otomatik olarak kaldırmayı anlatacağım.
VBA kodu kullanarak e-postaları gönderirken konu satırındaki tüm özel karakterleri otomatik olarak kaldırın
E-postaları gönderirken konu satırındaki özel karakterleri otomatik olarak kaldırmak için aşağıdaki VBA kodu size yardımcı olabilir. Lütfen şu adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.
2. Microsoft Visual Basic for Applications penceresinde, Project1(VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayın, modu açın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.
VBA Kodu: Konu satırından özel karakterleri otomatik olarak kaldırma
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. Ve yine, hala Microsoft Visual Basic for Applications penceresinde iken, Araçlar > Referanslar'a tıklayarak Referanslar-Project1 iletişim kutusuna gidin ve Mevcut Referanslar listesi kutusundan Microsoft VBAScript Düzenli İfadeler 1.0 seçeneğini işaretleyin, aşağıdaki ekran görüntüsüne bakın:
4. Ardından iletişim kutusunu kapatmak için Tamam'a tıklayın, şimdi konu satırında bazı özel karakterler bulunan bir ileti gönderdiğinizde, ileti gönderildikten sonra bu karakterler otomatik olarak kaldırılacaktır. Aşağıdaki ekran görüntüsüne bakın:
En İyi Ofis Verimlilik Araçları
Flaş Haber: Kutools for Outlook Ücretsiz Sürümü Yayında!
Yepyeni Kutools for Outlook'u100’den fazla harika özellikle deneyimleyin! Hemen indirin!
📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için Mevcut) / E-postaları Zamanla Gönder / Gönderirken Kural ile Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selamlama Ekle / Birden Fazla Alıcılı E-postaları Otomatik Olarak Bireysel E-postalara Böl ...
📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu ve Diğerlerine Göre Sahtekarlık E-postalarını Engelle / Yinelenen E-postaları Sil / Gelişmiş Arama / Klasörleri düzenle ...
📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Sihri: 😊Daha Fazla Şık ve Güzel Emoji / Önemli e-postalar geldiğinde seni uyarır / Outlook’u Kapatmak Yerine Küçült ...
👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı (Phishing) E-postalarına Karşı Koruma / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler & Takvim: Seçili E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır ...
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40’tan fazla dil desteği!
