Outlook 2007 添加Quick Part

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

---

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