Skip to main content

AccessTr.neT


Smtp Mailde Sunucu Aktarım Hatası

Smtp Mailde Sunucu Aktarım Hatası

#1
merhaba değerli hocalarım. uygulamamda aşağıdaki kodu gmail ile denediğimde mail göndermekte fakat sunucu adresi ile gönderirken sunucuya aktarılamadı hatası almaktayım. bu sorunu nasıl düzelte bilirim.
Kod:
Function SendMail(BelgeAdi)
Dim iMsg, iConf, Flds, schema
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.istyonetim.com.tr"
Flds.Item(schema & "smtpserverport") = 587
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "[email protected]"
Flds.Item(schema & "sendpassword") = ""
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
veri1 = txtEklenti
With iMsg
.To = Me.Metin62 & " ; " & acilan10.Column(0) & " ; " & acilan11.Column(0) & " ; " & acilan12.Column(0) & " ; " & acilan13.Column(0) & " ; " & acilan14.Column(0) & " ; " & acilan15.Column(0) & " ; " & acilan16.Column(0) & " ; " & acilan17.Column(0)
.From = "Gönderen Adı Soyadı ( [email protected] )"
.Subject = "Deneme Konu"
.HTMLBody = "Deneme Metin"
.Sender = "xx"
.Organization = "[email protected]"
.ReplyTo = "[email protected]"

.AddAttachment BelgeAdi

Set .Configuration = iConf
.send

End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

MsgBox ("mail gönderildi")
Kill BelgeAdi
End Function

Cevapla
#2
sayın murat dikme,

bahsettiğiniz talebinize yönelik olarak;

Google ayarlarını daha az güvenli yapma işlemi

bağlantısından gerekli ayarın yapılmış olduğu var sayımı akabinde,

smtpserverport değeri için 587 yerine bir de 465 olarak kullanmayı deneyiniz.

gerekirse,örnek uygulamanızı konunuza dahil ediniz.

son olarak;
sitede araştırmış ve incelemişsinizdir fakat sadece hatırlatma ve bilgilendirme olması amacı ile,

SMTP Hesabıyla E-mail Gönderme Uygulaması

yukarıda bağlantısı yazılı konuyu ve örneği de inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
sayın murat dikme,

Sub SendMail
    Dim objEmail




    Const cdoSendUsingPort = 2
    Const cdoBasicAuth = 1
    Const cdoTimeout = 60




     mailServer = "smtp.istyonetim.com.tr"
     SMTPport = 465
     mailusername = "[email protected]"
     mailpassword = ""




     mailto = Me.Metin62 & " ; " & acilan10.Column(0) & " ; " & acilan11.Column(0) & " ; " & acilan12.Column(0) & " ; " & acilan13.Column(0) & " ; " & acilan14.Column(0) & " ; " & acilan15.Column(0) & " ; " & acilan16.Column(0) & " ; " & acilan17.Column(0)
     mailSubject = "Deneme Konu" 
     mailBody = "Deneme Metin" 




    Set objEmail = CreateObject("CDO.Message")
    Set objConf = objEmail.Configuration
    Set objFlds = objConf.Fields




    With objFlds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPport
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = cdoTimeout
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasicAuth
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailusername
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailpassword
        .Update
    End With




    objEmail.To = mailto
    objEmail.From = mailusername
    objEmail.Subject = mailSubject
    objEmail.TextBody = mailBody
    'objEmail.AddAttachment BelgeAdi
    objEmail.Send




    Set objFlds = Nothing
    Set objConf = Nothing
    Set objEmail = Nothing




    MsgBox ("mail gönderildi")
    Kill BelgeAdi

End Sub

bir de yukarıdaki kodları kullanmayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#4
Sayın @atoz112 öncelikle ilginiz için teşekkür ederim. Yukarıda belirttiğiniz konuları inceleyip vermiş olduğunuz kodu denedim. herhangi bir hata mesajı vermeden "mail gönderildi" iletisi vermekte fakat mail gönderilen adrese gitmedi. Kod sayfasında belirtilen şifre ve diğer hususları tekrar gözden geçirip gün içerisinde konuya dönüş yapacağım. Farklı işlerim nedeni ile kısa sürede dönüş yapamadığım için kusura bakmayın. Saygılarımla.
Cevapla
#5
Merhaba,

Alıntı:istyonetim.com.tr

isimli sitenin sunucusundan smtp mail ayarlarını öğreniniz.
SSL/TLS
sunucu smtp mail yolu
smtp mail port numarası

Koddaki 
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.istyonetim.com.tr"
Flds.Item(schema & "smtpserverport") = 587
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "[email protected]"
Flds.Item(schema & "sendpassword") = ""
Flds.Item(schema & "smtpusessl") = 1

Kısımları hatalı olursa mail gönderemezsiniz.
Cevapla
#6
Sayın @ozanakkaya hocam. ilginiz için teşekkür ederim. Yarın yukarıda belirttiğiniz sunucu ayarlarını öğrenip tekrar deneyeceğim. Saygılarımla.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task