Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā automātiski pieņemt sapulces pieprasījumu no konkrētas personas programmā Outlook?

Saņemot uzaicinājumu uz sanāksmi programmā Outlook, jums manuāli jāakceptē sapulces pieprasījums un jānosūta atbilde sūtītājam. Vai ir kāds vienkāršs veids, kā to automātiski pieņemt no konkrētas personas programmā Outlook? Šī raksta metode dos jums labu.

Automātiski pieņemtu sapulces pieprasījumu no konkrētas personas ar VBA kodu


Vienkārši noņemiet e-pasta dublikātus no norādītās e-pasta mapes (-ēm) vienlaikus programmā Outlook:

Izdzēst Duplicate emails lietderība Kutools for Outlook var palīdzēt jums ātri izņemt visus e-pasta dublikātus no e-pasta fodera vai vairākām norādītajām mapēm vienlaikus programmā Outlook. Skatīt ekrānuzņēmumu:

Kutools for Outlook: ar vairāk nekā 40 ērtiem Outlook pievienojumprogrammām, bez maksas var izmēģināt bez ierobežojumiem 45 dienās. Lejupielādēt un bezmaksas izmēģinājuma versija tūlīt!


Automātiski pieņemtu sapulces pieprasījumu no konkrētas personas ar VBA kodu

Zemāk redzamais VBA kods var jums palīdzēt automātiski pieņemt sapulces pieprasījumu, kas nosūtīts no konkrētas personas programmā Outlook. Lūdzu, rīkojieties šādi.

1. Nospiediet cits + F11 taustiņi, lai atvērtu Microsoft Visual Basic for Applications logs.

2. Iekš Microsoft Visual Basic for Applications logu, veiciet dubultklikšķi ThisOutlookSession kreisajā rūtī, lai atvērtu koda logu, un pēc tam kopējiet zemāk VBA kodu logā. Skatīt ekrānuzņēmumu:

VBA kods: Automātiski pieņemtu sapulces pieprasījumu no konkrētas personas programmā Outlook

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

Piezīmes: Kodā, lūdzu, nomainiet "Sūtītāja vārds"Ar sūtītāja redzamo nosaukumu.

3. Saglabājiet kodu un pēc tam nospiediet cits + Q taustiņi, lai aizvērtu Microsoft Visual Basic for Applications logs.

4. Restartējiet programmu Outlook, lai izmantotu šo kodu efektu.

No šī brīža, saņemot sanāksmes pieprasījumus, kas nosūtīti no personas, kuru jūs norādījāt kodā, tikšanās tiks pieņemta automātiski, un sūtītājs saņems arī atbildes e-pastu.

Piezīmes: E-pasta konts, kas saņem sapulces pieprasījumu, ir jābūt noklusējuma kontam jūsu Outlook.


Līdzīgi raksti:



Kutools for Outlook

Vairāk nekā 100 papildu funkcijas Outlook 2010, 2013, 2016, 2019 un 365

ekrāns nošāva kutools, kas paredzēts maziem banneri 201812

Vairāk funkciju | Bezmaksas lejupielāde | Tikai $ 39.00 simtiem funkciju

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.