(05/11/2015, 16:20)ozanakkaya yazdı: Sn. ssdestek.
Eklediğiniz kod sadece bakimYAP isimli formda çalışır. Sadece bu formda çalışacaksa fonksiyon olarak yazmaya gerek yok. Benim eklediğim kod ile fonksiyonu tüm formlarda çalıştırabilirsiniz.
Call OutlookGonder(Metin666, Metin111, Metin54, Metin400)


kodundaki
Metin666: fonksiyondaki Start değeri,
Metin111: Subject değeri,
Metin54: Body değeri
Metin400: Recipients değeridir.

Farklı bir formda çalıştıracağınızda Metin666, Metin111, Metin54, Metin400 yerine formdaki denetim isimlerini yazmanız gerekiyor.

Merhaba,
Öyleyse yaptığınız iyiymiş. nasıl kullanacağım bana anlatırsanız... Ben Modül1 altına ilk uzun kodunuzu yazdım, "Call OutlookGonder(Metin666, Metin111, Metin54, Metin400)" bunu neresine yazacağım?  End Function yazan yerin hemen altına mı?, formda kodÇalıştır makrosunu kullanarak Modül1de yer alan takvim() i çalıştır dedim. bundan ne diyeceğim?

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)

(05/11/2015, 17:17)ozanakkaya yazdı: 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)

Merhaba, şimdi anladım, dediğiniz çalışıyor fakat benim bunu olayı kısmındaki Tıklatıldığında alanındaki  ...  noktaya tıkladığımda 3 seçenek çıkıyor karşıma "Makro oluşturucu, İfade oluşturucu, kod oluşturucu" diye, ben Makro oluşturucuyu seçip buradan kodÇalıştır ın içinde kullanmak istiyorum, bunu nasıl yapabilirim? (çünkü burada eğer komutu içinde belli kurallar yazıp öyle çağırmak veya çalıştırmak istiyorum da ondan)

Makro olarak çalıştırırsanız farklı bilgisayarda sıkıntı yaratabilir. Eğer için olay yordamıyla if komutunu kullanabilirsin. Olay yordamı ile kod bilgini de geliştirebilirsiniz.

Makro içerisinde call hariç diğer kodu kullanırsan çalışır. Pcden yazmadığım için deneme şansım yok.

Öncelikle Vba yani olay yordamını dene

(05/11/2015, 19:11)ozanakkaya yazdı: Makro olarak çalıştırırsanız farklı bilgisayarda sıkıntı yaratabilir. Eğer için olay yordamıyla if komutunu kullanabilirsin. Olay yordamı ile kod bilgini de geliştirebilirsiniz.  

Makro içerisinde call hariç diğer kodu kullanırsan çalışır. Pcden yazmadığım için deneme şansım yok.

Öncelikle Vba yani olay yordamını dene

Merhaba,
Sağol Dayı oğlu, 10 numarasın. Verdiğin bilgiler işe yaradı problem çözüldü. Teşekkür ederim.