Set objMail = Server.CreateObject("Persits.MailSender")
With objMail
	.Host = "mail.sunucu.com"
	.Username = "mail@sunucu.com"
	.Password = "şifre"
	.From = Kimden
	.FromName = strSiteAdi
	.AddAddress Kime
	.Subject = Konu
	.IsHTML = True
	.Body = Mesaj
	.Send
End With
Set objMail = Nothing

Kalın olan satırlar var mı kodunda? O site üzerinden bir e-posta hesabını kullanıcı adı olarak belirtip, şifre olarak da o e-posta adresinin şifresini yazman gerekiyor.

Yazdıysan da, parola hatalıdır.