როგორ გავაგზავნოთ პერიოდულად განმეორებადი ელ.წერილი Outlook VBA-ით

Outlook Solutions სექტემბერი 29, 2025
გააზიარე ახლა:

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

შესაძლოა, თქვენ იცოდით, თუ როგორ უნდა დაგეგმოთ განმეორებადი ელ.ფოსტის გაგზავნა, რადგან Outlook-ს აქვს მიწოდების გადავადების მხარდაჭერა. მაგრამ ეს ფუნქცია უბრალოდ საშუალებას გაძლევთ მიუთითოთ ელ.ფოსტის გაგზავნის დრო. ის არ მოგცემთ უფლებას მისცეთ Outlook-ს ავტომატური გამოგზავნა პერიოდულად განმეორებადი ელ.წერილი, მაგალითად, 3rd ყოველი თვის ორშაბათი და ა.შ. ამიტომ, თუ გსურთ რეგულარულად გაგზავნოთ კონკრეტული ელ.წერილი, საჭიროა დამატებითი ძალისხმევა. აქ არის სწრაფი მეთოდი, რომელიც მოგიწევთ შექმნათ განმეორებადი დავალების ელემენტი და დააკოპიროთ შემდეგი VBA კოდები „ThisOutlookSession“ პროექტში.

პერიოდულად განმეორებადი ელფოსტის ავტომატური გაგზავნა

  1. პირველ რიგში, გაუშვით Outlook და შემდეგ გადადით Tasks პანელზე.
  2. შემდეგ დააჭირეთ ღილაკს "ახალი დავალება" ლენტით.
  3. მომდევნო "ახალი დავალების" ფანჯარაში, თქვენ უნდა შექმნათ განმეორებადი დავალება:
  • პირველ რიგში, ამოცანის სათაურის ველში აკრიფეთ „ელფოსტის გაგზავნა პერიოდულად“.
  • შემდეგ დააჭირეთ ღილაკს "განმეორება" ჩანართზე "ამოცანა",
  • შემდეგ დააყენეთ დავალების განმეორება თქვენი საჭიროების მიხედვით.
  • ამის შემდეგ დააჭირეთ "OK" განმეორების შესანახად.
  • ბოლოს დააყენეთ შეხსენების დრო და დააჭირეთ ღილაკს "შენახვა და დახურვა".შექმენით განმეორებადი დავალების ელემენტი
  1. ამის შემდეგ, გადადით "დეველოპერი" ჩანართზე და დააჭირეთ "Visual Basic" ღილაკს, რომ მიიღოთ წვდომა VBA რედაქტორის ფანჯარაში.
  2. მოგვიანებით, თქვენ უნდა დააკოპიროთ შემდეგი VBA კოდები „ThisOutlookSession“ პროექტში.
Private Sub Application_Reminder(ByVal Item As Object)
    Dim objPeriodicalMail As MailItem
 
    If Item.Class = olTask Then
       If InStr(LCase(Item.Subject), "send an email periodically") Then
          Set objPeriodicalMail = Outlook.Application.CreateItem(olMailItem)
          'Change the following email information as per your actual needs
          With objPeriodicalMail
               .Subject = "Test"
               .To = "boss@datanumen.com"
               .HTMLBody = "<HTML><BODY>type body here</HTML></BODY>"
               .Attachments.Add ("C:\Attachments\DataNumen.docx")
               .Importance = olImportanceHigh
               .ReadReceiptRequested = True
               .Send
          End With
       End If
    End If
End Sub

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

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

შენიშვნა: განმეორებადი ელფოსტის გაგზავნის შემდეგ, უნდა გახსოვდეთ, რომ მონიშნოთ მიმდინარე დავალების პუნქტი დასრულებულად.

გაუმკლავდეთ Outlook-ის საკითხებს ტაქტიანად

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

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

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

გააზიარე ახლა:

კომენტარები დახურულია.