Як автоматично видалити спеціальні символи в темі електронної пошти за допомогою Outlook VBA

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Електронні листи, що містять спеціальні символи, зазвичай блокуються як спам. Отже, слід уникати спеціальних символів у темах вихідних листів. Тепер у цій статті ми навчимо вас дозволяти програмі Outlook автоматично видаляти спеціальні символи у темі електронної пошти.

Моя попередня стаття “Як отримати попередження при спробі ввести спеціальні символи в тему електронної пошти Outlook”Представив спосіб уникнути спеціальних символів при складанні електронної пошти. Але деякі користувачі бажають, щоб Outlook автоматично видаляв спеціальні символи в темі, коли вони натискають кнопку «Надіслати», щоб надіслати електронне повідомлення. Орієнтуючись на цю вимогу, ми розглянемо ще один фрагмент коду VBA. Це може зрозуміти це з легкістю.

Автоматичне видалення спеціальних символів у темі електронної пошти

  1. Спочатку запустіть програму Outlook.
  2. Потім відкрийте редактор VBA відповідно до “Як запустити код VBA у своєму Outlook».
  3. Далі, у редакторі VBA, увімкніть “Регулярні вирази Microsoft VBScript” з посиланням на “Як додати посилання на бібліотеку об'єктів у VBA».
  4. Після цього додайте наступний код у проект “ThisOutlookSession”.
'Occurs when sending an email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRegExp As RegExp
    Dim strSubject As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       'Get the mail subject
       strSubject = objMail.Subject
 
       'Find special characters via regular expression
       Set objRegExp = New RegExp
       With objRegExp
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^a-zA-Z0-9]"
       End With
 
      'Replace special characters with space
      If objRegExp.test(strSubject) = True Then
         strSubject = objRegExp.Replace(strSubject, " ")
         objMail.Subject = strSubject
      End If
    End If
End Sub

Код VBA - Автоматичне видалення спеціальних символів у темі електронної пошти

  1. Згодом закрийте редактор VBA.
  2. Відтоді щоразу, коли ви намагаєтеся надіслати електронне повідомлення, тема якого має спеціальні символи, Outlook автоматично видаляє їх, як показано на наступному знімку екрана.Видаліть спеціальні символи в темі електронної пошти

Зберігайте кілька копій файлів Outlook

Як ви працюєте з Outlook у щоденній роботі? Насправді настійно рекомендується зберігати кілька копій файлів Outlook. Він має на меті допомогти вам позбутися болісної втрати даних Outlook. Тільки уявіть такий сценарій. Наприклад, ваш Outlook раптово виходить з ладу, а відкриті файли стають недоступними. У цьому випадку, якщо ви зберегли інші копії, вам не потрібно турбуватися. Але якщо у вас цього немає, ви зобов’язані виправити Outlook та максимально відновити пошкоджені дані Outlook. На цьому етапі вам знадобиться інструмент, наприклад, DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновлення SQL та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.