Kā ātri nosūtīt uzaicinājumu uz sapulci tiem, kas programmā Outlook nav atbildējuši

Daudzi lietotāji cer ātri nosūtīt uzaicinājumu uz sapulci apmeklētājiem, kuri nav atbildējuši. Šis raksts parādīs, kā to sasniegt.

Manā iepriekšējā rakstā - “Kā ātri nosūtīt paziņojumu pastu sapulces dalībniekiem, kuri nav atbildējuši”, Jūs varētu uzzināt, kā nosūtīt paziņojuma pastu sapulces adresātiem, kuri nav atbildējuši. Līdzīgi tam daudzi lietotāji paziņojuma pasta vietā vēlas tieši nosūtīt šo sapulces ielūgumu. Tādējādi turpmāk mēs atklāsim VBA koda daļu, kas var palīdzēt jums to vienā mirklī realizēt.

Atkārtoti nosūtiet uzaicinājumu uz sapulci tiem, kas nav atbildējuši

1. Uz start, palaidiet programmu Outlook.
2. Pēc tam Outlook galvenajā logā nospiediet taustiņu “Alt + F11”, lai piekļūtu VBA redaktoram.
3. Pēc tam jums vajadzētu atvērt neizmantotu moduli vai vienkārši ievietot jaunu.
4. Pēc tam nokopējiet un ielīmējiet zemāk esošo VBA kodu šajā modulī.

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

5. Pēc tam vēlākai ērtai piekļuvei labāk pievienot šo jauno VBA projektu Ātrās piekļuves rīkjoslai kā parasti.
6. Piekļūstiet arī makro iestatījumiem, lai nodrošinātu makro atļauju.
7. Visbeidzot, jūs varat fotografēt:

• Pirmkārt, jums ir jāizvēlas avota sapulce jūsu Outlook kalendārā.
• Pēc tam ātrās piekļuves rīkjoslā nospiediet makro pogu.
• Uzreiz šī tikšanās tiks aizvainota apmeklētājiem, kuri nav atbildējuši.

Atrisiniet dažādas Outlook problēmas

Izmantojot Outlook, negaidīti var rasties visu veidu problēmas, piemēram, pēkšņi “Neatbildēt”, uznirstošo kļūdu ziņojumi, avārijas un tā tālāk. Parasti jums ir svarīgi novērst nelielas problēmas ar iekšējā remonta utilītu. Tomēr, ja problēmas ir pārāk nopietnas, lai tās varētu atrisināt ar Scanpst.exe, jums nekas cits neatliek kā izmantot daudz spēcīgāku un uzticamāku labošanas rīku, piemēram, DataNumen Outlook Repair. Tas ir labi pārzina PST remonts, tādējādi pārvarot pār konkurentiem.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts sql un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar