Controllo OutlookApp

Hai un problema con Excel?

Nuova discussione

Controllo OutlookApp
di Lelec data: 16/07/2017 11:48:06
Ciaoo a tutti!
Sapreste indicarmi il comando per poter verificare se Outlook è aperto?
nello specifico vorrei realizzare un controllo che se Outlook è aperto non avviene nulla ma se è chiuso lo apra.
Grazie !
Sub TestOutlookOpened() If '(Da inserire il codice di verifica) Then Application.ActivateMicrosoftApp xlMicrosoftMail Else End If End Sub
di Vecchio Frac data: 16/07/2017 13:50:59
Puoi usare GetObject(, "Outlook.Application") per testare se l'applicazione è disponibile e può creare un'istanza dell'oggetto.

di Lelec data: 16/07/2017 14:34:10
Ho provato utilizzando il codice che allego ma da errore "olApp ="
Cosa mi suggerisci?
Grazie

Dim olApp As Long
Set olApp = GetObject(, "Outlook.Application")
If Not olApp Is Nothing Then
MsgBox "Attendi apertura Outlook"
Application.ActivateMicrosoftApp xlMicrosoftMail
Else
End If

di Lelec data: 16/07/2017 14:54:32
Ho anche provato così...(allego codice) ma nulla mi restituisce errore in objOutlook = GetObject(, "Outlook.Application")

On Error Resume Next
Dim objOutlook As Outlook.Application
Set objOutlook = GetObject(, "Outlook.Application")
If Err.Number <> 429 Then
MsgBox "Attendi apertura Outlook"
Application.ActivateMicrosoftApp xlMicrosoftMai
Else
End If

di Lelec data: 16/07/2017 15:17:14
Risolto Grazie

Dim oOutlook As Object
On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0
If oOutlook Is Nothing Then
MsgBox "Apertura Outlook"
Application.ActivateMicrosoftApp xlMicrosoftMail
Else
End If

di Vecchio Frac data: 16/07/2017 17:19:00
Vedo che hai fatto da solo, bene :)
Ricordati la regola: quello che si imposta con Set è un oggetto, quindi la variabile va dimensionata As Object oppure col tipo oggetto specifico (ad esempio As Range).

Vuoi Approfondire?