Foxtable(狐表)用户栏目专家坐堂 → 邮箱发送乱码


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

主题:邮箱发送乱码

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


加好友 发短信
等级:三尾狐 帖子:760 积分:5430 威望:0 精华:0 注册:2012/10/5 21:53:00
邮箱发送乱码  发帖心情 Post By:2019/8/8 16:44:00 [显示全部帖子]

升级.net 4.0后原来的邮件发送出现乱码,怎么需要指定邮件编码才能正常显示了,多了一行代码了

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


加好友 发短信
等级:三尾狐 帖子:760 积分:5430 威望:0 精华:0 注册:2012/10/5 21:53:00
  发帖心情 Post By:2019/8/12 9:26:00 [显示全部帖子]

目前有这个现象
m.Encoding = Encoding.Default用这个设置出现乱码。
m.Encoding = Encoding.UTF8用这个设置部分收件人出现附件标题乱码打不开。

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


加好友 发短信
等级:三尾狐 帖子:760 积分:5430 威望:0 精华:0 注册:2012/10/5 21:53:00
  发帖心情 Post By:2019/8/12 10:15:00 [显示全部帖子]

公司邮箱
代码就是

Dim m As New MailSender
m
.Host = "smtp.21cn.net"
m
.Account = "xiaoliu"
m
.Password = "xiaoliu1234567"
m
.From = "xiaoliu@Sina.com.cn"
m.
To = "meili@Sina.com.cn"
m.Title =
"初稿已经完成"
m.Content =
"附件为初稿, 请您审阅!"
m.AddAttachments(
"c:\data\table.txt")
m.SendAsync()

帮助里面的代码一样的,只是换成公司邮箱账号和密码,现在不加个m.Encoding = Encoding.UTF8出现乱码,原来没升级.net4.0,没加这个编码代码,一直用的好好的,升级完了就来问题了。

[此贴子已经被作者于2019/8/12 10:23:41编辑过]

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


加好友 发短信
等级:三尾狐 帖子:760 积分:5430 威望:0 精华:0 注册:2012/10/5 21:53:00
  发帖心情 Post By:2019/8/12 10:49:00 [显示全部帖子]

普通邮箱没意义啊,这个公司邮件发送,要用公司邮箱发
目前只能用4楼的办法吧。

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


加好友 发短信
等级:三尾狐 帖子:760 积分:5430 威望:0 精华:0 注册:2012/10/5 21:53:00
  发帖心情 Post By:2019/8/12 15:59:00 [显示全部帖子]

请问利用4楼的方法怎么在正文中发送图片显示呢?邮件签名这块有logo图标。

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


加好友 发短信
等级:三尾狐 帖子:760 积分:5430 威望:0 精华:0 注册:2012/10/5 21:53:00
  发帖心情 Post By:2019/8/12 16:53:00 [显示全部帖子]

Dim attach1 As new System.Net.Mail.Attachment( ProjectPath & "images\1.jpg", System.Net.Mime.MediaTypeNames.Image.Jpeg)
message.Attachments.Add(attach1)
Dim pic1 As String = attach1.ContentId 
Dim body As String = "<html><body>内容</body></html>"
Dim content As String = "12345678<font size=7 color=red>12345678</font><img src=""cid:"& pic1 &"""/><p>来自张三.</p>"
message.Body = body.Replace("内容", content)

测试没问题

 回到顶部