Özel Arama
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
