Bileşene Göre E-Posta Gönderimi

Düzenlerseniz daha yararlı olabilir. Mesela, tabloda bilesen adında bir hücre açarak, ordaki değere bileşen kullanabilirsiniz.

[HTML]<%
'on error resume next

Function MailSender(FromEmail,FromName,YourEmail,YourName,S ubject,Body,MailType)

MailServer = "kullaniciadi:sifre@smtp.host.com"
MailHost = "smtp.host.com"
MailUsername = "kullanici@host.com"
MailPassword = "sifre"

Select Case MailType
Case "Jmail"

set objNewMail = server.createobject("JMail.message")
objNewMail.charset = "windows-1254"
objNewMail.From = FromEmail
objNewMail.FromName = FromName
objNewMail.AddRecipient YourEmail,YourName
objNewMail.Subject = Subject
objNewMail.HTMLBody = Body
objNewMail.Send(MailServer)
Set objNewMail = Nothing

Case "CDonts"

Set objmail=Server.CreateObject("cdonts.newmail")
objmail.From = FromEmail
objmail.To = YourEmail
objmail.Subject = Subject
objmail.Body = Body
objmail.Send
set objmail= nothing

Case "ASPmail"

Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
objNewMail.FromName = FromName
objNewMail.FromAddress = FromEmail
objNewMail.RemoteHost = MailServer
objNewMail.AddRecipient YourEmail, YourEmail
objNewMail.Subject = Subject
objNewMail.BodyText = Body
SendOk = objNewMail.SendMail

Case "ASPEmail"

Set objNewMail = CreateObject("Persits.MailSender")
objNewMail.Host = MailHost
objNewMail.Username = MailUsername
objNewMail.Password = MailPassword
objNewMail.From = FromEmail
objNewMail.FromName = FromName
objNewMail.AddAddress YourEmail
objNewMail.Subject = Subject
objNewMail.Body = body
objNewMail.IsHTML = TRUE
objNewMail.Send

Case "Jmail2"

set objNewMail = server.createobject("JMail.SMTPMail")
objNewMail.Sender = FromEmail
objNewMail.ServerAddress = MailServer
objNewMail.AddRecipient YourEmail
objNewMail.Subject = Subject
objNewMail.ContentType = "text/html"
objNewMail.Body = body
objNewMail.execute

Case "OCXmail"

Set objNewMail = Server.CreateObject("ASPMail.ASPMailCtrl.1")
SendEmail = objNewMail.SendMail(MailServer, YourEmail, FromEmail, Subject, body)
Set objNewMail = Nothing

End Select

if err.number = 0 then

MailSender = "Mesaj gönderildi..."

elseif err.number = -2147220979 then

MailSender = "Lütfen gerekli bilgileri eksiksiz doldurunuz."

else

MailSender = "Sunucumuzdaki bir sorundan dolayı öneriniz gönderilemedi... Lütfen daha sonra tekrar deneyiniz... " & err.description & "<br>" & objNewMail.errormessage

end if

End Function
%>[/HTML]

__________________
proxyer