Para cada Execução da função DeleteSel, um "WINWORD" fica aberto na memoria, mesmo com o comando Close e/ou Quit o mesmo não fecha.
Sub DeleteSel(msg As Outlook.MailItem)
Dim objDoc As Object
Dim objBkm As Object
Set objDoc = CreateObject("Word.Application")
objDoc.Visible = True
objDoc.Activate
On Error Resume Next
Set objDoc = msg.GetInspector.WordEditor
Set objBkm = objDoc.Bookmarks("_MailAutoSig")
If Not objBkm Is Nothing Then
objBkm.Select
objDoc.Windows(1).Selection.Delete
End If
objDoc.Close
objBkm.Close
Set objBkm = Nothing
Set objDoc = Nothing
End Sub
Alguém teria alguma dica ?