Ինչպես արագ ուղարկել հանդիպման հրավերը Outlook- ում չպատասխանածներին

Outlook լուծումներ Սեպտեմբեր 29, 2025
Կիսվել հիմա ՝

Շատ օգտվողներ հույս ունեն, որ հանդիպման հրավերն արագ կուղարկեն այն մասնակիցներին, ովքեր որևէ պատասխան չեն տվել: Այս հոդվածը ցույց կտա ձեզ, թե ինչպես հասնել դրան:

Իմ նախորդ հոդվածում ՝ «Ինչպես արագ ուղարկել ծանուցման նամակ հանդիպման մասնակիցներին, ովքեր չեն արձագանքել”, Կարող եք սովորել, թե ինչպես ուղարկել ծանուցման նամակ հանդիպման չստացած պատասխան ստացողներին: Նմանապես, շատ օգտվողներ կցանկանային ուղղակիորեն ուղարկել այս հանդիպման հրավերը ՝ ծանուցման նամակի փոխարեն: Այսպիսով, հաջորդում մենք կբացահայտենք VBA կոդի մի կտոր, որը կարող է օգնել ձեզ այն ակնթարթորեն գիտակցել:

Շտապ ուղարկեք հանդիպման հրավերը նրանց, ովքեր չեն արձագանքել Outlook- ում

Ուղարկեք հանդիպման հրավերը չպատասխանածներին

  1. Սtarգործարկել ձեր Outlook ծրագիրը:
  2. Այնուհետեւ, Outlook- ի հիմնական պատուհանում, VBA խմբագրիչ մուտք գործելու համար սեղմեք «Alt + F11» ստեղների կոճակները:
  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- ը, բոլոր տեսակի խնդիրները կարող են անսպասելիորեն առաջանալ, օրինակ ՝ կտրուկ «Չարձագանքել», թռուցիկ սխալի հաղորդագրություններ, վթարներ և այլն: Ընդհանրապես, ձեզ համար էական նշանակություն ունի ներքին վերանորոգման օգտակար ծառայության փոքր խնդիրները լուծելը: Այնուամենայնիվ, եթե խնդիրները չափազանց լուրջ են Scanpst.exe- ի միջոցով լուծելու համար, դուք այլընտրանք չունեք, քան օգնության հասնել շատ ավելի հզոր և հուսալի շտկման գործիքի, օրինակ ՝ DataNumen Outlook Repair, Դա լավատեղյակ է PST- ի նորոգում, դրանով իսկ ուսերին գցելով իր մրցակիցներին:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված sql և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: