Envio de correo Microsoft 365

Private Sub CreaCorreo()
 On Error GoTo Err_CreaCorreo
 
        Dim CuerpoDelMail As String
        Dim OutApp As Object
        Dim OutMail As Object
        Dim strbody As String
       
                    Set OutApp = CreateObject("Outlook.Application")
                    Set OutMail = OutApp.CreateItem(0)

                    With OutMail
                        .To = ""
                        .CC = ""
                        .BCC = ""
                        .Subject = ""
                        .Display
                    End With
                            
                    Set OutMail = Nothing
                    Set OutApp = Nothing
                    
Exit_CreaCorreo:
    Exit Sub

Err_CreaCorreo:
    MsgBox Err.Description
    Resume Exit_CreaCorreo

End Sub