როგორ ავტომატური გადამისამართება კონკრეტული შემომავალი ელ.წერილი სხვადასხვა ანგარიშის მეშვეობით თქვენს Outlook-ში

Outlook Solutions სექტემბერი 29, 2025

ზოგიერთმა მომხმარებელმა დააკონფიგურირა ერთზე მეტი ელ.ფოსტის ანგარიში Outlook-ში და დაადგინა ერთი ნაგულისხმევ ანგარიშად. მაგრამ მათ ასევე სურთ Outlook-ს ავტომატური გადამისამართება კონკრეტული შემომავალი ელ.წერილი სხვა ანგარიშის მეშვეობით. Outlook-ს არ აქვს ასეთი ფუნქცია, ამიტომ მისი განხორციელება შესაძლებელია მხოლოდ ამ სტატიაში გაზიარებული VBA კოდით.

მაგალითად, თქვენ დააყენეთ ორი POP3 ელ.ფოსტის ანგარიში თქვენს Outlook-ში და დააყენეთ ანგარიში 1 ნაგულისხმევ ანგარიშად. ამგვარად, ყველა შემომავალი ელფოსტა შეინახება Outlook-ის ფაილში ანგარიში 1. და თქვენ შექმნით Outlook-ის წესს, რომ ავტომატურად გადააგზავნოთ კონკრეტული შემომავალი წერილები სხვისთვის. ახლა, თქვენ იმედი გაქვთ, რომ ყველა ფოსტის გადამისამართება შესრულდება სხვა ელ.ფოსტის ანგარიშის მეშვეობით, კერძოდ, ანგარიში 2. თუმცა, Outlook-ის წესი არ ითვალისწინებს ასეთ მოქმედებას. ამრიგად, თქვენ უნდა გამოიყენოთ სხვა მეთოდები, როგორიცაა შემდეგი გზა.

ავტომატური გადამისამართება კონკრეტული შემომავალი ელ.ფოსტის სხვადასხვა ანგარიშის მეშვეობით

დასაწყისისთვის, Outlook-ში შედით VBA რედაქტორზე "Alt + F11" საშუალებით.
შემდეგ, 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

შემდეგი, გამოდით VBA რედაქტორიდან.
ამის შემდეგ, დააწკაპუნეთ "წესები" > "მართეთ წესები და გაფრთხილებები" "მთავარი" ჩანართზე.
შემდეგ, ახალ დიალოგურ ფანჯარაში, დააჭირეთ "ახალი წესი".
ამის შემდეგ გამოჩნდება სხვა დიალოგური ფანჯარა, რომელშიც თქვენ უნდა აირჩიოთ „მიღებული შეტყობინებების წესის გამოყენება“ და დააჭირეთ „შემდეგი“.
შემდეგ, ახალ ეკრანზე, თქვენ უნდა დააყენოთ წესის პირობა, როგორიცაა "სუბიექტში კონკრეტული სიტყვებით" და დააჭიროთ "შემდეგი".
შემდეგ ეკრანზე, თქვენ უნდა აირჩიოთ „სკრიპტის გაშვება“ და აირჩიოთ ახალი მაკრო, რომელიც ახლახან დაამატეთ.
ამის შემდეგ შეგიძლიათ დაასრულოთ წესების დაყენება ეკრანზე ოსტატების მიხედვით.
ამიერიდან, ყოველ ჯერზე, როდესაც კონკრეტული ელფოსტა მოხვდება კონკრეტულ საფოსტო ყუთში, Outlook ავტომატურად გადააგზავნის მას სხვა კონკრეტული ელექტრონული ფოსტის ანგარიშის მეშვეობით.

სამაშველო Outlook მონაცემები დაზიანების შემდეგ

მიუხედავად იმისა, რომ Outlook უზრუნველყოფს ფუნქციების რაოდენობას, ის მაინც ვერ იქნება შეცდომებისა და კორუფციისგან. თუ თქვენი Outlook მოულოდნელად იშლება, არსებობს ცუდი შანსი, რომ თქვენი Outlook მონაცემთა ფაილი შეიძლება დაზიანდეს. იმ დროს კი ჩაშენებული Outlook შეკეთება ინსტრუმენტი, Scanpst, ვერ დაგეხმარებათ. თქვენ არ გაქვთ ალტერნატივა, გარდა იმისა, რომ მიიღოთ ძლიერი გარე ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული sql და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად