我用VB JMAIL想发送带图片和链接加正文的邮件如何搞,正文现在已经可以正常发送了.就是想在正文里面插入个图片,然后点图片后去一个链接.
Dim Jmail
Dim ErrorTimes As Integer
ErrorTimes = 0
Set Jmail = CreateObject("jmail.Message")
If sFileName <> "" Then Jmail.addattachment sFileName '附件
Jmail.Charset = "gb2312"
Jmail.Silent = False
Jmail.Priority = 1 '3 '邮件状态,1-5 1为最高
Jmail.MailServerUserName = User '发件人Email帐号,不改
Jmail.MailServerPassWord = Password '发件人Email密码,不改
Jmail.FromName = sUserName '发信人姓名,自己改
Jmail.From = sAddress '发邮件地址,自己改
Jmail.Subject = sSubject '主题
Jmail.AddRecipient MailTo '收信人地址
Jmail.Body = sBody '信件正文
Jmail.Send ("smtp.tom.com") 'SMTP服务器,如smtp.sohu.com
DoEvents
Set Jmail = Nothing
现在我的代码是这样的,如何才能搞搞能发图片链接
Dim Jmail
Dim ErrorTimes As Integer
ErrorTimes = 0
Set Jmail = CreateObject("jmail.Message")
If sFileName <> "" Then Jmail.addattachment sFileName '附件
Jmail.Charset = "gb2312"
Jmail.Silent = False
Jmail.Priority = 1 '3 '邮件状态,1-5 1为最高
Jmail.MailServerUserName = User '发件人Email帐号,不改
Jmail.MailServerPassWord = Password '发件人Email密码,不改
Jmail.FromName = sUserName '发信人姓名,自己改
Jmail.From = sAddress '发邮件地址,自己改
Jmail.Subject = sSubject '主题
Jmail.AddRecipient MailTo '收信人地址
Jmail.Body = sBody '信件正文
Jmail.Send ("smtp.tom.com") 'SMTP服务器,如smtp.sohu.com
DoEvents
Set Jmail = Nothing
现在我的代码是这样的,如何才能搞搞能发图片链接
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货