Outlook'ta Araçlar> Makro> visual Basic Düzenleyicisi'ne gidin
Proje 1'e r-tıklayın ve Ekle> Modül'ü seçin
Modül1'de aşağıdaki kodu ekleyin:
Sub CustomMeetingRequestRule(Item As Outlook.MeetingItem)
If Item.ReminderSet = False Then
Item.GetAssociatedAppointment(False).ReminderMinutesBeforeStart = 15
End If
End Sub
Kaydet'i tıklayın
'Bir komut dosyası' bağlantısını tıkladığınızda kuralınızı ve komut dosyasının bir seçim olarak görünmesini sağlayın.
Kod, diğer sorunuzda daha sonra bulunduğunuz işlemi gerçekleştirmeli ancak test etmemelidir.
Referans bağlantısı: http://support.microsoft.com/kb/306108