2016-04-07 33 views
1

我正在使用下面的代碼,我發現一個新的模板,但我想刪除簽名。刪除CreateItemTemplate後簽名

我需要在下面的代碼之後刪除簽名的代碼,或者打開一封新郵件的全新代碼,清除主體然後插入模板。

Sub NewTemplate() 
Set objMsg = Application.CreateItemFromTemplate("S:\filepath.oft") 
Set newItem = Nothing 
With objMsg 
    .SentOnBehalfOfName = "[email protected]" 
    .Display 
End With 
End Sub 

回答

0
Set objDoc = objMsg.GetInspector.WordEditor 
If objDoc.Bookmarks.Exists("_MailAutoSig") Then 
    set objBkm = objDoc.Bookmarks("_MailAutoSig") 
    objBkm.Select 
    objDoc.Windows(1).Selection.Delete 
End If