Outlook 2007 添加Quick Part

原创于 2012-08-07 16:08:06 发布 · 971 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string

Office Development 同时被 3 个专栏收录

134 篇文章

订阅专栏

Outlook 2010

30 篇文章

订阅专栏

VBA

23 篇文章

订阅专栏

本文介绍了一段VBA宏代码，该代码能够实现在Outlook中通过宏快速调用并插入预设的邮件模板内容，极大地提高了工作效率。

Sub InsertQuickPart(strPartName As String)
    Dim objOL As Outlook.Application
    Dim objDoc As Word.Document
    Dim objWord As Word.Application
    Dim objSel As Word.Selection
    Dim objETemp As Word.Template
    On Error Resume Next
     
    Set objOL = Outlook.Application
    Set objDoc = objOL.ActiveInspector.WordEditor
    Set objWord = objDoc.Application
    Set objSel = objDoc.Windows(1).Selection
    Set objETemp = objWord.Templates(1)
    objETemp.BuildingBlockEntries(strPartName).Insert _
      Where:=objSel.Range, RichText:=True
       
    Set objOL = Nothing
    Set objDoc = Nothing
    Set objWord = Nothing
    Set objSel = Nothing
    Set objETemp = Nothing
End Sub

欢迎访问《许阳的红泥屋》