在CreateItemTemplate之后删除签名

时间:2016-04-07 05:34:54

标签: outlook outlook-vba

我使用下面为新模板找到的代码,但我想删除签名。

我要么需要代码来删除下面的代码后面的签名,要么是一个打开新电子邮件的全新代码,清除正文然后插入模板。

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

1 个答案:

答案 0 :(得分: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