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

Սովորաբար, Դուք կարող եք կիրառել «Հետաձգման առաքում» առանձնահատկությունը `հենց հիմա փոխարեն կոնկրետ ժամանակ հաղորդագրություն ուղարկելու համար: Բայց երբեմն ուզում եք հետաձգել հանդիպման հրավեր ուղարկելը, ինչպիսին է էլ. Ինչպե՞ս կարող եք հանդիպման հրավեր ուղարկել ցանկալի պահին, ինչպես ձեզ հարկավոր է Outlook- ում:

Հետաձգեք ուղարկող հանդիպման հրավերը Outlook- ում `VBA կոդով

---

Հետաձգեք ուղարկող հանդիպման հրավերը Outlook- ում `VBA կոդով

Կարող է լինել, որ տեսանկյունից հանդիպման հրավերը հետաձգելու ուղի չկա, բայց ստորև ներկայացված VBA կոդը կարող է ձեզ լավություն բերել, խնդրում եմ արեք հետևյալ կերպ.

1, Նախ, դուք պետք է ստեղծեք նոր առաջադրանք: Նորում Խնդիր պատուհան:

(1.) Նշեք հանդիպման թեման, մեկնարկի ամսաթիվը, ավարտի ամսաթիվը.

(2.) Նշեք հիշեցման ամսաթիվը և ժամանակը, երբ ցանկանում եք ուղարկել հանդիպման հրավերը:

(3.) Մուտքագրեք հանդիպման հաղորդագրությունը, ինչպես ձեզ հարկավոր է:

2, Առաջադրանքը ստեղծելուց հետո սեղմեք Փրկել և փակել այս պատուհանը փակելու տարբերակը:

3, Ապա, պահեք պահումը ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

4, Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը - ից Project1 (VbaProject.OTM) ռեժիմը բացելու պատուհանը, այնուհետև պատճենեք և կպցրեք հետևյալ կոդը դատարկ մոդուլի մեջ:

VBA կոդ. Հետաձգեք ուղարկվող հանդիպման հրավերը.

Private Sub Application_Reminder(ByVal Item As Object)
    Dim xTaskItem As TaskItem
    Dim xAppointmentItem As AppointmentItem
    Dim xRcpArr() As String
    If (Item.Class <> olTask) Or (LCase(Item.Subject) <> "Meeting test") Then
        Exit Sub
    End If
    Set xTaskItem = Item
    xRcpArr = VBA.Split("yy@addin99.com,sky@addin99.com,ruby@addin99.com", ",")
    Set xAppointmentItem = Outlook.Application.CreateItem(olAppointmentItem)
    With xAppointmentItem
        .MeetingStatus = olMeeting
        For i = 0 To UBound(xRcpArr)
            .Recipients.Add (xRcpArr(i))
        Next
        .Subject = xTaskItem.Subject
        .Location = "Office room 1002"
        .Start = xTaskItem.StartDate + #2:00:00 PM#
        .Body = xTaskItem.Body
        .Duration = 120
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 20
        .Save
        .Send
    End With
    xTaskItem.MarkComplete
    Set xTaskItem = Nothing
End Sub

ՆշումՎերոհիշյալ ծածկագրում. Հանդիպման քննություն այն թեման է, որը դուք ստեղծել եք հանդիպման համար 1-ին քայլում. և, դուք պետք է փոխեք տեղեկատվությունը ՝ ստացողի հասցեները, հանդիպման վայրը, Սկսել ժամանակը և հանդիպման տեւողությունը ձեր սեփականին:

5, Պահեք և փակեք ծածկագիրը, ապա վերագործարկեք Outlook- ը ՝ այս կոդն ուժի մեջ մտնելու համար:

6, Այսուհետ, երբ առաջադրված խնդրի հիշեցումը կհայտնվի ձեր կողմից սահմանված կոնկրետ ժամին, Outlook- ը ինքնաբերաբար կուղարկի հանդիպման հրավերը: