Question

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

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

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

Answer 1

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

在CreateItemTemplate之后删除签名

1 个答案: