Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Access'ten mail gönderme

mehmetb84
mehmetb84
Access Cevaplanmış Soruları
9
2932

Access'ten mail gönderme

Çözüldü #1
mehmetb84
Aktif Üye
mehmetb84
Bul
Aktif Üye*
Adı Soyadı: Me.... Ba....
Yaşı: 41
Konum: Denizli
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 13/12/2020,02:55
Yorumları: 519
Konuları: 136
Kayıt Tarihi: 29/12/2010
Teşekkür Puanı: 0
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.
.rar eposta3.rar (Dosya Boyutu: 43,92 KB | İndirme Sayısı: 11)
Son Düzenleme: 23/12/2015, 11:42, Düzenleyen: mehmetb84.
Cevapla
#2
mehmetb84
Aktif Üye
mehmetb84
Bul
Aktif Üye*
Adı Soyadı: Me.... Ba....
Yaşı: 41
Konum: Denizli
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 13/12/2020,02:55
Yorumları: 519
Konuları: 136
Kayıt Tarihi: 29/12/2010
Teşekkür Puanı: 0
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
Son Düzenleme: 22/12/2015, 17:47, Düzenleyen: mehmetb84.
Cevapla
#3
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,10:43
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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.
Cevapla
#4
mehmetb84
Aktif Üye
mehmetb84
Bul
Aktif Üye*
Adı Soyadı: Me.... Ba....
Yaşı: 41
Konum: Denizli
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 13/12/2020,02:55
Yorumları: 519
Konuları: 136
Kayıt Tarihi: 29/12/2010
Teşekkür Puanı: 0
mail detaylarıma ait alanları **** olarak değiştirdim ve eposta3 dosya adıyla ekledim. Bakabilir misiniz?
Son Düzenleme: 24/12/2015, 16:31, Düzenleyen: mehmetb84.
Cevapla
#5
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,10:43
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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?
Cevapla
#6
mehmetb84
Aktif Üye
mehmetb84
Bul
Aktif Üye*
Adı Soyadı: Me.... Ba....
Yaşı: 41
Konum: Denizli
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 13/12/2020,02:55
Yorumları: 519
Konuları: 136
Kayıt Tarihi: 29/12/2010
Teşekkür Puanı: 0
MErhaba;

Sn. XXXX
Kesintiniz Maaş Tutarınız
11 45
16 49

şeklinde olmasını istiyorum.


Ozan Bey oralarda mısınız?
Son Düzenleme: 26/12/2015, 22:55, Düzenleyen: mehmetb84.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task