将功能从asp转换为asp.net发送电子邮件

debugcn 发表于 Dev

阿比舍克

我有一个功能，可以将在经典asp中创建的电子邮件发送到该功能，并且想要在asp.net Vb中转换该功能。首先是下面的我的ASP函数，之后我尝试在vb中进行转换。我做错了什么以及如何从我的webConfig中阅读mailSettings。

 Function MailIt(subject, from, email, body)

   Dim mail As New MailMessage()
   mail.BodyFormat = MailFormat.Html
   mail.To = email
   mail.From = from
   mail.Subject = subject
   mail.Body = body
   mail.Bcc = "[email protected]"
   mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xx.com"
   mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25" 'mail server port
   mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
   mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") ="[email protected]"
   mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="xxx"
   System.Web.Mail.SmtpMail.Send(mail)
mailit=" "

End Function

我在ASP.NET VB中进行了转换

Public Shared Function MailIt(ByVal subject, ByVal from, ByVal email, ByVal body)

    Dim mail As New System.Net.Mail.MailMessage()
    mail.IsBodyHtml = True

    mail.Body = MailFormat.Html
    mail.To.Add(email)
    mail.From = from
    mail.Subject = subject
    mail.Body = body
    mail.Bcc = "[email protected]"
    mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xx.com"
    mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25" 'mail server port
    mail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
    mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
    mail.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxx"
    System.Web.Mail.SmtpMail.Send(mail)
    MailIt = " "

End Function

亚米尔·瓦希德（Aamir Waheed）

尝试此操作并在web.config中设置SMTP设置

Public Shared Function MailIt(ByVal subject, ByVal from, ByVal email, ByVal body)

Dim mail As New System.Net.Mail.MailMessage()
mail.IsBodyHtml = True

mail.To.Add(email)
mail.From = from
mail.Subject = subject
mail.Body = body
mail.Bcc.Add("[email protected]")

Dim smtp As SmtpClient = New SmtpClient

smtp.Send(mailMessage)

End Function

Web.config设置

    <configuration>
   <system.net>
    <mailSettings>
     <smtp from="[email protected]">
      <network host="smtp.yourdomain.com" port="25" userName="yourUserName" password="yourPassword"/>
     </smtp>
    </mailSettings>
   </system.net>
</configuration>

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。