Làm cách nào để trì hoãn việc gửi lời mời họp trong Outlook? 

Thông thường, bạn có thể áp dụng tính năng Chuyển phát chậm để gửi tin nhắn vào một thời điểm cụ thể thay vì ngay bây giờ. Tuy nhiên, đôi khi, bạn muốn trì hoãn việc gửi lời mời họp như email. Làm cách nào bạn có thể gửi lời mời họp vào thời điểm mong muốn như bạn cần trong Outlook?

Trì hoãn gửi lời mời họp trong Outlook với mã VBA

---

Trì hoãn gửi lời mời họp trong Outlook với mã VBA

Có thể, không có cách trực tiếp nào để trì hoãn lời mời họp trong triển vọng, nhưng, mã VBA dưới đây có thể giúp bạn, vui lòng làm như sau:

1. Đầu tiên, bạn nên tạo một nhiệm vụ mới. Trong cái mới Nhiệm vụ cửa sổ:

(1.) Ghi rõ chủ đề, ngày bắt đầu, ngày kết thúc cuộc họp;

(2.) Đặt ngày và giờ nhắc nhở khi bạn muốn gửi lời mời họp;

(3.) Nhập thông báo cuộc họp khi bạn cần.

2. Sau khi tạo nhiệm vụ, vui lòng nhấp vào Lưu & Đóng tùy chọn để đóng cửa sổ này.

3. Sau đó, nhấn giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

4. Trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp ĐâyOutlookSession từ Project1 (VbaProject.OTM) để mở chế độ, sau đó sao chép và dán mã sau vào mô-đun trống.

Mã VBA: Trì hoãn gửi lời mời họp:

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

Chú thích: Trong đoạn mã trên: Kiểm tra cuộc họp là chủ đề mà bạn đã tạo cho cuộc họp ở bước 1; và, bạn nên thay đổi thông tin của địa chỉ người nhận, địa điểm họp, thời gian bắt đầu và thời lượng cuộc họp của riêng bạn.

5. Lưu và đóng mã, sau đó khởi động lại Outlook để mã này có hiệu lực.

6. Từ bây giờ, khi lời nhắc mục tác vụ bật lên vào thời gian cụ thể bạn đã đặt, Outlook sẽ tự động gửi lời mời họp.