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 = NothingEnd Sub