以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  通过代码发送邮件，可否设置“暗送”功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63473)
--  作者：peterx
--  发布时间：2015/1/21 17:55:00
--  通过代码发送邮件，可否设置“暗送”功能
请教：通过代码发送邮件，可否设置“暗送”功能
--  作者：有点甜
--  发布时间：2015/1/21 18:15:00
--  
 抄送？
--  作者：有点甜
--  发布时间：2015/1/21 18:21:00
--  

Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.126.com"
client.Credentials = New System.Net.NetworkCredential("lin_hailun@126.com", "6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage("lin_hailun@126.com", "2450314695@qq.com")
message.Subject = "邮件测试"
message.BodyEncoding = System.Text.Encoding.UTF8
message.IsBodyHtml = True

 

message.Bcc.Add("2450314695@qq.com") \'密送

message.cc.Add("2450314695@qq.com") \'抄送

 

Dim body As String = "<html><body>正文内容</body></html>"
Dim content As String

content &= "这是文字"
content &= "也是文字"

message.Body = body.Replace("正文内容", content)

Try
    client.Send(message)
    msgbox("发送成功")
Catch ex As Exception
    msgbox("发送失败:" & ex.message)
End Try

 

[此贴子已经被作者于2015-1-21 18:21:38编辑过]
--  作者：peterx
--  发布时间：2015/1/21 21:06:00
--  
不是抄送。是暗送。我的代码如下：
Dim ln As String = vbcrlf & vbcrlf \'定义两个换行
Dim name As WinForm.ComboBox = e.Form.Controls("姓名")
Tables("设备采购管理").Current("免税办理_负责人")=name.text
Dim yx As WinForm.TextBox = e.Form.Controls("电子邮箱")
Dim dr1  As Row = Tables("设备采购管理").Current
If dr1.IsNull("免税办理_负责人") = False Then \'如果负责人不为空
    
    Dim dr As DataRow
    dr = DataTables("内部通讯录").Find("姓名 = \'" & name.text & "\'")
    
    Dim m As New MailSender
    m.Host = "smtp.cstnet.cn"
    m.Account = "gxx@cas.cn"
    m.Password = "xg"
    m.From = "gxx@cas.cn"
    m.AddReceiver("gxx@ac.cn")      ‘此地址想转为暗送
    m.AddReceiver(dr("电子邮箱"))
    m.Title = "系统提醒:   " & dr1("仪器名称_中文") & "(" & dr1("购置申请编号") & ")" & "的合同和技术协议均已经完成签定工作,请着手办理进口免税手续!"
    m.Content = dr("姓名") &"  "& dr("称谓") & ", 您好:" & ln
    m.Content = m.Content & "        您负责的" &  dr1("仪器名称_中文") & "(购置申请编号:" & dr1("购置申请编号") & ")" & "进口免税手续可以着手办理,请按照合同规定交货时间之前**天内,完成免表申请工作!" & ln
    m.Content =m.Content & "        谢谢您的支持与配合!"
 
    m.Content =m.Content & vbcrlf & "                                             " & Date.today
    \'   m.Content =m.Content & vbcrlf & "                                             " & Date.now       \'显示当前日期和时间
    m.SendAsync()
    MessageBox.Show("提醒邮件发送完成, 谢谢!")
Else
    MessageBox.show("Hi, 玩啥呢! 无负责人!请先填写负责人!")
End If

Forms("负责人指定管理").close
--  作者：有点甜
--  发布时间：2015/1/21 21:08:00
--  

 看3楼。
--  作者：peterx
--  发布时间：2015/1/21 22:01:00
--  
谢谢



[此贴子已经被作者于2015-1-21 23:05:41编辑过]
--  作者：有点甜
--  发布时间：2015/1/21 22:14:00
--  
 测试了一下，无论是抄送还是密送，都没问题。
--  作者：peterx
--  发布时间：2015/1/21 23:06:00
--  
有点甜 老师您好：
辛苦了。 我调试成功了。
再请教，在正文中，增加换行 用如下代码不起作用，是什么原因？谢谢

content &= vbcrlf 


还有：如何设置邮件 优先级别为高？
[此贴子已经被作者于2015-1-21 23:07:00编辑过]
--  作者：有点甜
--  发布时间：2015/1/21 23:53:00
--  

参考

 

Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.126.com"
client.Credentials = New System.Net.NetworkCredential("lin_hailun@126.com", "6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage("lin_hailun@126.com", "2450314695@qq.com")
message.Subject = "邮件测试"
message.BodyEncoding = System.Text.Encoding.UTF8

\'message.Bcc.Add("2450314695@qq.com") \'密送

\'message.cc.Add("2450314695@qq.com") \'抄送

Dim content As String

content &= "这是文字" & vbcrlf
content &= "也是文字"

message.Body = content

Try
    client.Send(message)
    msgbox("发送成功")
Catch ex As Exception
    msgbox("发送失败:" & ex.message)
End Try
--  作者：peterx
--  发布时间：2015/1/22 9:15:00
--  
正文中的换行问题，仍未解决。  另外，将邮件的优先级别设为“高”，如何设定？

代码如下：
  Dim body As String = "<html><body>正文内容</body></html>"
    Dim content As String
    content &= dr("姓名") & "  " & dr("称谓") & ", 您好:" & vbcrlf
     content &= "        您负责的" &  dr1("仪器名称_中文") & "(购置申请编号:" & dr1("购置申请编号") & ")" & "进口免税手续可以着手办理,请按照合同规定交货时间之前**天内,完成免表申请工作!" & vbcrlf
    content &="        谢谢您的支持与配合!"& vbcrlf
    content &= "                                             科技处" & vbcrlf
    content &= vbcrlf
    
    content &=  "                                             " & Date.now       \'显示当前日期和时间
    
    message.Body = body.Replace("正文内容", content)
    Try
        client.Send(message)
        msgbox("发送成功")
    Catch ex As Exception
        msgbox("发送失败:" & ex.message)
    End Try
    

效果如下：
先生, 您好: 您负责的PM2.5测量仪(购置申请编号:136-YQ2014-SF-WZL-24)进口免税手续可以着手办理,请按照合同规定交货时间之前**天内,完成免表申请工作! 谢谢您的支持与配合! 科技处 2015/1/22 9:16:48
[此贴子已经被作者于2015-1-22 9:24:07编辑过]