Mail Gönderme ile bir kaç sorum ?

Arkadaşalar Bağlı oldugum sunucuda şu kodum çalışmadı ;


*******************************************
Dim MyCDONTSMail
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "deneme@deneme.com"
MyCDONTSMail.To= email
MyCDONTSMail.Subject=konu
MyCDONTSMail.BodyFormat=0
MyCDONTSMail.MailFormat=0
MyCDONTSMail.Body= topbody & mail & bottombody
MyCDONTSMail.Send
*******************************************

Bunun gibi otomatik gönderme kodları var mı acaba ? bu kod ayarında kod verene + rep

kod ile yorum yapmayın sadece verecek arkadaşlar yardımcı olabilirseler yazsınlar.

Güncel arkadaşlar

server hangi mail comp. destekliyor.
cdonts calışmıyorsa önce hangisini desteklediğini öğren ondan sonra yardımcı olabilirim.

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"