AccessTr.neT

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

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

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...

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.

Sizin gmail hesabınızda pop ayarını aktifleştirmeniz gerekiyor olabilir.



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.

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...