Abrir o Outlook atr...
 
Notifications
Clear all

Abrir o Outlook através de um botão no userform

4 Posts
3 Usuários
0 Reactions
1,475 Visualizações
(@srpcp)
Posts: 7
Active Member
Topic starter
 

Bom dia,

Gostava se me pudessem ajudar com um código para abrir o aplicativo outlook ou então a caixa nova mensagem do outlook através de botão criado no userform, o meu office é 2016 64bits.

 
Postado : 12/08/2018 5:21 am
(@mprudencio)
Posts: 2749
Famed Member
 

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

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 12/08/2018 11:37 am
(@srpcp)
Posts: 7
Active Member
Topic starter
 

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.

 
Postado : 12/08/2018 3:38 pm
fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

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

 
Postado : 12/08/2018 8:34 pm