SMTP_Sunucu = "..............."

kodunun hemen üstüne

DoCmd.RunCommand acCmdSaveRecord

kodu ekle

Gonderilecek_Mail_Adresi =Me.g_epostaa

kodunu aşağıdaki ile değiştir.

Gonderilecek_Mail_Adresi = Dlookup ("g_epostaa", "fiyat_genel", "[g_otomatik]=" & Me.g_otomatik)