如何在vb代碼頁中使用asp發送電子郵件？

Question

我想這：

 Dim mail 
     mail = Server.CreateObject("CDO.Message") 
     mail.To = consul.Email 
     mail.From = "ADM@CFChamplain.ca" 
     mail.Subject = subj 
     mail.HTMLBody = Bdy 
     mail.Send() 
     mail = Nothing 

它給了我下面的錯誤： 的「SendUsing」配置值無效。

Answer 1

這是我用於我的應用程序的代碼，它用於ASP.NET。您需要在班級頂部爲.net.mail進行導入。 - >進口System.Net.Mail

 
Public Sub SendEmail(ByVal Sentfrom As String, ByVal Recipient As String, _ 
        ByVal SubjectLine As String, ByVal Messagebody As String)
 

Dim SmtpEngine As New SmtpClient 
    SmtpEngine.Host = "yourhost.com" 

    Try 
     SmtpEngine.Send(Sentfrom & "@taco.com", Recipient & "@taco.com", SubjectLine, Messagebody) 
    Catch ex As Exception 
     My.Application.Log.WriteException(ex) 
    End Try 

End Sub 

Answer 2

試試這個功能：

Public Sub SendMsg(from, dest, subj, body) 
    Dim msg, flds, conf 

    Set msg = CreateObject("CDO.Message") 
    Set conf = CreateObject("CDO.Configuration") 
    Set flds = conf.Fields 

    flds(cdoSendUsingMethod) = cdoSendUsingPort 
    flds(cdoSMTPServer) = "smtp.xyz.org" 
    flds(cdoSMTPServerPort) = 25 

'if use SMTP authentication... 
     flds(cdoSMTPAuthenticate) = cdoBasic 
     flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxx" 
     flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "zzzzzz" 
    '... or, without SMTP authentication 
     flds(cdoSMTPAuthenticate) = cdoAnonymous 

    flds.Update 

    On Error Resume Next 
    With msg 
     Set .Configuration = conf 
     .BodyPart.CharSet = "utf-8" 
     .TextBodyPart.CharSet = "utf-8" 
     .To = dest 
     .From = from 
     .Subject = subj 
     .TextBody = body 
     .Send 
    End With 
    On Error Goto 0 

    set msg = nothing 
    set conf = nothing 
    set flds = nothing 
End Sub