2011-03-03 43 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瞭解更多信息。