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