Foxtable(狐表) → 用户栏目 → 专家坐堂 → 通过代码发送邮件，可否设置“暗送”功能


  共有3906人关注过本帖树形打印复制链接

主题：通过代码发送邮件，可否设置“暗送”功能
帅哥哟，离线，有人找我吗？
peterx
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：195 积分：1523 威望：0 精华：0 注册：2014/7/9 16:27:00 		通过代码发送邮件，可否设置“暗送”功能  发帖心情 Post By：2015/1/21 17:55:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/21 18:15:00 [只看该作者]

 抄送？

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：195 积分：1523 威望：0 精华：0 注册：2014/7/9 16:27:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/21 21:08:00 [只看该作者]

 看3楼。
 回到顶部
帅哥哟，离线，有人找我吗？
peterx
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：195 积分：1523 威望：0 精华：0 注册：2014/7/9 16:27:00 		  发帖心情 Post By：2015/1/21 22:01:00 [只看该作者]

谢谢



[此贴子已经被作者于2015-1-21 23:05:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/21 22:14:00 [只看该作者]

 测试了一下，无论是抄送还是密送，都没问题。

 回到顶部
帅哥哟，离线，有人找我吗？
peterx
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：195 积分：1523 威望：0 精华：0 注册：2014/7/9 16:27:00 		  发帖心情 Post By：2015/1/21 23:06:00 [只看该作者]

有点甜 老师您好：
辛苦了。 我调试成功了。
再请教，在正文中，增加换行 用如下代码不起作用，是什么原因？谢谢

content &= vbcrlf 


还有：如何设置邮件 优先级别为高？
[此贴子已经被作者于2015-1-21 23:07:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：195 积分：1523 威望：0 精华：0 注册：2014/7/9 16:27:00 		  发帖心情 Post By：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编辑过]
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询