Impossibile aprire outlook da access!!

di Anonimizzato17081 il
4 risposte
/
Anonimizzato17081
Utente anonimizzato
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

  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    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
  • /
    Anonimizzato17081
    Utente anonimizzato
    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.
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    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...
  • /
    Anonimizzato17081
    Utente anonimizzato
    Funzionaaaaaaaaaaaaa
    Grazie sempre per tutti Alex
    Alla prossima
Devi accedere o registrarti per scrivere nel forum
4 risposte