Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip automatiškai priimti konkretaus asmeninio "Outlook" susitikimo užklausą?

Gavę "Outlook" susitikimo kvietimą, turite rankiniu būdu priimti susitikimo užklausą ir išsiųsti atsakymą siuntėjui. Ar yra paprastas būdas automatiškai priimti jį iš konkretaus asmeninio "Outlook"? Šio straipsnio metodas padės jums.

Automatinis susitikimo užklausimas iš konkretaus asmens su VBA kodu


Lengvai pašalinkite pasikartojančius el. Laiškus iš nurodyto el. Pašto aplanko vienu metu "Outlook":

Ištrinti Pasikartojantys el. Laiškai naudingumas Kutools for Outlook gali padėti jums greitai pašalinti visus pasikartojančius el. laiškus iš el. pašto failo arba kelis nurodytus aplankus vienu metu "Outlook". Žr. Ekrano kopiją:

Kutools for Outlook: su daugiau nei 40 patogiais "Outlook" papildinimais, galite nemokamai išbandyti be apribojimų per 45 dienas. Atsisiųskite ir nemokamai bandykite dabar!


Automatinis susitikimo užklausimas iš konkretaus asmens su VBA kodu

Žemiau pateiktas VBA kodas gali padėti automatiškai priimti susitikimo užklausą, išsiųstą iš konkretaus asmens "Outlook". Prašau tai padaryti.

1. Paspauskite Kitas + F11 raktus atidaryti "Microsoft Visual Basic for Applications" langas.

2. Viduje "Microsoft Visual Basic for Applications" langas, dukart spustelėkite ThisOutlookSession kairiojoje srityje atidarykite langą Kodas, tada nukopijuokite žemiau VBA kodą į langą. Žr. Ekrano kopiją:

VBA kodas: automatiškai priimti konkretaus asmens "Outlook" susitikimo užklausą

Public WithEvents GItems As Outlook.Items
'Updated by ExtendOffice 20180814
Private Sub Application_Startup()
    Set GItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GItems_ItemAdd(ByVal Item As Object)
Dim xMtRequest As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xMtResponse As MeetingItem
If Item.Class = olMeetingRequest Then
    Set xMtRequest = Item
    Set xAppointmentItem = xMtRequest.GetAssociatedAppointment(True)
    If xAppointmentItem.GetOrganizer.Name = "Sender Name" Then
        With xAppointmentItem
            .ReminderMinutesBeforeStart = 45
            .Categories = "Orange Category"
            .Save
        End With
        Set xMtResponse = xAppointmentItem.Respond(olMeetingAccepted)
        xMtResponse.Send
        xMtRequest.Delete
    End If
End If
End Sub

pastabos: Kode prašome pakeisti "Siuntėjo vardas"Su siuntėjo rodomu vardu.

3. Išsaugokite kodą, tada paspauskite Kitas + Q raktus uždaryti "Microsoft Visual Basic for Applications" langas.

4. Paleiskite "Outlook", kad galėtumėte naudoti šį kodo efektą.

Nuo šiol, kai gaunate susitikimo užklausas, išsiųstas iš kodo nurodyto asmens, susitikimas bus priimtas automatiškai, o siuntėjas taip pat gaus atsakymą.

pastabos: El. Pašto paskyra, kuri gauna susitikimo užklausą, turėtų būti numatytoji jūsų "Outlook" paskyra.


Susiję straipsniai:



Kutools for Outlook

Daugiau nei 100 papildomos funkcijos „Outlook 2010“, „2013“, „2016“, „2019“ ir „365“

ekrano fotografavimas „kutools“, skirtas „201812“ banerio perspektyvai

Daugiau funkcijų | Nemokamas atsisiuntimas | Tik šimtai funkcijų - $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.