Aşağıda Persits Mail ile gönderim için gereken kod var işini görür umarım

Sub MailGonder(strAlacak, strBaslik, strMetin)
SET objMail = Server.CreateObject("Persits.MailSender")
With objMail
.Host = "mail.domain.com"
.Username = "mail@domain.com"
.Password = "mailpassword"
.From = mail@domain.com
.IsHTML = True
.Charset = "iso-8859-9"
.AddAddress strAlacak, strAlacak
.Subject = strBaslik
.Body = strMetin
.Send
End With
SET objMail = Nothing
End Sub

kullanımı : Mailgonder "mailadresi@domain.com","mail subject","mail içeriği"