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
Komut212'nın tıklandığında olayına yazılı katıştırılmış makroyu yerine aşağıdaki kodu kullan.