Question

我想在电子邮件中添加一些html。我尝试了以下内容。

vFromName = "someone"
vFromAddress = "someemail"
vTo = "recipient"
vSubject="someSubject"
vBodyofemail = "<html><table><tr><td><b>SomeText</b></td></tr></table></html>"

Call SendMail()

sub SendMail()
  'change to address of your own SMTP server
  strHost = "mail.internal.rouses.com"
  Set Mail = Server.CreateObject("Persits.MailSender")
  'enter valid SMTP host
  Mail.Host = strHost
  'From eMail address
  Mail.FromName = vFromName
  'From address
  Mail.From = vFromAddress 
  'To eMail address
  Mail.AddAddress vTo
  'message subject
  Mail.Subject = vSubject
  'message body
  Mail.Body = vBodyOfEmail
 Mail.Send
end sub

我该怎么做？我试过Mail.HtmlBody，但这也不起作用。电子邮件已发送，但我看到的只是html所在的标签。

Answer 1

根据this page，您需要将 IsHTML 标记设置为true。

strHTML = "Hello world"

Mail.IsHTML = True
Mail.Body = "<HTML><BODY><CENTER>" & strHTML & "</CENTER></BODY></HTML>"

Answer 2

尝试在发送电话上方添加此行。

Mail.IsHTML = true

如果没有它，Mail对象默认为标准文本，而在Body属性中输入的内容将在电子邮件中呈现为文本。

Answer 3

不是您问题的答案，但是不应该所有邮件都包含纯文本吗？如果没有纯文本，您肯定会获得更高的垃圾邮件分数。

（如果您的HTML / CSS效果不理想，像我这样的人更喜欢切换到纯文本。请参阅Guide to CSS support in email clients (2008)和the Email Standards Project上的列表。）

发送HTML电子邮件asp

3 个答案: