При спробі відповісти або переслати електронні листи, натиснувши кнопку «Відповісти», «Відповісти всім» або «Вперед», перед темою повідомлення електронної пошти повинен бути доданий префікс «RE» або «FW». Ця стаття розповість вам, як дозволити Outlook автоматично видаляти їх за допомогою VBA.
У нашій попередній статті - "2 методи пересилання електронних листів Outlook без префіксу “FW” у темі”, Ви можете отримати два способи переадресації електронних листів без“ FW ”. Вони повторно відправляють електронні листи та створюють швидкий крок "Вперед" відповідно. Очевидно, що обидва вони не можуть дозволити вам автоматично видалити “FW”, якщо ви використовуєте звичайну кнопку “Вперед” у групі “Відповісти”.
Тому за замовчуванням, якщо ви хочете видалити префікс «RE» або «FW» у темі, натискаючи кнопку «Відповісти», «Відповісти всім» або «Вперед», вам доведеться щоразу видаляти їх вручну. Це буде досить клопітно. На щастя, ви можете використовувати Outlook VBA для автоматичного видалення конкретних слів у темі пошти. Прочитайте далі, щоб отримати докладні коди та кроки.
Автоматично видаляйте префікс “FW” або “RE” під час пересилання або відповіді на електронні листи
- Для початку запустіть Outlook і перейдіть на вкладку «Розробник».
- Потім ви можете знайти та натиснути кнопку “Visual Basic”.
- Далі у новому вікні ви повинні двічі клацнути на проекті «ThisOutlookSession».
- Згодом вам потрібно скопіювати та вставити в нього такі коди VBA.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
If InStr(Item.Subject, "RE") > 0 Then
'If you don't want the prompt,
'You can remove the MsgBox line and its correspoding "Else … End If" lines.
If MsgBox("Do you want to remove the prefix 'RE'?", vbYesNo) = vbYes Then
strSubject = Replace(Item.Subject, "RE:", "", vbTextCompare)
Else
strSubject = Item.Subject
End If
End If
If InStr(Item.Subject, "FW") > 0 Then
If MsgBox("Do you want to remove the prefix 'FW'?", vbYesNo) = vbYes Then
strSubject = Replace(Item.Subject, "FW:", "", vbTextCompare)
Else
strSubject = Item.Subject
End If
End If
Item.Subject = Trim(strSubject)
Item.Save
End Sub
- Після цього слід підписати цифровий сертифікат на цей макрос.
- Пізніше ви зможете вийти з вікна «Visual Basic» і налаштувати Outlook, щоб увімкнути лише макроси з цифровим підписом.
- Нарешті можна спробувати.
- По-перше, виберіть електронний лист і натисніть кнопку "Відповісти", "Відповісти всім" або "Переслати"
- Потім відкриється відповідь або переадресація. Ви можете складати пошту як зазвичай.
- Натиснувши кнопку «Надіслати», ви отримаєте вікно повідомлення, наприклад наступний знімок екрана:
- Якщо вибрати «Так», префікс «RE» або «FW» буде автоматично видалено. Якщо вибрати “Ні”, префікс не буде видалений.
Чого не можна робити при роботі з електронною поштою Outlook
Outlook є вразливим, тому дотримуйтесь обережності при роботі з електронною поштою Outlook. Наприклад, якщо ви отримуєте електронні листи з невідомих джерел, краще не відкривайте їх, не кажучи вже про клацання вбудованих посилань або завантаження вкладених файлів. Цей тип електронних листів може містити шкідливі макроси, віруси або шкідливе програмне забезпечення, що може швидко зіпсувати дані Outlook. Це означає, що ви будете страждати Пошкодження файлів Outlook. На той момент, ваш унікальний курорт - використовувати потужний та авторитетний інструмент ремонту, наприклад DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновлення корумпованого mdf db - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com