Outlook-da fərqli bir hesab vasitəsilə xüsusi daxil olan e-poçtları necə avtomatik yönləndirmək olar

Bəzi istifadəçilər Outlook-da birdən çox e-poçt hesabını konfiqurasiya etmiş və birini standart hesab kimi təyin etmişlər. Bununla belə, onlar Outlook-un xüsusi daxil olan e-poçtları başqa hesab vasitəsilə avtomatik yönləndirməsini istəyirlər. Outlook-un belə bir funksiyası yoxdur, ona görə də yalnız bu məqalədə paylaşılan VBA kodu ilə həyata keçirilə bilər.

Məsələn, Outlook-da iki POP3 e-poçt hesabı qurmusunuz və Hesab 1-i defolt hesab kimi təyin etmisiniz. Beləliklə, bütün daxil olan e-poçtlar Hesab 1-in Outlook faylında saxlanılacaq. Və siz xüsusi daxil olan e-poçtları başqasına avtomatik yönləndirmək üçün Outlook qaydası yaradırsınız. İndi ümid etdiyiniz budur ki, bütün məktub yönləndirilməsi başqa e-poçt hesabı, yəni Hesab 2 vasitəsilə həyata keçirilir. Lakin Outlook qaydası belə bir hərəkəti təmin etmir. Beləliklə, aşağıdakı üsul kimi digər üsullardan istifadə etməlisiniz.

Fərqli Hesab vasitəsilə Xüsusi Gələn E-poçtları Avtomatik Yönləndirin

1. Başlamaq üçün Outlook-da “Alt + F11” vasitəsilə VBA redaktoruna daxil olun.
2. Sonra VBA redaktorunda aşağıdakı VBA kodunu boş modula qoyun.

Sub AutoForwardMailsThroughAnotherAccount(objMail As Outlook.MailItem)
    Dim objForwardMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objMailAccounts As Outlook.Accounts
    Dim objMailAccount As Outlook.Account
 
    Set objForwardMail = objMail.Forward
    'Change the recipients of forwarding email
    Set objRecipient = objForwardMail.Recipients.Add("shelly@datanumen.com")
    objRecipient.Type = olTo
    objForwardMail.Recipients.ResolveAll
 
    Set objMailAccounts = Outlook.Application.Session.Accounts
    For Each objMailAccount In objMailAccounts
        'Replace "John Smith" with the display name of your email account
        If objMailAccount.DisplayName = "John Smith" Then
           objForwardMail.SendUsingAccount = objMailAccount
           objForwardMail.Send
        End If
    Next
End Sub

3. Sonra, VBA redaktorundan çıxın.
4. Sonra, "Ev" sekmesinde "Qaydalar" > "Qaydaları və Siqnalları İdarə et" üzərinə klikləyin.
5. Sonra, yeni informasiya qutusunda "Yeni Qayda" düyməsini basın.
6. Bundan sonra başqa bir informasiya qutusu görünəcək, orada "Aldığım mesajlara qayda tətbiq et" seçimini etməli və "Sonrakı" düyməsini klikləyin.
7. Sonra, yeni ekranda “mövzuda xüsusi sözlərlə” kimi qayda şərtini təyin etməli və “Növbəti” düyməsini sıxmalısınız.
8. Sonrakı ekranda siz “skript işlət” seçimini etməli və indi əlavə etdiyiniz yeni makronu seçməlisiniz.
9. Bundan sonra, ekrandakı sehrbazlara uyğun olaraq qayda quraşdırmanı tamamlaya bilərsiniz.
10. Bundan sonra, hər dəfə xüsusi e-poçt xüsusi poçt qutusuna daxil olduqda, Outlook onu başqa xüsusi e-poçt hesabı vasitəsilə avtomatik yönləndirəcək.

Zərərdən sonra Outlook məlumatlarını xilas edin

Outlook çox sayda funksiya təmin etsə də, o, hələ də səhvlərdən və korrupsiyadan azad ola bilməz. Outlook qəflətən çökərsə, Outlook məlumat faylınızın zədələnməsi ehtimalı azdır. O zaman, hətta daxili Outlook təmiri Scanpst aləti sizə kömək edə bilmir. kimi nəhəng bir xarici alətdən kömək almaqdan başqa alternativiniz yoxdur 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ş sql və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com