Ide: Lòt lang yo se Google-tradui. Ou ka vizite a English vèsyon nan lyen sa a.
Ouvri yon sesyon
x
or
x
x
enskri
x

or

Ki jan yo otomatikman aksepte demann reyinyon nan men moun espesifik nan Outlook?

Lè w ap resevwa envitasyon reyinyon nan pespektiv, ou bezwen manyèlman aksepte demann lan reyinyon epi voye repons lan bay moun k la. Èske gen nenpòt fason fasil otomatikman aksepte li soti nan yon moun espesifik nan pespektiv? Metòd la nan atik sa a pral fè ou yon favè.

Auto aksepte demand reyinyon nan men moun espesifik ak kòd VBA


Fasil retire Imèl kopi soti nan espesifye katab imel (yo) nan yon fwa nan pespektiv:

Efase li Kopi Imèl sèvis piblik nan Kutools pou pespektiv ka ede w byen vit retire tout Imèl kopi soti nan yon fodè imel oswa plizyè dosye espesifye an menm tan an nan pespektiv. Al gade nan Ekran:

Kutools pou pespektiv: ak plis pase 40 sou la meni pespektiv ajoute-ins, gratis eseye pa gen okenn limit nan jou 45. Download ak gratis jijman Koulye a!


Auto aksepte demand reyinyon nan men moun espesifik ak kòd VBA

Kòd ki anba la a VBA ka ede ou otomatikman aksepte demann reyinyon ki te voye nan yon moun espesifik nan Outlook. Tanpri fè jan sa a.

1. Peze la Alt + F11 kle yo louvri a Microsoft Visual Basic pou aplikasyon pou fenèt.

2. Nan Microsoft Visual Basic pou aplikasyon pou fenèt, double klike sou ThisOutlookSession nan fenèt gòch la pou ouvri fenèt kòd la, epi kopye anba a VBA kòd nan fennèt la. Al gade nan Ekran:

VBA postal: Auto aksepte demand reyinyon nan men moun espesifik nan 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

nòt: Nan kòd la, tanpri ranplase "Non moun k la"Ak non ekspozisyon moun k la.

3. Sove kòd la, Lè sa a, peze la Alt + Q kle yo fèmen la Microsoft Visual Basic pou aplikasyon pou fenèt.

4. Rekòmanse Outlook la pran efè kòd sa a.

Depi koulye a, lè w ap resevwa demann reyinyon ki soti nan moun ou te espesifye nan kòd la, yo pral aksepte reyinyon an otomatikman epi moun k la ap resevwa yon imèl pou reponn.

nòt: Kont imel la ki resevwa demann lan reyinyon yo ta dwe kont lan default nan pespektiv ou.


Related articles:

Rekòmande Zouti Productivity

shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plis tab 1180x121

Kutools pou pespektiv - Plis pase 100 Fonksyon avanse pou pespektiv, Amelyore 70% Efikasite pou ou.

  • Operasyon konplike ak repete ka fè yon pwosesis yon sèl-fwa an segonn.
  • Voye plizyè imèl endividyèlman avèk yon sèl-klike sou, ak oto pou pi devan pa règleman yo.
  • Auto CC / BCC chak imèl voye e fasil pou règleman Pèrsonalizasyon, ak repons oto san yo pa egzije sèvè echanj.
  • Imèl tenten pwisan filtre, retire imèl kopi, reponn ak atachman, pakèt moun sou yon sèl-klike sou operasyon yo, ak sou sa ...
  • 60-jou san limit jijman gratis. 60-jou garanti dèyè lajan. XNIM ane gratis ajou ak sipò. Achte yon fwa, itilize pou tout tan.
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.