[Yardım]  Güvenliği Düşük Uygulama Erişimi Hakkında

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Güvenliği Düşük Uygulama Erişimi Hakkında

İleti#1)  senuba » 14 Haz 2022 12:54

Merhaba,
Excel vba olsun VB6.0 olsun her iki uygulamada da artık mail gönderemiyorum. Normalde gmail hesabıma girip "Güvenliği Düşük Uygulama Erişimi" ayarını açtıktan sonra aşağıdaki kod ile mail gönderebiliyordum. Şimdi mail gönderemiyorum, ayrıca hesabıma girince de şöyle bir uyarı veriyor:
Güvenliği düşük uygulama erişimi
Hesabınızın korunması için, güvenliği düşük oturum açma teknolojisi kullanan uygulamalar ve cihazlar engellenir. Google, hesabınızın güvenliğini korumak için kullanılmadığında bu özelliği otomatik olarak KAPATIR.

Bu ayar artık kullanılamıyor. Daha fazla bilgi edinin.

Google, 30 Mayıs 2022 tarihinden itibaren hesabınızın güvende kalmasına yardımcı olmak amacıyla, Google Hesabınızda oturum açmak için yalnızca kullanıcı adı ve şifrenizi isteyen üçüncü taraf uygulamalarının ve cihazların kullanımını artık desteklemeyecektir.

Önemli: Bu son tarih Google Workspace veya Google Cloud Identity müşterileri için geçerli değildir. Bu müşteriler için geçerli olan uygulamaya konma tarihi önümüzdeki dönemde Workspace blogunda duyurulacaktır.


Bunu aşmamın bir yolu var mı?

Kullandığım kod ise şu şekilde;
Kod: Tümünü seç
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "hesabım@gmail.com"
Flds.Item(schema & "sendpassword") = "şifrem"
Flds.Item(schema & "smtpusessl") = 1
Flds.UPDATE

With iMsg
'.To = "adres" '//mail yollanacak adres
.bodyPart.Charset = "UTF-8"
.Subject = konu
.HTMLBody = "Mailinim"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
Kullanıcı avatarı
senuba
Siteye Alışmış
 
Kayıt: 14 Arl 2014 00:46
Meslek: Makina Mühendisi
Yaş: 34
İleti: 128
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Güvenliği Düşük Uygulama Erişimi Hakkında

İleti#2)  senuba » 16 Haz 2022 18:27

Gene kendi sorunumu kendim çözdüm :)
Gmail üzerinden "2 Adımlı Doğrulama" kısmını aktifleştirince "Uygulama şifreleri" kısmı aktifleşiyor. Buradan da nereye izin alacağınızı seçince (ben "Diğer" kısmını seçip kendim ad verdim) bize herhangi bir 16 haneli bir şifre üretiyor. Programdan ya herhangi bir yerden bu şifre ile giriş yapınca bize tam yetki veriyor. SMPT sunucu erişim hatası böylece ortadan kalkıyor. Güvenliği düşük uygulama kısmı ile ilgili hiçbir ilgimiz kalmıyor.
Hata alan başka arkadaş olursa bana buradan ulaşabilir. Yardımcı olabilirim.
Kullanıcı avatarı
senuba
Siteye Alışmış
 
Kayıt: 14 Arl 2014 00:46
Meslek: Makina Mühendisi
Yaş: 34
İleti: 128
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Güvenliği Düşük Uygulama Erişimi Hakkında

İleti#3)  Tarkan VURAL » 17 Haz 2022 13:19

Çözüm paylaşımı için teşekkür ediyoruz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 48
İleti: 27529
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe