Ba'zi foydalanuvchilar Outlook-da bir nechta elektron pochta qayd yozuvlarini sozlagan va ulardan birini standart hisob sifatida o'rnatgan. Biroq, ular Outlook-dan boshqa hisob orqali kiruvchi elektron pochta xabarlarini avtomatik ravishda yo'naltirishni xohlashadi. Outlookda bunday funktsiya yo'q, shuning uchun uni faqat ushbu maqolada ko'rsatilgan VBA kodi bilan amalga oshirish mumkin.
Masalan, siz Outlook-da ikkita POP3 elektron pochta hisobini o'rnatdingiz va 1-hisobni standart hisob sifatida o'rnatdingiz. Shunday qilib, barcha kiruvchi elektron xatlar 1-hisob qaydnomasining Outlook faylida saqlanadi. Va siz kiruvchi xatlarni avtomatik ravishda boshqa birovga yo'naltirish uchun Outlook qoidasini yaratasiz. Endi siz umid qilayotgan narsa shuki, barcha pochta jo'natmalari boshqa elektron pochta hisobi, ya'ni 2-hisob qaydnomasi orqali amalga oshiriladi. Biroq, Outlook qoidasi bunday harakatni ta'minlamaydi. Shunday qilib, siz boshqa usullardan foydalanishingiz kerak, masalan, quyidagi usul.
Boshqa hisob orqali kiruvchi elektron pochta xabarlarini avtomatik yo'naltirish
- Boshlash uchun Outlook-da VBA muharririga “Alt + F11” orqali kiring.
- Keyin, VBA muharririda quyidagi VBA kodini bo'sh modulga qo'ying.
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
- Keyin VBA muharriridan chiqing.
- Keyinchalik, "Uy" yorlig'ida "Qoidalar"> "Qoidalar va ogohlantirishlarni boshqarish" ni bosing.
- Keyin, yangi dialog oynasida "Yangi qoida" ni bosing.
- Shundan so'ng, boshqa dialog oynasi paydo bo'ladi, unda siz "Men qabul qilgan xabarlarga qoidani qo'llash" ni tanlashingiz va "Keyingi" tugmasini bosing.
- Keyin, yangi ekranda siz qoida shartini o'rnatishingiz kerak, masalan, "mavzuda aniq so'zlar bilan" va "Keyingi" tugmasini bosing.
- Keyingi ekranda siz "skriptni ishga tushirish" ni tanlashingiz va hozir qo'shgan yangi makrosni tanlashingiz kerak.
- Shundan so'ng, siz ekrandagi sehrgarlarga ko'ra qoidalarni o'rnatishni tugatishingiz mumkin.
- Bundan buyon, har safar ma'lum bir elektron pochta ma'lum bir pochta qutisiga tushganda, Outlook uni boshqa maxsus elektron pochta hisobi orqali avtomatik ravishda yo'naltiradi.
Outlook ma'lumotlarini shikastlangandan keyin qutqaring
Outlook ko'plab funktsiyalarni taqdim etsa-da, u hali ham xatolar va buzilishlardan xoli bo'lishi mumkin emas. Agar Outlook to'satdan ishlamay qolsa, Outlook ma'lumotlar faylingiz buzilgan bo'lishi mumkin. O'sha paytda, hatto o'rnatilgan Outlook-ni ta'mirlash Scanpst vositasi sizga yordam bera olmaydi. Sizda kuchli tashqi vositadan yordam olishdan boshqa ilojingiz yo'q DataNumen Outlook Repair.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan sql va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com