小白求助：vba调用outlook能否源用预先设置好的信纸格式？

leijingda · 发表于 2012-8-23 16:50

本帖最后由 leijingda 于 2012-8-23 16:53 编辑

小白求助：vba调用outlook能否源用预先设置好的信纸格式和签名呢？

leijingda · 发表于 2012-8-23 17:37

help，希望高手不吝赐教

leijingda · 发表于 2012-8-24 10:07

help，希望高手不吝赐教

dsd999 · 发表于 2012-8-24 10:53

信纸格式和签名在outlook里就能设置，为什么还要用vba？

多个签名？

leijingda · 发表于 2012-8-24 11:33

回版主，已经在outlook里设置好的信纸和签名，可是用vba调用outlook后信纸和签名全没有了，由于要发邮件很多，用手工一个个发是不行的，只能用vba来批量的发

dsd999 · 发表于 2012-8-24 11:59

把相关的代码贴出来看看。

leijingda · 发表于 2012-8-24 14:06

本帖最后由 leijingda 于 2012-8-24 14:06 编辑

Dim OutlookApp As Outlook.Application
Dim newMail As Outlook.MailItem
Dim n As Integer, i As Integer
Dim a As String
'Dim ws As Worksheet
Dim xlapp As Excel.Application
Dim xlBook As Workbook
Dim xlSheet1 As Worksheet
Set xlBook1 = ActiveWorkbook
Set xlSheet1 = ActiveWorkbook.Sheets(1)

Set OutlookApp = CreateObject("Outlook.Application")

For i = 1 To 3

Set newMail = OutlookApp.CreateItem(0)
With newMail
 .To = xlSheet1.Cells(1, 1)
 .CC = xlSheet1.Cells(1, 2)
 .Subject = xlSheet1.Cells(1, 3)
 .Body = xlSheet1.Cells(1, 4).Text
 .BodyFormat = olFormatHTML
 .HTMLBody = "<BODY> 您好 Quote() " + _
"" + _
"你的姓名" + _
" " + FormatDateTime(Now, vbShortDate) + _
"" + _
"----------------------------------------------" + _
" 你的工作单位/联系地址" + _
" 电话/传真:###-####-#### 邮编:######" + _
" ----------------------------------------------" + _
" " + Quote() + _
"</BODY>"
olMail.BodyFormat = olFormatPlain
olMail.Display
End With
以上代码是在本论坛搜的，试了一下可用，预先设的信纸和签名都没有了，只能通过代码来加了，可是html的代码我不太熟悉，要慢慢的试，麻烦版主操心了。无比感激。

dsd999 · 发表于 2012-8-24 16:51

你是用了代码后签名和信纸没了？

用代码后签名和信纸也得用代码增加，预先设置好的就没用了。

论坛里也有代码，你先搜搜，找不到的话我帮你。

leijingda · 发表于 2012-8-24 17:07

非常感谢版主，签名部分用代码慢慢试出来了，信纸的我再搜搜看，不行再麻烦您了，再次感谢。

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

[求助] 小白求助：vba调用outlook能否源用预先设置好的信纸格式？