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?
Sub MailGonderr()
Dim firma, yoll, YedekYeri As String
firma = Dlookup ("[FirmaAdi]", "TblYetki")
YedekYeri = Dlookup ("[YedeklenecekYer]", "TblYetki")
yoll = YedekYeri & "\Abc" & Date & ".rar"
Dim o

[attachment=14821]Değerli Arkadaşlarım; yaklaşık iki yıl önce bu site ile tanıştım ve buradan çok şey öğrendim. kamu kurumunda çalışıyorum. işim yoğun, bu yoğun işlerden bir tanesi de adli emanet, kendi çapımda bir program yaptım. kayıtları tutuyorum çıktı olarak alıyorum yalnız sildiğim bilgiyi arşivlemek istiyorum. günün birinde adli olarak lazım olur diye. Ek'te dosya gönderiyorum. daha deneyimli arkadaşlar yardımcı olursa memnun kalırım. Şimdiden teşekkür ederim.

şifre : 23061982

Merhaba arkadaşlar,
kod ile gmail den meal gönderemiyorum.
gmail güvenlik düzeyinin ayarlarını değiştirmiş galiba,
prg. yedeklemesini gmail ile gönderiyordum, artık gönderemiyorum,
önerisi olan varmı acaba?