AccessTr.neT

Merhaba,

Ekte Access hazır fotmatını kullandım bazı yerlerde sadece isim değiştirdim. Mail gönderme özelliğine kendi eklediğim alanlarında gönderilmesini istiyorum ancak nasıl eklenecek bilmiyorum....
Mail butonuna basıldığında sadece TANIM alanındaki verileri gönderiyor. Mail'e benim de eklediğim ŞİFRE INGILIZCE gibi alanlarında eklenmesini istiyorum ancak yapamadım.
Bilgisi olan varsa çok sevinirim

Ek Dosyalar

VARDIYA RAPORU.rar(119.91 KB)

Kimse yokmu ?

Komut212'nın tıklandığında olayına yazılı katıştırılmış makroyu yerine aşağıdaki kodu kullan.

Dim Konu, mailadresi As String

mailadresi = "[email protected]" 'gideceği yer



Konu = Me.Başlık

DoCmd.SendObject acSendReport, "Bugünün Olayları", , mailadresi, "", "", Konu, "Call Center:" & Me.Metin205 & ChrW(13) & ChrW(10) & "Banking:" & Me.BANKING & ChrW(13) & ChrW(10) & "Şifre:" & Me.Metin207 & ChrW(13) & ChrW(10) & "İngilizce:" & Me.INGILIZCE & ChrW(13) & ChrW(10) & Me.Description, True