Devi inserire il controllo d'errore all'inizio della sub

codice:
    On Error Goto errh
poi il tuo codice fino a

codice:
    MAPIMessages1.Send True  ' Nota il True
    
xit:
    MAPISession1.SignOff
    Exit Sub
    
errh:
  If Err.Number = 32001 Then MsgBox "L'utente NON ha inviato il messaggio"
  Resume xit