Access te form sayfasından mail gönderme

[sberktas]

Arkadaşlar,
Access'te firma bilgilerinin bulunduğu bir program yapıyorum. Firma bilgilerini girdiğim sayfada mail gönder dediğimde bu sayfadaki firma mail adresine mail göndermesini istiyorum (not buradaki mail adresini outloğa atacak) kodları nedir. Yardımcı olursanız sevinirim.

Yardımlarınız için şimdiden teşekkürler.

 

[modalı]

Sayın sberktas,

Bir kod örneği yplluyorum umarım uygulayabilirsiniz.

Private Sub cmdEmailGönder_Click()
On Error GoTo Err_cmdEmailGönder_Click
    Dim stDocName As String
    Dim stFormat 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
    
    stDocName = "FormAdınız"
   
    stFormat = Me.cboFormat    'Formun gönderileceği format zengin metin snapshot,excel vs
    stTo = Me.txtTo  'Göndereceğiniz e-mail adresi
    'stCc = Me.txtCc
    'stBc = Me.txtBc
    stSubject = Me.txtBaşlık  'e-mail başlığı 
    stMesajText = Me.txtMesaj  'e-mailin mesaj kısmına yazacaklarınız
    EditMesage = -1
    
    DoCmd.SendObject acReport, stDocName, stFormat, stTo, stCc, stBc, stSubject, stMesajText, EditMesage
Exit_cmdEmailGönder_Click:
    Exit Sub
Err_cmdEmailGönder_Click:
    MsgBox Err.Description
    Resume Exit_cmdEmailGönder_Click
    
End Sub

İyi çalışmalar