Outlook бағдарламасындағы басқа тіркелгі арқылы арнайы кіріс электрондық хаттарды қалай автоматты түрде қайта бағыттауға болады

Кейбір пайдаланушылар Outlook бағдарламасында бірнеше электрондық пошта тіркелгісін теңшеген және біреуін әдепкі тіркелгі ретінде орнатқан. Бірақ олар Outlook-тің басқа тіркелгі арқылы белгілі бір кіріс электрондық хаттарды автоматты түрде қайта жіберуін қалайды. Outlook бағдарламасында мұндай функция жоқ, сондықтан оны тек осы мақалада ортақ VBA кодымен жүзеге асыруға болады.

Мысалы, Outlook бағдарламасында екі POP3 электрондық пошта тіркелгісін орнаттыңыз және 1 тіркелгісін әдепкі тіркелгі ретінде орнаттыңыз. Осылайша, барлық кіріс электрондық хаттар 1 тіркелгісінің Outlook файлында сақталады. Және сіз белгілі бір кіріс электрондық хаттарды басқа біреуге автоматты түрде қайта жіберу үшін Outlook ережесін жасайсыз. Енді сіз барлық хаттарды қайта жіберу басқа электрондық пошта тіркелгісі, атап айтқанда 2 тіркелгі арқылы орындалады деп үміттенесіз. Дегенмен, Outlook ережесі мұндай әрекетті қамтамасыз етпейді. Осылайша, келесі жол сияқты басқа әдістерді қолдануға тура келеді.

Басқа тіркелгі арқылы арнайы кіріс электрондық хаттарды автоматты түрде қайта бағыттау

1. Бастау үшін Outlook бағдарламасында VBA редакторына «Alt + F11» арқылы қол жеткізіңіз.
2. Содан кейін, VBA өңдегішінде келесі VBA кодын бос модульге қойыңыз.

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. Содан кейін VBA редакторынан шығыңыз.
4. Содан кейін «Басты» қойындысында «Ережелер» > «Ережелер мен ескертулерді басқару» түймесін басыңыз.
5. Содан кейін, жаңа диалогтық терезеде «Жаңа ереже» түймесін басыңыз.
6. Осыдан кейін басқа тілқатысу терезесі пайда болады, онда сіз «Мен алатын хабарламаларға ережені қолдану» тармағын таңдап, «Келесі» түймесін басыңыз.
7. Әрі қарай, жаңа экранда «тақырыптағы нақты сөздермен» сияқты ереже шартын орнату керек және «Келесі» түймесін басыңыз.
8. Келесі экранда «скриптті іске қосу» тармағын таңдап, дәл қазір қосқан жаңа макросты таңдау керек.
9. Осыдан кейін экрандағы шеберлерге сәйкес ережені орнатуды аяқтауға болады.
10. Бұдан былай, белгілі бір электрондық пошта белгілі бір пошта жәшігіне түскен сайын, Outlook оны басқа арнайы электрондық пошта тіркелгісі арқылы автоматты түрде қайта бағыттайды.

Зақымдан кейін Outlook деректерін сақтау

Outlook көптеген функцияларды қамтамасыз еткенімен, ол әлі де қателер мен бүлінулерден таза бола алмайды. Егер Outlook кенеттен бұзылса, Outlook деректер файлының бүліну ықтималдығы төмен. Ол кезде тіпті кіріктірілген Перспективаны жөндеу құралы, Scanpst, сізге көмектесе алмайды. Сізде керемет сыртқы құралдың көмегіне жүгінуден басқа балама жоқ DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com