ASPMail 4.x ile mail göndermek
Önce sunucuya(server) ASPMail nesnesini kurunuz.
Özellikleri(properties)
RemoteHost = SMTP sunucusunun adresi
AddRecipient = alicinin mail adresi
FromAdress = gönderenin mail adresi
FromName = gönderenin ismi
Subject = konu
BodyText = mailin içerigi
Response = sonuç
Yöntemler (methods)
SendMail = maili gönderir.
Adim adim uygulma
Önce nesneyi olusturalim
gönderenin adini yazin
gönderenin email adresini yazin
smtp server adresini yazin
alicinin mailini yazin
konuyu yazin
mailin içerigini yazin
SendMail metodu ile maili gönderin
SendMail basarili olursa true olmazsa false degerini alir,
'Response' özelligi sonucu verir.
mail gidip gitmedigini anlamak gitmediyse, hata sebebini görmek için yukaridaki satiri asagidaki gibi degistirelim.
Özellikleri(properties)
RemoteHost = SMTP sunucusunun adresi
AddRecipient = alicinin mail adresi
FromAdress = gönderenin mail adresi
FromName = gönderenin ismi
Subject = konu
BodyText = mailin içerigi
Response = sonuç
Yöntemler (methods)
SendMail = maili gönderir.
Adim adim uygulma
Önce nesneyi olusturalim
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") gönderenin adini yazin
Mailer.FromName = "" gönderenin email adresini yazin
Mailer.FromAddress= "mymail@mydomain.com" smtp server adresini yazin
Mailer.RemoteHost = "smtp.myisp.net" alicinin mailini yazin
Mailer.AddRecipient "someone", "someone@yahoo.com" konuyu yazin
Mailer.Subject = "deneme" mailin içerigini yazin
Mailer.BodyText = " deneme " SendMail metodu ile maili gönderin
Mailer.SendMail SendMail basarili olursa true olmazsa false degerini alir,
'Response' özelligi sonucu verir.
mail gidip gitmedigini anlamak gitmediyse, hata sebebini görmek için yukaridaki satiri asagidaki gibi degistirelim.
if Mailer.SendMail then
Response.Write "Mail gönderildi"
else
Response.Write "Mail gönderilmedi. HATA : " & Mailer.Response
end if Son güncelleme :3/20/2009
Yorumlar
Henüz yorum yapılmamış
Yorum Yaz