Smtp Mailde Sunucu Aktarım Hatası - murat dikme - 22/03/2017
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
Cvp: Smtp Mailde Sunucu Aktarım Hatası - atoz112 - 22/03/2017
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.
Cvp: Smtp Mailde Sunucu Aktarım Hatası - atoz112 - 22/03/2017
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.
Cvp: Smtp Mailde Sunucu Aktarım Hatası - murat dikme - 23/03/2017
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.
Cvp: Smtp Mailde Sunucu Aktarım Hatası - ozanakkaya - 23/03/2017
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.
Cvp: Smtp Mailde Sunucu Aktarım Hatası - murat dikme - 23/03/2017
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.
|