Impossibile aprire outlook da access!!

di
vincoll
il
4 risposte
V
vincoll
Utente Attivo
Iscritto da
mag, 2015
Messaggi:
141

Impossibile aprire outlook da access!!

Salve a tutti. Ho un problema con outlook.
Ho inserito il seguente codice sull'evento "Timer" perchè ho la necessità di verificare se outlook è aperto poichè deve sincronizzare alcune email con una maschera, ma succede una cosa strana
In basso a destra, al verificarsi dell'evento, compare l'icona di outolook per pochi secondi (come se lo volesse aprire), ma poi scompare senza aprire completamente il programma di posta. Se invece apro outolook da programmi, tutto funziona regolarmente ed il programma rimane aperto . Cosa sbaglio?

Private Sub Form_Timer()
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem

On Error Resume Next
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
End If
End sub

4 Risposte

  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8704

    Re: Impossibile aprire outlook da access!!

    Il messaggio ERRORE che viene restituito è 429 in caso di Mancato Oggetto di Automazione...
    
Dim mMSO As Object
On Error Resume Next
Set mMSO = GetObject(, "Outlook.Application")
If Err.Number = 429 Then
  Err.Clear
  Set mMSO = CreateObject("Outlook.Application")
End If
If Not mMSO Is Nothing Then
   word.Visible = True
Else
   MsgBox "Unable to retrieve Outlook."
End If
  • V
    vincoll
    Utente Attivo
    Iscritto da
    mag, 2015
    Messaggi:
    141

    Re: Impossibile aprire outlook da access!!

    Ciao Alex, grazie sempre. Ho provato a copiare incollare il codice sull'evento timer oppure sull'evento click ma non funziona . Tenta di aprire ma poi si chiude. Non ha il tempo di scaricare la posta. Si dovrebbe aprire ed iconizzare.
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8704

    Re: Impossibile aprire outlook da access!!

    Se non devi usare Automazione sul componente Outlook... prova questo codice:
    
   On Error Resume Next
   Dim mMSO As Object
   Set mMSO = GetObject(, "Outlook.Application") ' Determine if Outlook is open
   If Err <> 0 Then 'If Not open it
      Call Shell(SysCmd(acSysCmdAccessDir) & "OUTLOOK.EXE")
   End If
    Questa suggerita funziona...
  • V
    vincoll
    Utente Attivo
    Iscritto da
    mag, 2015
    Messaggi:
    141

    Re: Impossibile aprire outlook da access!!

    Funzionaaaaaaaaaaaaa
    Grazie sempre per tutti Alex
    Alla prossima
Devi accedere o registrarti per scrivere nel forum
4 risposte