De uma pesquisada no proprio forum tem varios codigos para envio de email

Boa noite, já pesquisei não encontrei nada porque eu não quero enviar através do exel mas simplesmente um codigo para atribuir a um botão no userform para abrir a aplicação outlook ou melhor abrir logo a caixa de nova mensagem vazia.

Boa-noite

Sub Email()

Dim olApp As Object
Dim Msg As Object

Set olApp = CreateObject("Outlook.Application")
Set Msg = olApp.CreateItem(0)

Msg.Display

Set Msg = Nothing
Set olApp = Nothing

End Sub

Att,

Francisco