[求助]能不能用vba调用outlook发邮件的时候使用模板？

yituoba

用vba调用outlook很简单，但是写出来的邮件都非常难看

能不能用vba控制outlook使用模板呢？

hhzjxss

我也想知道！

aaaaabbbbb

试试下面的代码//
Sub test()
Dim ol As New Outlook.Application
Dim ns As Outlook.NameSpace
Dim newMail As Outlook.MailItem

Set ns = ol.GetNamespace("MAPI")

Set newMail = ol.CreateItem(olMailItem)                                           
Set newMail = ol.CreateItemFromTemplate("C:\Documents and Settings\rainy\Application Data\Microsoft\Templates\mailtemplatetest.oft")   '在这个文件夹下要有名叫"mailtemplateteset.oft"的模板，否则会出错                

With newMail
  .Subject = "My Subject"                                                                  
  .To = aaa@bbb.com;                                                            
  .CC = eee@fff.com       '抄送给                                                    
  .Display  '显示这封邮件，不想显示就把这个注释掉

'  .Send '如果要发送的话把这个注释去掉
End With

set newmail=nothing

set ns=nothing
End Sub

[此贴子已经被作者于2007-6-18 5:53:28编辑过]

hhzjxss

呵呵，真是高手，不过我没看懂！

07241

.Display  '显示这封邮件，不想显示就把这个注释掉

这句话是什么意思？

篮板球

3楼的ID也很牛啊。支持一下。

俯视姚明

学习了！！

mscorpion

07241 发表于 2011-10-3 16:38
.Display  '显示这封邮件，不想显示就把这个注释掉

这句话是什么意思？

显示这封邮件：Excel默认后台运行，若要看到这封邮件，就加上这句代码
把这个注释掉：在“.Display”前面加上分号，使他变成注释，这样Excel就不会执行这段代码，也就不会显示这封邮件