Nasıl kullanılacağını 6. mesajda belirtmiştim.

Sizin 1. mesajda eklediğiniz kodun ilgili kısmı;

.Start = CDate(Me.Metin666) & " " & CDate("0,4375")
.Duration = "1440"
.Subject = "" & Me.Metin111
.Body = "" & Me.Metin54
.MeetingStatus = olMeeting
.Recipients.Add (Me.Metin400)


koddaki Metin666,Metin111,Metin54 ve Metin400'ün ne olduğunu da 6. mesajda açıkladım.

Siz 4. mesaja eklediğim fonksiyonu modüle kaydedeceksiniz.

Daha sonra formda hatırlatıcı eklemek istediğiniz butonun tıklandığında olayına veya formun çıkıldığında olayına

Call OutlookGonder(Metin666, Metin111, Metin54, Metin400)

kodu ekleyeceksiniz.

Üstteki Call OutlookGonder(Metin666, Metin111, Metin54, Metin400) kodunda da görüleceği üzere sizin 1. mesaja eklediğiniz .Start, .Subject, .Body ve .Recipients değerlerini fonksiyon ile çağırıyorsunuz.

fonksiyonun 1. satırında değişkenlerin tanımlamalarını da görebilirsiniz.

Public Function OutlookGonder(GStart As Date, GSubject As String, GBody As String, GRecipients As String)