问VBA检测编辑模式下的电子邮件是否包含签名？

EN

Option Explicit

Private Sub signatureText()

Dim newEmail As mailItem
Dim olInsp As Inspector

Dim wdDoc As Object
Dim oRng As Object
Dim oBookmark As Object

Dim sigText As String

Set newEmail = CreateItem(olMailItem)
    
With newEmail

    Set olInsp = .GetInspector
    Set wdDoc = olInsp.WordEditor
    Set oRng = wdDoc.Range
    
    ' Default signature
    ' or set a breakpoint to manually add a signature
    .Display
    
    If wdDoc.Bookmarks.Exists("_MailAutoSig") Then
        Set oBookmark = wdDoc.Bookmarks("_MailAutoSig")
        
        sigText = oBookmark.Range.Text
        
        Debug.Print oBookmark.Range.Text
        MsgBox "Please do not add your own signature."
        
    Else
        Debug.Print "No signature bookmark."
    End If
    
End With
    
End Sub