Merhaba,

Formunuzun Vba sayfasına aşağıdaki fonksiyonu ekleyin,

Function SendMail()

Dim iMsg, iConf, Flds, schema

Set iMsg = CreateObject("CDO.Message")

Set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"

Flds.Item(schema & "sendusing") = 2

Flds.Item(schema & "smtpserver") = "smtp.gmail.com"

Flds.Item(schema & "smtpserverport") = 465

Flds.Item(schema & "smtpauthenticate") = 1

Flds.Item(schema & "sendusername") = txtgmailadresi

Flds.Item(schema & "sendpassword") = txtgmailsifre

Flds.Item(schema & "smtpusessl") = 1

Flds.Update

veri1 = txtEklenti

With iMsg

.To = Metin7

.From = txtGonderen & "(" & txtgmailadresi & ")"

.Subject = txtKonu

.HTMLBody = txtmetin

.Sender = "xx"

.Organization = txtgmailadresi

.ReplyTo = txtgmailadresi





Set .Configuration = iConf

.Send



End With



Set iMsg = Nothing

Set iConf = Nothing

Set Flds = Nothing



End Function

Koddaki "txtgmailadresi" sizin gmail adresiniz, "txtgmailsifre" gmail şifreniz, Metin7 ise alıcının mail adresidir.

Sizin uygulamanızda, "Açılan Kutu30" (doğrusu acl_bilgiver olmalı) isimli açılan kutunun satır kaynağındaki sorguya 3. sütun olarak email alanını ekle, Koddaki metin7 yerine de 

me.Açılan_Kutu30.Column(2)

kodu ekle

Kaydet butonunun tıklandığında olayındaki

Me.TESLİM_ALAN.Requery

kodunun hemen altına

SendMail

kodu ekle.

Bu şekilde alıcının mail adresini açılan kutudan alabilirsin.

Ayrıca Gmail Hesabıyla E-mail Gönderme Uygulaması bağlantısındaki uygulamayı inceleyebilirsiniz.