+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: formdaki bilgileri ilgili kişiye eposta olarak gönderme (/konu-formdaki-bilgileri-ilgili-kisiye-eposta-olarak-gonderme.html)
Cvp: formdaki bilgileri ilgili kişiye eposta olarak gönderme - yturan - 20/10/2010
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
Cvp: formdaki bilgileri ilgili kişiye eposta olarak gönderme - Seruz - 20/10/2010
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
Cvp: formdaki bilgileri ilgili kişiye eposta olarak gönderme - yturan - 20/10/2010
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...
Cvp: formdaki bilgileri ilgili kişiye eposta olarak gönderme - mustafa_atr - 20/10/2010
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.
Cvp: formdaki bilgileri ilgili kişiye eposta olarak gönderme - Seruz - 20/10/2010
Sizin gmail hesabınızda pop ayarını aktifleştirmeniz gerekiyor olabilir.
![[Resim: 01.png]](http://i214.photobucket.com/albums/cc264/frrst/Ekran_Goruntu/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.
Cvp: formdaki bilgileri ilgili kişiye eposta olarak gönderme - yturan - 25/10/2010
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...