想实现内网邮件通知
能不能实现C/S结构的内网邮件通知，如果用户发现问题写好问题描述后点发送，只能发到指定的几个邮箱中，如
it001@fuwu.com
it002@fuwu.com
采用microsoft exchange server方式来接收和发送邮件
邮件服务器地址为:10.122.3.3
请帮下忙哈
[解决办法]
给段代码你参考下：
Public SendFrom As String = " " '发件地址
Public sendTo As String = " " '收信人地址
Public SendCC As String = " " '抄送
Public vSendBcc As String = " " '密送
Public Subject As String = " " '主题
Public MailBody As String = " " '正文
Public BodyType As Int16 = 0 '正文类型0 html 1 text
Public Priority As Int16 = 0 '优先度 0 低 1 中 2 高
Public ArrayAttchFile As DataSet ' 附件数组
Public MailSvrSMTP As String = " " 'mail server 的SMTP地址默认FELserver
'输出参数
Private mRtnvalue As Integer = 1 ' 处理代码0 处理完成， 其他 其他处理代码
Private mRtnvalueStr As String = " " ' 处理说明
Private Attch As MailAttachment
Private MS As New MailMessage
Public Sub SemdMail()
Try
mRtnvalueStr = " "
mRtnvalue = 1
'Dim Arr As New DataSet
'Arr = ArrayAttchFile
With MS
'设置发件人
If SendFrom.Length > 0 Then
.From = SendFrom
Else
.From = " "
End If
'设置收件人
If sendTo.Length > 0 Then
.To = sendTo
'Else
' mRtnvalueStr = mRtnvalueStr & Subject & " Not input receiver! " & vbCrLf
End If
'设置抄送人
If SendCC.Length > 0 Then
.Cc = SendCC
End If
'设置密送人
If vSendBcc.Length > 0 Then
.Bcc = vSendBcc
End If
'设置主题
.Subject = Subject
'设置正文
If MailBody.Length > 0 Then
.Body = MailBody
End If
'设置正文类型
Select Case BodyType
Case 0
.BodyFormat = MailFormat.Html
Case 1
.BodyFormat = MailFormat.Text
End Select
'设置优先级
Select Case Priority
Case 0
.Priority = MailPriority.Low
Case 1
.Priority = MailPriority.Normal
Case 2
.Priority = MailPriority.High
Case Else
.Priority = MailPriority.High
End Select
'添加附件
If Not ArrayAttchFile Is Nothing Then
Dim row As DataRow
If ArrayAttchFile.Tables.Count > 0 Then
For Each row In ArrayAttchFile.Tables(0).Rows
If File.Exists(row(0)) Then
Attch = New MailAttachment(row(0))
MS.Attachments.Add(Attch)
Else
mRtnvalueStr = mRtnvalueStr & " Could not find " & row(0) & vbCrLf
End If
Next
End If
End If
End With
'设置邮件服务器
If MailSvrSMTP.Length > 0 Then
SmtpMail.SmtpServer = MailSvrSMTP
Else
SmtpMail.SmtpServer = "10.122.3.3 "
End If
'判断是否有错
If mRtnvalueStr.Length > 0 Then
mRtnvalue = 1
Else
SmtpMail.Send(MS)
mRtnvalue = 0
End If
Catch ex As Exception
mRtnvalue = 1
mRtnvalueStr = mRtnvalueStr & Subject & ex.Message.ToString
End Try
End Sub
