Отправка электронной почты через CDOSYS, но написано на C #

Question

Мне надоела моя хостинговая компания.Я думаю, вы можете помочь мне здесь.

Мне просто нужно, чтобы у меня был полный веб-сайт, написанный на Classic ASP.Теперь я хочу иметь страницу, которая отправляет электронную почту с использованием CDOSYS.Я хотел иметь этот скрипт на ASP от моей хостинговой компании, какие настройки я должен иметь.Они всегда отправляют мне код на C #.

, вот они отправляют всегда:

CDOSYS является частью пространства имен System.Web.Mail и устанавливается по умолчанию на платформах Windows 2000 и Windows XP.Он заменяет CDONTS для отправки сообщений электронной почты SMTP и может использоваться с нашими учетными записями хостинга Windows IIS 6 и IIS 7.В следующем примере кода показано, как создавать, форматировать и отправлять электронную почту.

private void SendEmail()
{
const string SERVER = "relay-hosting.secureserver.net";
MailMessage oMail = new System.Web.Mail.MailMessage();
oMail.From = "emailaddress@domainname";
oMail.To = "emailaddress@domainname";
oMail.Subject = "Test email subject";
oMail.BodyFormat = MailFormat.Html; // enumeration
oMail.Priority = MailPriority.High; // enumeration
oMail.Body = "Sent at: " + DateTime.Now;
SmtpMail.SmtpServer = SERVER;
SmtpMail.Send(oMail); 
oMail = null; // free up resources
 } 

Вот мой ASP, который я написал для того же, но не работает:

Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
objCDOSYSCon.Fields.Update 
With objCDOSYSMail
  .To       = strEmail
  .BCc       = "a@gmail.com"
  .Cc       = "b@gmail.com"
  .From     = "sales@b.com"
  .Subject  = "Thank you!"
  .HTMLBody = "Hello<br></br><h3>Thank you for your enquiry. <br/>"
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 

Я не знаю, как использовать их код .... пожалуйста, помогите

Answer 1

Вы можете использовать следующий код на классической странице ASP для отправки электронной почты с CDOSYS:

Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFlds = objConf.Fields
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.your-site-url.com" 'your smtp server domain or IP address goes here
objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'default port for email
'uncomment next three lines if you need to use SMTP Authorization
'objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "your-username"
'objFlds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "your-password"
'objFlds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'cdoBasic
objFlds.Update
objMail.Configuration = objConf
objMail.FromName = "Your Name"
objMail.From = "your@address.com"
objMail.To = "destination@address.com"
objMail.Subject = "Email Subject Text"
objMail.TextBody = "The message of the email..."
objMail.Send
Set objFlds = Nothing
Set objConf = Nothing
Set objMail = Nothing