Win10 Da E-Mail Gönderemiyorum

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 = "abcd@hotmail.com"   ' Gönderilen e-mail adresi"

   objCDOMail.CC = "abcd@hotmail.com" ' 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

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.

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?

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

Merhaba,

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

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