Foxtable(狐表)用户栏目专家坐堂 → [求助]QQ发送邮件


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

主题:[求助]QQ发送邮件

帅哥哟,离线,有人找我吗?
薛翁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:80 积分:836 威望:0 精华:0 注册:2015/8/29 18:22:00
[求助]QQ发送邮件  发帖心情 Post By:2020/2/7 23:24:00 [显示全部帖子]

老师您好!
我电脑上安装了QQ,对方也是QQ,我向对方传文件
请老师注释一下这段代码
'通过邮件发送
Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "feng@32cn.net"
m.To = "zong@21cn.ent"
m.Title = "订单上报"
m.C
m.AddAttachments("c:\temp\gd.mdb") '将上报文件作为附件发送
m.SendAsync()
[此贴子已经被作者于2020/2/7 23:32:33编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
薛翁
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:80 积分:836 威望:0 精华:0 注册:2015/8/29 18:22:00
  发帖心情 Post By:2020/2/7 23:29:00 [显示全部帖子]

m.Content = "订单上报“



[此贴子已经被作者于2020/2/7 23:31:44编辑过]

 回到顶部