2011-03-03 39 views

回答

3

你到底去完成?

我已经没有任何麻烦,使用常规的SMTP客户端

Public Shared Sub SendEmail(ByVal sFromAddress As String, _ 
          ByVal sToAddress As String, _ 
          ByVal sSMTPAddress As String, _ 
          ByVal sUsername As String, _ 
          ByVal sPassword As String, _ 
          ByVal sOrderNo As String, _ 
          ByVal sURL As String, _ 
          ByVal iPort As Integer) 

    Try 
     Dim client As New SmtpClient(sSMTPAddress, iPort) 
     client.UseDefaultCredentials = False 
     client.Credentials = New System.Net.NetworkCredential(sUsername, sPassword) 
     client.EnableSsl = True 

     Dim mail As New MailMessage 
     mail.To.Add(sToAddress) 
     mail.From = New MailAddress(sFromAddress) 
     mail.Subject = GetSubject(sOrderNo) 
     mail.IsBodyHtml = True 
     mail.Body = GetBody(sOrderNo, sURL) 

     client.Send(mail) 

    Catch ex As Exception 
     MessageBox.Show("Error Sending E-mail!") 
    End Try 

End Sub 

如果你想拥有一个更有意义的互动通过我的Exchange帐户发送邮件,我知道你可以通过使用Microsoft.Office.Interop.Outlook完成了很多。查看http://msdn.microsoft.com/en-us/library/ms268893(VS.80).aspx了解更多信息。