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

ates2014

Aktif Üye
66933
 48
 268
 31/10/2014
0
 Adana
 
 Ofis 2010 32 Bit
 16/07/2019,09:42
Çö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

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,19:14
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

ates2014

Aktif Üye
66933
 48
 268
 31/10/2014
0
 Adana
 
 Ofis 2010 32 Bit
 16/07/2019,09:42
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

ates2014

Aktif Üye
66933
 48
 268
 31/10/2014
0
 Adana
 
 Ofis 2010 32 Bit
 16/07/2019,09:42
Arkadaşlar, Win10 da email gönderebilecegim bir kod bloğu varmı,
varsa lütfen paylaşırsanız çok sevirim.




...........
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,19:14
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

alpeki99

Uzman
6
Ol....
 39
 162
 6.134
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 22/06/2019,10:56
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 291 26/04/2019, 15:52
Son Yorum: ozanakkaya
Çözüldü Mysql 5.7 Php 7.3 Guncellemesinden Sonra Smtp Mail Gönderemiyorum zetyu 6 348 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 442 22/03/2019, 23:52
Son Yorum: zetyu
Çözüldü Veritabanı Üzerinden Mail Göndermek sercann 1 221 21/02/2019, 23:33
Son Yorum: ozanakkaya
Çözüldü Accessde Mail Gönderiminde Çıkan Mesaj Kutusu Hk. Yardım Mr.Midnight 8 407 19/02/2019, 22:30
Son Yorum: Mr.Midnight

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