როგორ სწრაფად გავუგზავნოთ შეხვედრის მოწვევა მათ, ვინც არ უპასუხა Outlook-ში

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

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

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

სწრაფად გაუგზავნეთ შეხვედრის მოწვევა მათ, ვინც არ უპასუხა Outlook-ში

ხელახლა გაუგზავნეთ შეხვედრის მოწვევა მათ, ვინც არ უპასუხა

  1. სtarდა გაუშვით თქვენი Outlook აპლიკაცია.
  2. შემდეგ, Outlook-ის მთავარ ფანჯარაში, დააჭირეთ "Alt + F11" ღილაკებს VBA რედაქტორზე წვდომისთვის.
  3. შემდეგ თქვენ უნდა გახსნათ გამოუყენებელი მოდული ან უბრალოდ ჩადეთ ახალი.
  4. ამის შემდეგ, დააკოპირეთ და ჩასვით ქვემოთ მოცემული VBA კოდი ამ მოდულში.
Sub ResendMeetingInvitationToAttendeesNotRespond()
    Dim objMeeting As AppointmentItem
    Dim objAttendees As Recipients
    Dim objAttendee As recipient
    Dim AttendeesNotRespond As String
    Dim objCopiedMeeting As AppointmentItem
    Dim objRecipient As recipient
    Dim objItem As Object
 
    Set objMeeting = ActiveExplorer.Selection.Item(1)
    'Create a copy of the source meeting
    Set objCopiedMeeting = objMeeting.Copy
 
    'Remove all the original recipients
    For i = objCopiedMeeting.Recipients.Count To 1 Step -1
        objCopiedMeeting.Recipients.Item(i).Delete
    Next
 
    Set objAttendees = objMeeting.Recipients
    For Each objAttendee In objAttendees
        If (objAttendee.Type <> olOrganizer) And (objAttendee.MeetingResponseStatus = olResponseNone) Then
           'Add the recipients who haven't responded to this meeting
           objCopiedMeeting.Recipients.Add (objAttendee.Address)
        End If
    Next
 
    'Send this copied meeting
    objCopiedMeeting.Recipients.ResolveAll
    objCopiedMeeting.Send
 
    'Permanently delete the copied meeting
    objCopiedMeeting.UserProperties.Add ("Clear"), olText
    objCopiedMeeting.Save
    objCopiedMeeting.Delete
    For Each objItem In Application.Session.GetDefaultFolder(olFolderDeletedItems).Items
        If TypeName(objItem.UserProperties.Find("Clear")) <> "Nothing" Then
           objItem.Delete
        End If
    Next
End Sub

VBA კოდი - სწრაფად გაუგზავნეთ შეხვედრის მოწვევა მათ, ვინც არ უპასუხა

  1. ამის შემდეგ, შემდგომი მოსახერხებელი წვდომისთვის, უმჯობესია დაამატოთ ეს ახალი VBA პროექტი Quick Access Toolbar-ში, როგორც ყოველთვის.
  2. ასევე, შედით მაკრო პარამეტრებზე, რათა დარწმუნდეთ, რომ მაკროები დაშვებულია.
  3. საბოლოოდ შეგიძლიათ გადაიღოთ კადრი:
  • პირველ რიგში, თქვენ უნდა აირჩიოთ წყაროს შეხვედრა თქვენს Outlook კალენდარში.
  • შემდეგ დააჭირეთ მაკრო ღილაკს სწრაფი წვდომის ინსტრუმენტთა პანელში.
  • დაუყოვნებლივ, ეს შეხვედრა ხელახლა გაეგზავნება დამსწრეებს, რომლებმაც არ უპასუხეს.

სხვადასხვა Outlook-ის პრობლემების გადაჭრა

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

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

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

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

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