Bagaimana cara menunda pengiriman undangan rapat di Outlook?

Biasanya, Anda dapat menerapkan fitur Penundaan Pengiriman untuk mengirim pesan pada waktu tertentu, bukan sekarang. Namun, terkadang, Anda ingin menunda pengiriman undangan rapat seperti email. Bagaimana Anda bisa mengirim undangan rapat pada waktu yang diinginkan seperti yang Anda butuhkan di Outlook?

Tunda pengiriman undangan rapat di Outlook dengan kode VBA

Tunda pengiriman undangan rapat di Outlook dengan kode VBA

Mungkin, tidak ada cara langsung untuk menunda undangan rapat dalam pandangan, tetapi, kode VBA di bawah ini dapat membantu Anda, lakukan seperti ini:

1. Pertama, Anda harus membuat tugas baru. Di baru tugas window:

(1.) Tentukan subjek, tanggal mulai, tanggal akhir rapat;

(2.) Tetapkan tanggal dan waktu pengingat saat Anda ingin mengirim undangan rapat;

(3.) Ketikkan pesan rapat yang Anda butuhkan.

doc menunda pengiriman rapat 1

2. Setelah membuat tugas, silakan klik Simpan & Tutup opsi untuk menutup jendela ini.

3. Lalu, tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

4. di Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Sesi Pandangan ini dari Project1 (VbaProject.OTM) panel untuk membuka mode, lalu salin dan tempel kode berikut ke dalam modul kosong.

Kode VBA: Tunda pengiriman undangan rapat:

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 menunda pengiriman rapat 2

Note: Pada kode diatas: Tes pertemuan adalah subjek yang Anda buat untuk rapat di langkah 1; dan, Anda harus mengubah informasi alamat penerima, lokasi pertemuan, waktu mulai dan durasi pertemuan untuk Anda sendiri.

5. Simpan dan tutup kode, lalu mulai ulang Outlook agar kode ini berlaku.

6. Mulai sekarang, saat pengingat item tugas muncul pada waktu tertentu yang Anda atur, Outlook akan mengirimkan undangan rapat secara otomatis.