Trong Outlook, đi tới Công cụ> Macro> Trình soạn thảo cơ bản trực quan
Nhấp chuột vào Dự án 1 và chọn Chèn> Mô-đun
Trong Module1 thêm mã sau đây:
Sub CustomMeetingRequestRule(Item As Outlook.MeetingItem)
If Item.ReminderSet = False Then
Item.GetAssociatedAppointment(False).ReminderMinutesBeforeStart = 15
End If
End Sub
Nhấp vào Lưu
Đặt quy tắc của bạn và tập lệnh sẽ xuất hiện dưới dạng lựa chọn khi bạn nhấp vào liên kết 'tập lệnh'.
Mã sẽ thực hiện những gì bạn đã có sau câu hỏi khác của bạn nhưng chưa kiểm tra nó.
Liên kết tham khảo: http://support.microsoft.com/kb/306108