Notifications
Clear all

Abrir outlook se ele estiver fechado

5 Posts
2 Usuários
0 Reactions
1,305 Visualizações
(@joilsondo)
Posts: 47
Eminent Member
Topic starter
 

Boa tarde Galera,

Tenho uma aplicação em VBA que envia e-mails.
Porém se o usuário tiver com o outlook fechado esta aplicação acusa um erro.

Tem algum código para colocar antes e que chamasse o outlook "para abrir" caso ele estivesse fechado?

Se ele já estiver aberto(minimizado no systray), blz, o código de envio será processado normalmente, agora se ele estiver fechado, inserir aqui o código que chamaria o outlook automaticamente,.

Obrigado.

 
Postado : 10/02/2014 9:45 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

JoilsonDO

Boa tarde!

Tente isso:

    Dim Olook As Outlook.Application
    Set Olook = CreateObject("Outlook.Application")

    Dim ns As Outlook.Namespace
    Dim Folder As Outlook.MAPIFolder

    Set ns = Olook.GetNamespace("MAPI")
    Set Folder = ns.GetDefaultFolder(olFolderInbox)

    Olook.Explorers.Add Folder

E para fechá-lo:

   Olook.Quit
    Set Olook = Nothing

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/02/2014 10:20 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se ajuda :

Enviar E-mail por VBA

http://www.ambienteoffice.com.br/office ... l_por_vba/

Enviando Email VBA Outlook
http://excelforever.wordpress.com/2009/ ... a-outlook/

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/02/2014 10:30 am
(@joilsondo)
Posts: 47
Eminent Member
Topic starter
 

Bom dia!

Resolvido. Obrigado a todos.

Abraços.

 
Postado : 11/02/2014 5:32 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/02/2014 5:45 am