Visual Basic Verificar cadastro de email antes de enviar (excel - vba)

[Jefferson TS]

Olá. Minha planilha tem a SUB colada abaixo que serve para salvar em pdf e enviar email.

Gostaria de, antes de executar o código, fazer a verificação se o cliente possui email cadastrado, se SIM, exibir mensagem perguntando deseja enviar para o email xxxxxxxxxxxxxx (email cadastrado); e se NÃO exibir mensagem que o cliente não possui email cadastrado | deseja cadastrar email para o cliente (abre formulário de cadastro com os dados do cliente inclusive id) | inserir email manualmente (abre form com texbox para inserir email avulso)

CONTROLE NOVO f.rar

 

Sub enviar_EMAIL()

' SalvarPDF Macro
     Sheets("ficha_treino").Select
     ID = Worksheets("ficha_treino").Range("a9")
     NOME = Worksheets("ficha_treino").Range("d7")
     pdf = ThisWorkbook.Path & "\" & NOME & " - Ficha " & ID & ".pdf"
     
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
     Filename:=pdf
    
'atualizar numeração
Sheets("FICHA_TREINO").Select
    Range("A9").Select
    Selection.Copy
    Sheets("STAFF").Select
    Range("A60000").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("FICHA_TREINO").Select
    Application.CutCopyMode = False
    
' limpartudo Macro
    Range("D7:E7").Select
    Selection.ClearContents
    Range("D8:E8").Select
    Selection.ClearContents
    Range("B10:E10").Select
    Selection.ClearContents
    Range("B11:E11").Select
    Selection.ClearContents
    
    Rows("14:103").Select
    Selection.Delete Shift:=xlUp
    
    Range("D7:E7").Select
    
Dim outl As Object, novo_email As Object
Set outl = CreateObject("outlook.application")
Set novo_email = outl.CreateItem(0)

With novo_email
.Display
'.To = UserFormEmail.TextBoxEndEmail.Value 'FAZER O FORMULÁRIO COM A TEXTBOX
'.CC = "[email protected]"
.Attachments.Add pdf
.Subject = "Ficha de treino PHYSICAL"
.Body = "Olá aluno(a), segue em abaixo sua ficha de treino. Bons treinos!"
.Send
End With

MsgBox "O email foi enviado com sucesso", vbInformation, "E-mail"

ActiveWorkbook.Save

End Sub