AccessTr.neT
Win10 Da E-Mail Gönderemiyorum - Baskı Önizleme

+- 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ığı: Win10 Da E-Mail Gönderemiyorum (/konu-win10-da-e-mail-gonderemiyorum.html)

Sayfalar: 1 2


Win10 Da E-Mail Gönderemiyorum - ates2014 - 01/12/2017

Merhaba arkadaşalar,
aşagıdaki kod ile win7 işletim sistemi ile fevkalede e-mail gönderebiliyorum ofis2010 ile
ama win10 işletim sisteminde eklediğim hatayı veriyor,
aantivürüs prg.yok yalnız windovs un Windovs defenderi aktif ondanmı acaba yoksa
win10 da smtpserverport farklımı çalışıyor?


Sub MailGonderr()
Dim firma, yoll, YedekYeri As String
firma = Dlookup ("[FirmaAdi]", "TblYetki")
YedekYeri = Dlookup ("[YedeklenecekYer]", "TblYetki")
yoll = YedekYeri & "\Abc" & Date & ".rar"
Dim objCDOMail As Object
   Set objCDOMail = CreateObject("CDO.Message")
   objCDOMail.To = Dlookup ("[Email]", "TblYetki") 'Me.Email ' Gönderilecek e-mail adresi
   objCDOMail.FROM = "[email protected]"   ' Gönderilen e-mail adresi"
   objCDOMail.CC = "[email protected]" ' Eğer isterseniz CC olarak yani bilgi gönderilecek e-mail adresi
   objCDOMail.Subject = Format$(Date, "dd.mm.yyyy") & " - " & firma & " FİRMASININ DATA YEDEGİ."  ' e-mail konusu
  ' yoll = YedeklenecekBelge 'CurrentProject.Path & "\MEALLER\" & Me.FirmaAdi & Format$(Date, "_dd.mm.yyyy") & ".pdf"
   objCDOMail.AddAttachment yoll ' eğer isterseniz eklenecek dosya
   objCDOMail.TextBody = Format$(Date, "dd.mm.yyyy") & " - " & firma & " FİRMASININ DATA YEDEGİ."
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "abcd" ' Kullanıcı adı
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "aaa.1999" ' Kullanıcı şifre
   objCDOMail.Configuration.Fields.Item("urn:schemas:httpmail:importance") = 2
   objCDOMail.Configuration.Fields.Item("urn:schemas:mailheader:X-Priority") = 1
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
   objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
   objCDOMail.Configuration.Fields.Update
   objCDOMail.Send
   Set objCDOMail = Nothing
MsgBox " E-Mailiniz Başarıyla Gönderildi..."
End Sub

hata bu

[Resim: do.php?imgf=151217705777541.jpg]


Cvp: Win10 Da E-Mail Gönderemiyorum - ozanakkaya - 02/12/2017

Merhaba,

Windows 10 için kod farklılığı var mı bilmiyorum, ancak yaptığım mail gönderme uygulamalarında aynı hata ile karşılaşmıştım.

1 - Gmail Hesabıyla E-Mail Gönderme Uygulaması konusunda belirttiğim "Daha az güvenli uygulamalar için erişim" ayarının yapılması gerekli
2- Gmail ile saatte 25 mail gönderme limitiniz var.


Cvp: Win10 Da E-Mail Gönderemiyorum - ates2014 - 02/12/2017

Malesef ozan hocam Gmail hesabının Daha az güvenli uygulamalara izin ver: AÇIK
yaptığım halde yine aynı hatayı verdi.
Başka neler yapabiliriz acaba?


Cvp: Win10 Da E-Mail Gönderemiyorum - ates2014 - 03/12/2017

Arkadaşlar, Win10 da email gönderebilecegim bir kod bloğu varmı,
varsa lütfen paylaşırsanız çok sevirim.


Cvp: Win10 Da E-Mail Gönderemiyorum - ozanakkaya - 15/12/2017

Merhaba,

Sorun hala devam ediyor mu acaba? Windows 10 güncellemesi yapıp tekrar deneyip bilgi veriniz.


Cvp: Win10 Da E-Mail Gönderemiyorum - alpeki99 - 15/12/2017

stackoverflow.com/questions/23224631/vbscript-error-80040211-when-sending-emails

şurada yazmışlar bir inceleyin isterseniz. İki adımlı doğrulama aktif edip yeni şifre belirlemiş çalışmış.