Yorumunuzda seçili kişiye mail gönderebiliyorum yazmışsınız ama gönderdiğiniz örnekteki formda E-Posta komut düğmesinde herhangi bir kod görünmüyor.
Ayrıca bahsettiğiniz gibi Ünvan seçme içeren bir formda yok.
Benim daha önce DAO ile sorgudaki kayıtları teker teker okuyup sırayla mail gönderdiğim bir kod vardı, onu gönderiyorum
Private Sub Ilgililere_Mail_Gonder()
On Error GoTo Hata
'---------------------------------------------------------------
Dim DB As DAO.Database, RS As DAO.Recordset
Dim objMessage As Object
Dim SMTP_Sunucu, strBody
Dim Kullanicinin_Adi, Kullanicinin_Mail_Adresi, Kullanicinin_Mail_Sifresi
Dim TalepEdenin_Adi, TalepEdenin_Mail_Adresi
Dim Onceki_TALEP_EDEN
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2
'---------------------------------------------------------------
SMTP_Sunucu = "smtp.bline.net.tr"
Kullanicinin_Adi = Me.TALEP_EDEN.Column(1)
Kullanicinin_Mail_Adresi = Me.TALEP_EDEN.Column(2)
Kullanicinin_Mail_Sifresi = Me.TALEP_EDEN.Column(3)
If Kullanicinin_Mail_Adresi = "" Or Kullanicinin_Mail_Sifresi = "" Then
MsgBox "Gerekli bilgileriniz eksik olduğu için Malzeme Talep Edenlere e-posta gönderilemiyor !" & vbCrLf & "Lütfen Bilgi Teknolojileri Departmanına bilgi veriniz", vbCritical, "Hata oluştu."
Exit Sub
End If
'---------------------------------------------------------------
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("Select * From Malzeme_Alis_MailListesi Where HRB_ID=" & [Forms]![Malzeme_Alis]![IrsListesi], dbOpenForwardOnly)
Set objMessage = CreateObject("CDO.Message")
Onceki_TALEP_EDEN = ""
Do While Not RS.EOF
'---------------------------------------------------------------
If Onceki_TALEP_EDEN <> RS.Fields("TALEP_EDEN") Then
'---------------------------------------
'Bir önceki kişiye mail gönderiliyor
'---------------------------------------
If Onceki_TALEP_EDEN <> "" Then
strBody = strBody & "</table>"
strBody = strBody & "</font><br><br>"
'---------------------------------------------------------------
objMessage.Subject = "Gelen Malzeme Bilgisi"
objMessage.From = Kullanicinin_Adi & "<" & Kullanicinin_Mail_Adresi & ">"
objMessage.To = TalepEdenin_Mail_Adresi
objMessage.HTMLBody = strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Kullanicinin_Mail_Adresi
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Kullanicinin_Mail_Sifresi
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_Sunucu
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
'---------------------------------------------------------------
End If
TalepEdenin_Adi = RS.Fields("Kull_ADI")
TalepEdenin_Mail_Adresi = RS.Fields("Kull_MAIL")
'---------------------------------------
' Yeni kişi için yeni mail oluşturuluyor
'---------------------------------------
strBody = ""
strBody = strBody & "<p>"
strBody = strBody & "<font face='Verdana' size='2'>"
strBody = strBody & "Sn. " & TalepEdenin_Adi
strBody = strBody & "<br><br>"
strBody = strBody & "Talep etmiş olduğunuz malzeme(ler) gelmiştir."
strBody = strBody & "<br><br>"
strBody = strBody & "'MALZEME TALEPLERİ' programında açılış formunda veya "
strBody = strBody & "<br>"
strBody = strBody & " menüden 'Teslim Onayı' formunu seçerek gelen malzemeleri "
strBody = strBody & "<br>"
strBody = strBody & " teslim aldığınızı onaylamalısınız."
strBody = strBody & "<br>"
strBody = strBody & "Teslim onayından sonra malzemelerinizi depodan alabilirsiniz."
strBody = strBody & "<br><br><br>"
strBody = strBody & "Gelen Malzemeler:"
strBody = strBody & "</font>"
strBody = strBody & "</p>"
strBody = strBody & "<table border='1' cellspacing='0' cellpadding='1' font face='Verdana' size='1' bgcolor='LightBlue'>"
strBody = strBody & "<tr>"
strBody = strBody & "<td><b> Talep Tarihi </b></td>"
strBody = strBody & "<td><b> Talep No </b></td>"
strBody = strBody & "<td><b> Malzeme </b></td>"
strBody = strBody & "<td><b> Miktar </b></td>"
strBody = strBody & "</tr>"
'------
Onceki_TALEP_EDEN = RS.Fields("TALEP_EDEN")
End If
'---------------------------------------------------------------
strBody = strBody & "<tr>"
strBody = strBody & "<td> " & RS.Fields("TALEP_TARIHI") & " </td>"
strBody = strBody & "<td> " & RS.Fields("TALEP_NO") & " </td>"
If IsNull(RS.Fields("MLZ_OZELLIK")) Then
strBody = strBody & "<td> " & RS.Fields("MLZ_TANIMI") & " </td>"
Else
strBody = strBody & "<td> " & RS.Fields("MLZ_TANIMI") & "(" & RS.Fields("MLZ_OZELLIK") & ") </td>"
End If
strBody = strBody & "<td align=right> " & RS.Fields("MLZ_MIKTARI") & " " & RS.Fields("MLZ_BIRIMI") & " </td>"
strBody = strBody & "</tr>"
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
'---------------------------------------
'Son kişiye mail gönderiliyor
'---------------------------------------
If Onceki_TALEP_EDEN <> "" Then
strBody = strBody & "</table>"
strBody = strBody & "</font><br><br>"
'---------------------------------------------------------------
objMessage.Subject = "Gelen Malzeme Bilgisi"
objMessage.From = Kullanicinin_Adi & "<" & Kullanicinin_Mail_Adresi & ">"
objMessage.To = TalepEdenin_Mail_Adresi
objMessage.HTMLBody = strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Kullanicinin_Mail_Adresi
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Kullanicinin_Mail_Sifresi
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_Sunucu
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
'---------------------------------------------------------------
End If
MsgBox "İlgili kişi(lere) e-posta gönderilmiştir.", vbInformation, "İşlem tamam"
Exit Sub
'---------------------------------------------------------------
Hata:
MsgBox "Talep edene e-posta gönderimi başarısız oldu!", vbCritical, "Hata oluştu."
End Sub
onları kaldırmanız lazım. O zaman DAO kullanmışım, isterseniz ADO'ya çevirin, daha iyi ve hızlı olur.
Ayrıca, bu kodun gönderdiği mailin örnek formatını ve benzer programını aşağıdaki konunun 3. ve 5. sayfalarında bulabilirsiniz.
formdaki bilgileri ilgili kişiye eposta olarak gönderme
Örneğimde kullandığım metodu sn. ozanakkaya'nın aşağıdaki örneğinden alınmıştır.
SMTP Hesabıyla E-mail Gönderme Uygulaması
