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


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

主题:[求助]发送邮件

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


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
[求助]发送邮件  发帖心情 Post By:2021/8/18 15:38:00 [显示全部帖子]

老师,你好!
我的发送邮箱已设置为:已读回执
1、通过邮箱发出的邮件,是带有回执要求的,正常
2、通过代码发送的邮件,没有回执要求,收到的邮件多一个红色的"!"标记,不正常
请老师帮助解决一下,谢谢
For Each dr As DataRow In dt.DataRows
    Dim m As New MailSender
    m.Host = "smtp.163.com"            '指定主机地址,可以是域名,也可以是IP地址
    m.Account = "XXXXXX@163.com"   '指定登录邮件服务器的帐号
    m.Password = "********"          '指定登录邮件服务器的密码
    m.From = "XXXXXXXX@163.com"      '指定发件人的邮件地址
    m.To = dr("邮箱")                  '指定收件人的邮件地址
    m.Title = YJbt           '邮件标题
    m.Content =  YJzw   '邮件的正文内容
    m.AddAttachments(YJfj) '添加附件
    m.EnableSsl=True  '逻辑型,是否使用安全套接字层 (SSL) 加密连接
    m.SendAsync() '以异步方式发送邮件,发送邮件的同时,可以进行其他操作
Next

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


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
  发帖心情 Post By:2021/8/19 0:08:00 [显示全部帖子]

谢谢。

 回到顶部