Smtp Mailde Sunucu Aktarım Hatası

1 2

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") = "denetim@istyonetim.com.tr"

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ı ( denetim@istyonetim.com.tr )"

.Subject = "Deneme Konu"

.HTMLBody = "Deneme Metin"

.Sender = "xx"

.Organization = "denetim@istyonetim.com.tr"

.ReplyTo = "denetim@istyonetim.com.tr"

.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

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.

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 = "denetim@istyonetim.com.tr"

     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.

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.

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") = "denetim@istyonetim.com.tr"

Flds.Item(schema & "sendpassword") = ""

Flds.Item(schema & "smtpusessl") = 1

Kısımları hatalı olursa mail gönderemezsiniz.

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.

1 2