როგორ გავაგზავნოთ ყველა ღია და შედგენილი ელ.წერილი თქვენს Outlook-ში

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

მაგალითად, თქვენ დაასრულეთ რამდენიმე ახალი ელფოსტა, მაგრამ არ გაუგზავნეთ ისინი, უბრალოდ დატოვეთ ისინი ღიად. და ამის შემდეგ, გსურთ მათი გაგზავნა. ზოგადად, თქვენ უნდა დააჭიროთ ღილაკს „გაგზავნა“ ყველა ელ.წერილში სათითაოდ. ამ ვითარებაში, თქვენ უნდა მოისურვოთ მეთოდი, რომელიც დაგეხმარებათ გააგზავნოთ ყველა ღია და შედგენილი ელ.წერილი ნაყარად.

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

ჯგუფური გაგზავნა ყველა ღია და შედგენილი ელ.წერილი

1. დასაწყისისთვის, შეგიძლიათ ჩვეულებისამებრ შეადგინოთ თქვენი ელ.წერილი და შეინახოთ ისინი ღია.
2. შემდეგ დააჭირეთ "Alt + F11" VBA რედაქტორზე წვდომისთვის.
3. შემდეგი, ახალ ფანჯარაში დააკოპირეთ შემდეგი VBA კოდი მოდულში.

Sub BatchSendOutAllOpenEmails()
    Dim objInspectors As Outlook.Inspectors
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim lMailCount As Long
 
    'Get all open items in your Outlook
    Set objInspectors = Outlook.Application.Inspectors
 
    lMailCount = 0
    For i = objInspectors.Count To 1 Step -1
        If objInspectors.Item(i).CurrentItem.Class = olMail Then
           'Get all open emails
           Set objMail = objInspectors.Item(i).CurrentItem
 
           'Send out open emails that contain subject & recipients
           If objMail.Subject <> "" Then
              If objMail.Recipients.Count > 0 Then
                 objMail.Send
                 lMailCount = lMailCount + 1
              End If
           End If
        End If
    Next
 
    'Prompt you of the results
    MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub

4. ამის შემდეგ, ჩართეთ ეს მაკრო პირდაპირ ღილაკზე „F5“ დაჭერით.
5. და ბოლოს, როდესაც მაკრო დასრულდება, თქვენ მოგეთხოვებათ გაგზავნილი ელ.ფოსტის რაოდენობა.
6. ახლა გახსენით Outbox, რომელშიც ხედავთ, რომ ყველა ადრე გახსნილი ელ.წერილი იგზავნება.

აღადგინეთ Outlook მოულოდნელი დაზიანებისგან

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

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

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