Aşağıdaki kodu yazdım.
Ama çalışmadı, bir sorun var ama ne?
Private Sub email_Click()
On Error GoTo Err_email_Click
Dim stFrom As String
Dim stTo As String
Dim stCc As String
Dim stBcc As String
Dim stSubject As String
Dim stMesajText As String
Dim EditMesage As Variant
Yabancı bir sitede bunun ile ilgili bir örnek buldum ve bu doğrultuda yeniden düzenleme yaptım ancak sonuç yine başarısız.
==============================
Private Sub email_Click()
On Error GoTo Err_email_Click
Dim stWhere As String '-- Criteria for DLookup
Dim varTo As Variant '-- Address for SendObject
Dim stText As String '-- E-mail text
Dim stSubject As String '-- Subject line of e-mail
Dim stTicketID As String '-- The ticket ID from form
Öncelikle konuya ilginize çok teşekkür ederim.
Sizin ilettiğiniz örnekleri inceledim ancak benim yapmak istediğim bunlardan temelde daha farklı. Bu örneklerde Access de autlook ileti penceresi gibi kullanılması uygulamaları var.
Bense bir formu üzerinde bulunan buton ile mevcut pcde kullanılan outlook ileti penceresinin açılmasını ve açılan pencerede Kime, Konu, Metin kısmındaki bilgilerin mevcut form ve tablolarından otomatik çekilmesini sağlamaya çalışıyorum. Burada kullanıcı insiyatifinden durum çıkmış olacak.
Bu konuda referans aldığım örneği ekte gönderiyorum.
Ayrıca benim kullandığım kodlar şu şekide;
=====================
Private Sub email_Click()
On Error GoTo Err_email_Click
Dim stWhere As String '-- Criteria for DLookup
Dim varTo As Variant '-- Address for SendObject
Dim stText As String '-- E-mail text
Dim stSubject As String '-- Subject line of e-mail
Dim stTicketID As String '-- The ticket ID from form
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.