Sut i ohirio'r gwahoddiad cyfarfod anfon yn Outlook?

Fel rheol, gallwch gymhwyso'r nodwedd Oedi Cyflenwi ar gyfer anfon neges ar amser penodol yn lle ar hyn o bryd. Ond, weithiau, rydych chi am ohirio gwahoddiad cyfarfod anfon fel e-bost. Sut allech chi anfon gwahoddiad cyfarfod ar yr amser a ddymunir yn ôl yr angen yn Outlook?

Gohirio gwahoddiad cyfarfod anfon yn Outlook gyda chod VBA

Gohirio gwahoddiad cyfarfod anfon yn Outlook gyda chod VBA

Efallai nad oes unrhyw ffordd uniongyrchol i ohirio gwahoddiad cyfarfod yn y rhagolwg, ond, gall y cod VBA isod ffafrio chi, gwnewch fel hyn:

1. Yn gyntaf, dylech greu tasg newydd. Yn y newydd Gorchwyl ffenestr:

(1.) Nodwch y pwnc, dyddiad cychwyn, dyddiad gorffen y cyfarfod;

(2.) Gosodwch ddyddiad ac amser atgoffa pan fyddwch am anfon gwahoddiad y cyfarfod;

(3.) Teipiwch neges y cyfarfod yn ôl yr angen.

doc oedi anfon cyfarfod 1

2. Ar ôl creu'r dasg, cliciwch Arbed a Chau opsiwn i gau'r ffenestr hon.

3. Yna, dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

4. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith SesiwnOutlook oddi wrth y Prosiect1 (VbaProject.OTM) cwarel i agor y modd, ac yna copïo a gludo'r cod canlynol i'r modiwl gwag.

Cod VBA: Gohirio gwahoddiad cyfarfod anfon:

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(",,", ",")
    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

doc oedi anfon cyfarfod 2

Nodyn: Yn y cod uchod: Prawf cyfarfod yw'r pwnc a greoch ar gyfer y cyfarfod yng ngham 1; a, dylech newid gwybodaeth cyfeiriadau derbynnydd, lleoliad cyfarfod, Amser cychwyn ac hyd cyfarfod i'ch pen eich hun.

5. Cadw a chau'r cod, yna ailgychwynwch yr Outlook i sicrhau bod y cod hwn yn dod i rym.

6. O hyn ymlaen, pan fydd nodyn atgoffa eitem y dasg yn ymddangos ar yr amser penodol y byddwch chi'n ei osod, bydd Outlook yn anfon gwahoddiad y cyfarfod yn awtomatig.