(05/12/2019, 09:30)ozanakkaya yazdı:Değerli hocam dediğiniz talimatları kontrol ettim. hatt ekran resimleri ekte. Win10 64 bit kullanıyorum. ofis ise 32 bit yüklü(05/12/2019, 08:36)serdem48 yazdı: sanırım artık Access üzerinden gmail ile mail yollamak mümkün değil. çok araştırdım çok uğraştım. bir çok örnek denedim. kodlar hep aynıydı. hepsinde sunucuya bağlanılamadı hatası aldım. iyi günler.
Konuda, 1. mesajda bulunan örnek uygulama ile gmail üzerinden mail göndermede herhangi bir sorun yok. Mail gönderilebiliyor.
- https://myaccount.google.com/lesssecureapps bağlantısını tıklayıp "Daha az güvenli uygulama erişimi" ayarının açık olup olmadığını kontrol edin.
- https://mail.google.com/mail/u/0/#settings/fwdandpop bağlantısını tıklayıp, "Yönlendirme POP/IMAP" Sekmesinden POP ve IMAP'ın ektin olup olmadığını kontrol edin.
Option Compare Database
Dim veri1 As Variant
Dim L As Long
Dim lbarlnth As Long
#If VBA7 And Win64 Then
Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If
Dim boolChange As Boolean
Const Steplth = 20
kodunu değiştirmeden de denedim. değiştirip de denedim. ama nafile ne yaptıysam başaramadım. sanırım benim kullandığım win yada ofis ile alakalı bir durum. Ekteki şekilde hata alıyorum.