“Cavabla”, “Hamısına Cavab Ver” və ya “İrəli” düymələrini vuraraq e-poçtları cavablandırmağa və ya yönləndirməyə çalışdığınız zaman e-poçtun mövzusunun qarşısında “RE” və ya “FW” prefiksi əlavə edilməlidir. Bu məqalə sizə Outlook-a VBA ilə onları avtomatik olaraq necə silmək barədə məlumat verəcəkdir.
Əvvəlki məqaləmizdə - "Mövzuda “FW” prefiksi olmadan Outlook e-poçtlarını yönləndirmək üçün 2 üsul”, e-poçtları “FW” olmadan yönləndirmək üçün iki həll yolu əldə edə bilərsiniz. Onlar e-poçtları yenidən göndərirlər və müvafiq olaraq "İrəli" sürətli addım yaradırlar. Aydındır ki, “Cavab vermək” qrupunda adi “İrəli” düyməsini istifadə etsəniz, onların hər ikisi sizə “FW”ni avtomatik silməyə icazə verə bilməz.
Buna görə, standart olaraq, "Cavabla", "Hamısına Cavab Ver" və ya "İrəli" düyməsini klikləyərkən mövzudakı "RE" və ya "FW" prefiksini silmək istəyirsinizsə, hər dəfə onları əl ilə silməlisiniz. Bu, olduqca çətin olacaq. Xoşbəxtlikdən, poçt mövzusundakı xüsusi sözləri avtomatik silmək üçün Outlook VBA-dan istifadə edə bilərsiniz. Ətraflı kodlara və addımlara nail olmaq üçün oxuyun.
E-poçtları yönləndirərkən və ya cavablandırarkən “FW” və ya “RE” prefiksini avtomatik silin
- Başlamaq üçün Outlook-u işə salın və "Geliştirici" sekmesine keçin.
- Sonra "Visual Basic" düyməsini tapıb klikləyə bilərsiniz.
- Sonrakı yeni pəncərədə "ThisOutlookSession" layihəsinə iki dəfə klik etməlisiniz.
- Sonradan aşağıdakı VBA kodlarını kopyalayıb ona yapışdırmalısınız.
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
- Bundan sonra bu makroya rəqəmsal sertifikat imzalamalısınız.
- Daha sonra siz “Visual Basic” pəncərəsindən çıxa və Outlook-u yalnız rəqəmsal imzalanmış makroları işə salmaq üçün konfiqurasiya edə bilərsiniz.
- Nəhayət, bir cəhd edə bilərsiniz.
- Əvvəlcə e-poçtu seçin və "Cavab ver", "Hamısına cavab ver" və ya "İrəli" düyməsini basın
- Sonra cavab və ya yönləndirmə mesajı açılacaq. Siz həmişəki kimi poçtu tərtib edə bilərsiniz.
- "Göndər" düyməsini kliklədikdə, aşağıdakı ekran görüntüsü kimi bir mesaj qutusu alacaqsınız:
- Əgər “Bəli” seçsəniz, “RE” və ya “FW” prefiksi avtomatik silinəcək. “Xeyr” seçsəniz, prefiks silinməyəcək.
Outlook e-poçtları ilə işləmək üçün nə etməməli
Outlook həssasdır, ona görə də Outlook məktubları ilə işləyərkən ehtiyatlı olmalısınız. Məsələn, naməlum mənbələrdən e-məktublar alsanız, onu açmasanız yaxşı olar, əlavə edilmiş linklərə klikləyin və ya əlavə edilmiş faylları endirməyin. Bu cür e-poçtlarda zərərli makrolar, viruslar və ya zərərli proqramlar ola bilər ki, bu da Outlook məlumatlarınızı bir anda məhv edə bilər. Bu o deməkdir ki, əziyyət çəkəcəksiniz Outlook faylının zədələnməsi. Bu zaman unikal kurortunuz güclü və nüfuzlu təmir alətindən istifadə etməkdir DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş mdf db təmiri və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com