通过代码发送邮件，可否设置“暗送”功能 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教：通过代码发送邮件，可否设置“暗送”功能

不是抄送。是暗送。我的代码如下：

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 23:05:41编辑过]

有点甜老师您好：

辛苦了。我调试成功了。

再请教，在正文中，增加换行用如下代码不起作用，是什么原因？谢谢

content &= vbcrlf

还有：如何设置邮件优先级别为高？

[此贴子已经被作者于2015-1-21 23:07: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编辑过]

换行问题，看明白了。但设置高优先级别的问题，还没解决！请再指点。谢谢

谢谢。搞定了！

主题：通过代码发送邮件，可否设置“暗送”功能