從Web.Mail移動到Net.Mail，替換MailMessage.Fields？

Question

我試圖更新一些使用現在宣佈已過時的舊版軟件System.Web.Mail類。不幸的是，我真的不知道很多關於電子郵件的知識，所以我在尋找建議。

這裏是代碼我期待在修改片段：

Dim myMessage As New Web.Mail.MailMessage 
Dim cdoSendUsingPort As Integer = 2 
Dim cdoNTLM As Integer = 2 
myMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", Options.SMTPServer) 
myMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25) 
myMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", cdoSendUsingPort) 
myMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", cdoNTLM) 

從我可以告訴，這應該是配置某種發送選項。我可以種工作發生了什麼事情，但我不知道我應該怎麼去重新實現它...

它尋找喜歡的地方將要放這個東西現在在系統.Net.Mail.SmtpClient.Credentials class，但其中的信息似乎與我在此處的內容沒有任何相似之處。

我幾乎可以肯定我在這裏做了一些明顯的錯誤，但我看不到它。有人能告訴我我應該做什麼？

Answer 1

我不知道這裏實際發生了什麼，它看起來像這個函數從來沒有被使用過。該程序確實發送郵件，但不會通過此功能發送。整個計劃是一團糟，從一堆外部圖書館中拉出來。

我剛剛發表了所有導致錯誤的註釋，並且做了一個註釋，試圖在找到時間時撕掉整個圖書館。

我已經關閉了這個問題，但它不會讓我，並且在我標記它之後，mods沒有關閉它。

把這個作爲一個非回答說，這個問題得以解決，即使是從來沒有解決的問題......

Answer 2

System.Net.Mail在應用程序的web.config /的app.config配置，請參閱斯科特谷的帖子在這裏：

http://weblogs.asp.net/scottgu/archive/2005/12/10/432854.aspx

還有如何將郵件發送一個C＃教程，但這應該相當容易移植到VB

編輯： VB端到端。 http://forums.asp.net/t/971802.aspx

Answer 3

正如Beliskner所提到的，您可以在web.config文件中設置大部分相關屬性。

您也可以通過您的SmtpClient實例設置它們。但是，如果您只能使用.config文件，這是一個更好的地方。

http://msdn.microsoft.com/en-us/library/system.net.mail.smtpclient.aspx

您需要使用實例反正你要MAILMESSAGE。發送調用（）。

Answer 4

正如您已經注意到System.Web.Mail和System.Net.Mail之間有一些差異。

這裏有一個工作示例：

Imports System.Net.Mail 

Module Module1 

    Sub Main() 
    Dim myMessage As New MailMessage 
    myMessage.To.Add(New MailAddress("bob@example.com", "Bob")) 
    myMessage.From = _ 
    New MailAddress("noreply@mydomain.com", "MyDomain Senders Name") 
    myMessage.Subject = "Test mail" 
    myMessage.Body = "Hello world" 

    Dim server As New SmtpClient 
    server.Port = 25 
    server.Host = "your server name" 
    server.DeliveryMethod = SmtpDeliveryMethod.Network 
    server.UseDefaultCredentials = True 

    server.Send(myMessage) 

    End Sub 

End Module 

有一個很好的資源稱爲System.Net.Mail - Oh My其中有如何使用System.Net.Mail很好的例子。

<configuration> 
    <system.net> 
     <mailSettings> 
     <smtp deliveryMethod="Network"> 
      <network defaultCredentials="true" host="your server name"/> 
     </smtp> 
     </mailSettings> 
    </system.net> 
</configuration> 

在你的代碼只希望這樣做，而不是：

你也可以在你的web.config或app.config文件配置SmtpClient設置

Dim server As New SmtpClient 
server.Send(myMessage) 

更新：

我只注意到你正在使用NTLM身份驗證。嘗試以下一種方法：

Dim server As New SmtpClient 
server.Port = 25 
server.Host = "your server name" 
server.DeliveryMethod = SmtpDeliveryMethod.Network 

''// If no username/password being send then try this: 
server.Credentials = _ 
    CredentialCache.DefaultNetworkCredentials.GetCredential(_ 
     New Uri("smtp://yourserverfqname"), "NTLM") 
''// or this 
server.Credentials = _ 
    CredentialCache.DefaultCredentials.GetCredential(_ 
     New Uri("smtp://yourserverfqname"), "NTLM") 
server.Send(myMessage)