Merhaba Arkadaşlar,
Forumda Sledgeab'in oluşturduğu mail gönderme uygulamasını kendi çalışmama uyarlamak istedim. Modülleri ayrıca eklemek sorun olmaması için, kendi form ve tablolarımı bu Sledgeab'in çalışmasının içine kopyaladım.
Gönder butonuna ait tıklandığında olayındaki kodlardaki değişkenleri kendiminkilerle değiştirdim. Fakat değişken tanımlamada bir sorunum var sanırım.
Aynı örnekte olduğu gibi alt formumdaki (fiyatsorgu) verileri mail olarak gönderilmesini istiyorum.
Yardımlarınız için teşekkürler.
arkadaşlar siteden bulduğum Seruz arkadaşın ürünü şu kod muhteşem.
Excel tablosuna gerek kalmadan ihtiyacımı giderdi şimdilik. Fakat bu kod, altformumda bulunan tek bir kayda ilişkin verileri gönderiyor. Ben hepsinin gönderilmesini istiyorum.
Faydalanmak isteyenler için ekleyeyim.
Kod:
Private Sub btn_EPOSTA_Click()
If IsNull(Me.eposta) Then
MsgBox "E-posta adresi yok!", vbCritical, "Hata oluştu."
Else
ePOSTA_Gonder
End If
End Sub
Private Sub ePOSTA_Gonder()
On Error GoTo Hata
'---------------------------------------------------------------
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2
Dim objMessage As Object
Dim SMTP_Sunucu, Gonderenin_Mail_Adresi, Gonderenin_Mail_Sifresi, Gonderilecek_Mail_Adresi, strBody
'---------------------------------------------------------------
SMTP_Sunucu = "smtp.xxxx.xxx.tr"
Gonderenin_Mail_Adresi = "[email protected]"
Gonderenin_Mail_Sifresi = ""
Gonderilecek_Mail_Adresi = Me.eposta
If Gonderenin_Mail_Adresi = "" Or Gonderenin_Mail_Sifresi = "" Or Gonderilecek_Mail_Adresi = "" Then
MsgBox "Bilgileriniz eksik olduğu için e-posta gönderilemiyor !", vbCritical, "Hata oluştu."
Exit Sub
End If
'---------------------------------------------------------------
strBody = ""
strBody = strBody & " Sn. " & Me.adısoyadı
strBody = strBody & " Kesintiniz : " & Me.kesinti
strBody = strBody & " Maaş Tutarınız : " & Me.maas_tutar
'---------------------------------------------------------------
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Örnek E-Posta"
objMessage.From = Gonderenin_Mail_Adresi
objMessage.To = Gonderilecek_Mail_Adresi
objMessage.HTMLBody = strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Gonderenin_Mail_Adresi
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Gonderenin_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
MsgBox "İlgili kişiye e-posta gönderilmiştir.", vbInformation, "İşlem tamam"
Exit Sub
'---------------------------------------------------------------
Hata:
MsgBox "E-posta gönderimi başarısız oldu!", vbCritical, "Hata oluştu."
End Sub
Sayın mehmetb84, 1. mesajınızdaki örnekte mail gönderme ile ilgili herhangi bir kod yok.
Ayrıca, formda alt form yok. Örneği inceledim ancak sorunuz ile ilgili birşey bulamadığım için cevap yazamıyorum.
1. mesajdaki örneği yenilerseniz yardımcı olmaya çalışırım.
mail detaylarıma ait alanları **** olarak değiştirdim ve eposta3 dosya adıyla ekledim. Bakabilir misiniz?
Gönderilen mailin body kısmı
Sn. XXXX
Kesintiniz : 11
Maaş Tutarınız :45
şeklinde, alt formda 2. veri olduğunda gönderilecek mailin içeriği nasıl olacak??
Sn. XXXX
Kesintiniz : 11
Maaş Tutarınız :45
Kesintiniz : 16
Maaş Tutarınız :49
şeklinde mi olacak, yoksa farklı mı olacak?
MErhaba;
Sn. XXXX
Kesintiniz Maaş Tutarınız
11 45
16 49
şeklinde olmasını istiyorum.
Ozan Bey oralarda mısınız?