AccessTr.neT

Tam Versiyon: Win10 Da E-Mail Gönderemiyorum
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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]
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ış.
Sayfalar: 1 2