Как да премахнете автоматично префикса „RE“ или „FW“ в Subject, когато отговаряте или препращате имейли

Когато се опитате да отговорите или препратите имейли чрез натискане на бутон „Отговор“, „Отговор на всички“ или „Препращане“, трябва да има добавен префикс „RE“ или „FW“ в предната част на темата на имейла. Тази статия ще ви каже как да позволите на Outlook да ги премахне автоматично с VBA.

В нашата предишна статия - „2 метода за препращане на имейли на Outlook без префикс „FW“ в тема”, Можете да получите две решения за препращане на имейли без„ FW ”. Те изпращат отново имейлите и създават съответно бърза стъпка „Препращане“. Очевидно е, че и двамата не могат да ви позволят да премахнете автоматично “FW”, ако използвате нормалния бутон “Forward” в групата “Respond”.

Следователно, по подразбиране, ако искате да премахнете префикса „RE“ или „FW“ в темата, когато щракнете върху бутона „Отговор“, „Отговор на всички“ или „Препращане“, трябва да ги изтривате ръчно всеки път. Ще бъде доста обезпокоително. За щастие можете да използвате Outlook VBA, за да премахнете автоматично конкретните думи в темата на пощата. Прочетете, за да постигнете подробните кодове и стъпки.

Автоматично премахване на префикса „FW“ или „RE“ при препращане или отговор на имейли

1. За начало стартирайте Outlook и отидете в раздела „Разработчик“.
2. След това можете да намерите и щракнете върху бутона „Visual Basic“.
3. След това в новия прозорец трябва да щракнете двукратно върху проекта “ThisOutlookSession”.
4. Впоследствие трябва да копирате и поставите следните 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

5. След това трябва да подпишете цифров сертификат за този макрос.
6. По-късно можете да излезете от прозореца „Visual Basic“ и да конфигурирате Outlook да активира само цифрово подписаните макроси.
7. Накрая можете да опитате.

• Първо изберете имейл и натиснете бутона „Отговор“, „Отговор на всички“ или „Препращане“
• След това ще се отвори съобщението за отговор или препращане. Можете да съставяте пощата както обикновено.
• Когато кликнете върху бутона „Изпрати“, ще получите поле за съобщение, като следната екранна снимка:
• Ако изберете „Да“, префиксът „RE“ или „FW“ ще бъде премахнат автоматично. Ако изберете „Не“, префиксът няма да бъде премахнат.

Какво да не правим при справяне с имейли в Outlook

Outlook е уязвим, така че трябва да внимавате при обработката на имейли в Outlook. Например, ако получавате имейли от неизвестни източници, по-добре не ги отваряйте, да не говорим, щракнете върху вградените връзки или изтеглете прикачените файлове. Този вид имейли могат да съдържат злонамерени макроси, вируси или злонамерен софтуер, които могат да унищожат данните ви в Outlook светкавично. Означава, че ще страдате Повреда на Outlook файла. В този момент вашият уникален курорт е да използвате мощен и уважаван инструмент за ремонт, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт корумпирани mdf db и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com