จะชะลอการส่งคำเชิญเข้าร่วมประชุมใน Outlook ได้อย่างไร

โดยปกติคุณสามารถใช้คุณสมบัติ Delay Delivery เพื่อส่งข้อความในช่วงเวลาที่กำหนดแทนได้ในตอนนี้ แต่ในบางครั้งคุณอาจต้องการชะลอการส่งคำเชิญเข้าร่วมประชุมเช่นอีเมล คุณจะส่งคำเชิญเข้าร่วมประชุมในเวลาที่คุณต้องการใน Outlook ได้อย่างไร?

ชะลอการส่งคำเชิญเข้าร่วมประชุมใน Outlook ด้วยรหัส VBA

ชะลอการส่งคำเชิญเข้าร่วมประชุมใน Outlook ด้วยรหัส VBA

อาจเป็นไปได้ว่าไม่มีวิธีโดยตรงในการชะลอการเชิญเข้าร่วมประชุมใน Outlook แต่รหัส VBA ด้านล่างสามารถช่วยคุณได้โปรดทำตามนี้:

1. ขั้นแรกคุณควรสร้างงานใหม่ ในรูปแบบใหม่ งาน หน้าต่าง:

(1. ) ระบุเรื่องวันที่เริ่มต้นวันที่สิ้นสุดการประชุม

(2. ) กำหนดวันที่และเวลาเตือนความจำเมื่อคุณต้องการส่งคำเชิญเข้าร่วมการประชุม

(3. ) พิมพ์ข้อความการประชุมตามที่คุณต้องการ

doc ล่าช้าในการส่งการประชุม 1

2. หลังจากสร้างงานแล้วโปรดคลิก บันทึกและปิด ตัวเลือกเพื่อปิดหน้าต่างนี้

3. จากนั้นกดไฟล์ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

4. ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิก นี้OutlookSession จาก โครงการ 1 (VbaProject.O ™) บานหน้าต่างเพื่อเปิดโหมดจากนั้นคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลเปล่า

รหัส 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(",,", ",")
    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 ล่าช้าในการส่งการประชุม 2

หมายเหตุ: ในโค้ดด้านบน: การทดสอบการประชุม เป็นหัวข้อที่คุณสร้างขึ้นสำหรับการประชุมในขั้นตอนที่ 1 และคุณควรเปลี่ยนข้อมูลของ ที่อยู่ผู้รับ, สถานที่นัดพบ, เวลาเริ่มต้น และ ระยะเวลาการประชุม ของคุณเอง

5. บันทึกและปิดรหัสจากนั้นรีสตาร์ท Outlook เพื่อให้รหัสนี้มีผล

6. นับจากนี้เป็นต้นไปเมื่อตัวเตือนรายการงานปรากฏขึ้นตามเวลาที่คุณกำหนด Outlook จะส่งคำเชิญเข้าร่วมประชุมโดยอัตโนมัติ