Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
01/12/2017 18:59
Konu Sahibi
ates2014
Yorumlar
8
Okunma
775
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

ates2014

Aktif Üye
66933
 47
 265
 31/10/2014
0
 Adana
 
 Ofis 2010 32 Bit
 Dün,11:34
Çözüldü 
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?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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

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



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
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.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

ates2014

Aktif Üye
66933
 47
 265
 31/10/2014
0
 Adana
 
 Ofis 2010 32 Bit
 Dün,11:34
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?



ates2014

Aktif Üye
66933
 47
 265
 31/10/2014
0
 Adana
 
 Ofis 2010 32 Bit
 Dün,11:34
Arkadaşlar, Win10 da email gönderebilecegim bir kod bloğu varmı,
varsa lütfen paylaşırsanız çok sevirim.



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Merhaba,

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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

alpeki99

Uzman
6
Ol....
 39
 162
 6.134
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 01/02/2019,07:14
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ış.


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Saat 17:00Da Otomatik Mail Atsın haziran4 6 183 26/04/2019, 15:52
Son Yorum: ozanakkaya
Çözüldü Mysql 5.7 Php 7.3 Guncellemesinden Sonra Smtp Mail Gönderemiyorum zetyu 6 257 10/04/2019, 00:19
Son Yorum: zetyu
Çözüldü Mail Gönderirken Gövdeye Yazı Aralarına Resim Eklemek Ve Satır Ara Boşlukları zetyu 6 325 22/03/2019, 23:52
Son Yorum: zetyu
Çözüldü Veritabanı Üzerinden Mail Göndermek sercann 1 181 21/02/2019, 23:33
Son Yorum: ozanakkaya
Çözüldü Accessde Mail Gönderiminde Çıkan Mesaj Kutusu Hk. Yardım Mr.Midnight 8 318 19/02/2019, 22:30
Son Yorum: Mr.Midnight

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.