direk çalışan kod hocam. bizzat kulanıyorum
Set postaci= Server.CreateObject("Persits.MailSender")
postaci.Charset = "iso-8859-9"
postaci.Host = "smtp.yandex.com.tr"
postaci.Port = 465
postaci.SSL = True
postaci.Username = eposta
postaci.Password = epostasifre
postaci.From = eposta
postaci.FromName = kimdem
postaci.AddAddress epostakime
postaci.Subject = konusu
postaci.Body = postaicerik
postaci.IsHTML = true
postaci.Send
Set postaci = Nothing