以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  MailSender不能设置CC和BCC吗？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99648)
--  作者：newsun2k
--  发布时间：2017/4/23 18:19:00
--  MailSender不能设置CC和BCC吗？
如题
--  作者：有点色
--  发布时间：2017/4/23 20:31:00
--  

 不能，要这样写

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=85460&replyID=592177&skin=1

 
--  作者：newsun2k
--  发布时间：2017/4/24 15:44:00
--  
不会发附件，请指导
--  作者：有点色
--  发布时间：2017/4/24 15:50:00
--  

Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.qq.com"
client.Credentials = New System.Net.NetworkCredential("lin_hailun@qq.com", "helen6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage("lin_hailun@qq.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

Dim attachment As new  System.Net.Mail.Attachment("d:\\test.xls",  System.Net.Mime.MediaTypeNames.Application.Octet)
message.Attachments.Add(attachment)

Try
    client.Send(message)
    msgbox("发送成功")
Catch ex As Exception
    msgbox("发送失败:" & ex.message)

finally

    message.Dispose()
End Try
--  作者：newsun2k
--  发布时间：2017/8/29 15:19:00
--  
content 希望有格式，加粗，字体加颜色。
可以吗
--  作者：有点甜
--  发布时间：2017/8/29 15:20:00
--  
以下是引用newsun2k在2017/8/29 15:19:00的发言：
content 希望有格式，加粗，字体加颜色。
可以吗

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=75210&replyID=518867&skin=1

 
--  作者：newsun2k
--  发布时间：2017/8/31 16:11:00
--  
报错了。
指定字符串和主题所要求的形式不符
这是个什么原因啊。
我检查了主题，里面没用双引号，单引号之类的。
--  作者：有点甜
--  发布时间：2017/8/31 16:18:00
--  

 你主题的内容是什么？有回车符？

 

 
--  作者：newsun2k
--  发布时间：2017/8/31 16:22:00
--  
好像是的，用replace(chr(13),"").replace(chr(10),"")去掉？
--  作者：有点甜
--  发布时间：2017/8/31 16:38:00
--  
以下是引用newsun2k在2017/8/31 16:22:00的发言：
好像是的，用replace(chr(13),"").replace(chr(10),"")去掉？

 

嗯嗯，是的。

 

str.Replace(chr(10), "").replace(chr(13), "   ")