Email script - SendMail Email Script

[Shane]

In order to send an email via sendmail script from windows server one can use below mentioned script:

sub sendmail(fromName,fromwho,toName,towho,subject,bod y)
MHost = "mail.yourdomainname.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = MHost
Mail.Username = "Email address for SMTP Authentication"
Mail.Password = "Password of above mentioned email address"

Mail.From = "Senders email address"
Mail.FromName = "From Name"
towho = "Recipient email address"
toName = "Recipient Name"
Mail.AddAddress towho, toName

Mail.Subject = subject
Mail.Body = body
Mail.IsHTML = True

strErr = ""
bSuccess = False
Mail.Send
End Sub