Access Formunda email göndermek

[actil]

Merhaba,

Form üzerinde oluşturduğum email butonuna basıldığında of form üzerinde ve bulunan bazı bilgileri mail atsın istiyorum.

Buna benzer elinde örnek olan varmı.

Şimdiden Tşk.

Mehmet

 

[actil]

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


stTo = DLookup("[mail]", "Partner") 'Göndereceğiniz e-mail adresi"
stFrom = ""
stCc = ""
stBcc = ""
stSubject = "Yeni Task & Me.TaskNo & _ 'e-mail başlığı"
stMesajText = "*** Metin yaz***"

DoCmd.SendObject acFormatTXT, stTo, stBcc, stSubject, stCc, stMesajText, EditMesage, """"
Exit_email_Click:
Exit Sub
Err_email_Click:
MsgBox Err.Description
Resume Exit_email_Click

End Sub

 

[actil]

Merhabalar,

Bu konuda hiç çalışma yapmış olan varmı ? Konu benim için çok önemli.

 

[modalı]

Sayın actil,

Lütfen biraz araştırın forumu. Örnek var.

İyi çalışmalar

 

[actil]

Sayın Modalı,

Bu örneği formdan aldım. Ancak kendi db uyarlamaya çalıştım ancak sorun var ve çözemiyorum.

Tşk.

 

[gulsum1]

cevap

aldığın örnekteki referanslara dikkat et aynı olsun referanslar yoksa çalışmaz

 

[actil]

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

stWhere = "Partner.Kimlik = " & "'" & stWho & "'"
'-- Looks up email address from TblUsers
varTo = DLookup("", "Partner", stWhere)

stSubject = ":: New Help Desk Ticket ::"

stTicketID = Format(Me.Kimlik, "00000")

stText = "Yeni is gönderimi." & Chr$(13) & Chr$(13) & _
"Is no: " & stTicketID & Chr$(13) & _
"Bu mesaj otomatik olarak iletilmistir. Lutfen cevap gondermeyiniz."

'Write the e-mail content for sending to assignee
DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, """"

Exit_email_Click:
Exit Sub

Err_email_Click:
MsgBox Err.Description
Resume Exit_email_Click

End Sub
=============================

 

[gulsum1]

cevap

http://www.blueclaw-db.com/download/

 

[gulsum1]

Cevap

umarım işini görür devamı geliyor

 

[gulsum1]

devamı

işte bir kaç örnek daha

 

[gulsum1]

devamı

bir öncekinde senden isteyeceği cdo.dll yide koydum onu referanslara koymadan bunların hiçbiri çalışmaz sanırım bu kadar yeter

 

[actil]

Sayın Gulsum1

Ö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

stWhere = "Partner.Kimlik = " & "'" & stWho & "'"
'-- Looks up email address from TblUsers
varTo = DLookup("", "Partner", stWhere)

stSubject = ":: New Help Desk Ticket ::"

stTicketID = Format(Me.Kimlik, "00000")

stText = "Yeni is gönderimi." & Chr$(13) & Chr$(13) & _
"Is no: " & stTicketID & Chr$(13) & _
"Bu mesaj otomatik olarak iletilmistir. Lutfen cevap gondermeyiniz."

'Write the e-mail content for sending to assignee
DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, """"

Exit_email_Click:
Exit Sub

Err_email_Click:
MsgBox Err.Description
Resume Exit_email_Click

End Sub
=====================