如何在邮件中加入多行，在末尾加入姓名，地址，电话。

zmlbill · 发表于 2009-6-25 07:28

如何在邮件中加入多行，在末尾加入姓名，地址，电话。
自动加入收件人的email地址。

以下程序只能显示一行。

Sub Seainvoice()
Dim msg As Outlook.MailItem
Set msg = Application.CreateItem(olMailItem)
msg.Subject = "Invoice#"
      msg.Body = " PO has been created"
   msg.BodyFormat = olFormatHTML

msg.Display
Set msg = Nothing
End Sub

谢谢

aaaaabbbbb · 发表于 2009-6-25 22:02

Sub Seainvoice()
Dim msg As Outlook.MailItem
Set msg = Application.CreateItem(olMailItem)
msg.Subject = "Invoice#"
 msg.Body = " PO has been created"
 msg.BodyFormat = olFormatHTML

msg.HTMLBody = "<BODY>  " + _
"" + _
"姓名" + _
" " + FormatDateTime(Now, vbShortDate) + _
"" + _
"----------------------------------------------" + _
" 联系地址: " + _
" 电话/传真:###-####-####  邮编:######" + _
" ----------------------------------------------" + _
" " + "" + _
"</BODY>"




msg.Display
Set msg = Nothing
End Sub

zmlbill · 发表于 2009-6-26 01:01

thanks a lot

rader · 发表于 2009-10-14 18:48

大家好!这组代码加到什么地方啊,可以指点一二吗？

xiaoxiaoyu · 发表于 2010-7-22 10:19

在outlook2010中不起作用了。
outlook不是有自动插入签名的功能吗？

xiaoxiaoyu · 发表于 2010-7-22 20:08

测试可以，我自己搞错了

yhhylgw · 发表于 2010-7-27 15:44

学到了。谢谢。。。

		自动登录	找回密码
密码			免费注册

[求助] 如何在邮件中加入多行，在末尾加入姓名，地址，电话。