Чего вы пытаетесь достичь?
У меня не было проблем с отправкой почты через мою учетную запись Exchange с помощью обычного 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
Если вы хотите иметь более значимыйВзаимодействие, я знаю, что вы можете многое сделать, используя Microsoft.Office.Interop.Outlook
.Проверьте http://msdn.microsoft.com/en-us/library/ms268893(VS.80).aspx для получения дополнительной информации.