Skip to main content

AccessTr.neT


formdaki bilgileri ilgili kişiye eposta olarak gönderme

formdaki bilgileri ilgili kişiye eposta olarak gönderme

Çözüldü #19
aşağıdaki kodda yaptığım değişiklikler sizin tarif ettiğiniz gibi:

portu da 587 yapıyorum... yanlışım var mıdır?

SMTP_Sunucu = "smpt.gmail.com"
Gonderenin_Mail_Adresi = "yunusturan@gmail.com"
Gonderenin_Mail_Sifresi = "şifremi yazıyorum"
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
Cevapla
Çözüldü #20
Aşağıdaki bilgileri değiştirip dener misiniz?
Port 587 yerine 465, smtpusessl ise false yerine 1

objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #21
mustafa_atr kardeşime eposta ve şifremi de gönderdim, henüz cevap gelmedi...
sizin dediğinizi yaptım mail gönderme başarısız...
Cevapla
Çözüldü #22
Sayın yturan uygulama mailinize gönderilmiştir.
Saygılar
uygulamanın mail adresinizi ve şifrenizi içermeyen bir nüshası aşağıdadır.
.rar eposta_mustafa_atr2.rar (Dosya Boyutu: 31,42 KB | İndirme Sayısı: 74)
Cevapla
Çözüldü #23
Sizin gmail hesabınızda pop ayarını aktifleştirmeniz gerekiyor olabilir.

[Resim: 01.png]

Aşağıdaki adreste nasıl yapılacağına dair bilgi var.
gmail-outlook-express-ayarlari-pop3

Alıntı:Önce kullanıcı adı ve şifrenizi girip GMail adresimizi açın. Sağ üst köşede bulunan Ayarlar linkine tıklayın.

1. Açılan bölüme Yönlendirme ve POP/IMAP sekmesine gelin.
2. Bu pencerede iken Tüm Postalar için POP’u Etkinleştir seçeneğini onaylayın.
3. Değişiklikleri Kaydet butonuna tıklayın.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #24
mustafa_atr kardeş, program çalışıyor... Yalnız gönedirilen bilgiler sıralı tek satıra yazıyor... Bunu bir tablo haline dönüştürebilirmiyim? Kod içerisinde bir iki örnek olsa gerisini ben hallederim...

Teşekkür ederim yardımların için...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task