发送选定订单到对应产品供应商的邮箱:
Dim r As Row = Tables("订单").Current
Dim dr As DataRow = DataTables("供应商信息").Find("公司名称 = '" & r("公司名称") & "'")
If dr IsNot Nothing Then
Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.To = dr("邮箱")
m.Title = "有件标题"
m.C
m.SendAsync()
End If