cmd.C ommandTex t = "S elect * from {EmailServices}"
Dim maillist As DataTable = cmd.ExecuteReader
If maillist.DataRows.Count > 0 Then
e.Sender.Enabled = False
Dim tip As String = ""
Dim i As Integer = 0
For Each dr As DataRow In maillist.DataRows
i = i + 1
Dim mailaddr As String = dr("Accounts")
Dim smtp As New System.Net.Mail.SmtpClient(dr("smtp"), 25)
smtp.Credentials = New System.Net.NetworkCredential(dr("Accounts"),dr("Password"))
Dim mail As New System.Net.Mail.MailMessage()
mail.Subject = "Email Title Test 2"
mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
mail.From = New System.Net.Mail.MailAddress("Atmet-Services@atmet.cn")
mail.Priority = System.Net.Mail.MailPriority.Normal
mail.IsBodyHtml = True
mail.Body = "Email Content Test "
mail.To.Add("micoo@atmet.cn")
Try
smtp.Send(mail)
tip = tip & i & ") 成功" & dr("smtp") & "账号:" & dr("Accounts") & vbcrlf
Catch
tip = tip & i & ") " & dr("smtp") & "账号:" & dr("Accounts") & " 发送失败" & vbcrlf
Finally
mail.Dispose()
End Try
Next
MessageBox.Show(tip )
e.Sender.Enabled = True
End If
加好友 
发短信
Post By：2015/6/15 12:43:00 [只看该作者]
