Office: (Office 2013) Access

Hallo

Ich habe folgendes Problem.

Ich starte von Access Outlook:

PHP:

         Option Compare Database
Option Explicit

Public Function Start_Outlook()
Dim objOtlk As Outlook.Application

Set objOtlk = CreateObject("Outlook.Application")
If objOtlk.Explorers.Count = 0 Then
objOtlk.Session.GetDefaultFolder(olFolderCalendar).Display
objOtlk.ActiveExplorer.WindowState = olMaximized
objOtlk.ActiveExplorer.Display
End If
Set objOtlk = Nothing
End Function


:)

 

Hallo Markus

Was ich damit meinte war.

Führe ich die besagte Funktion in Outlook, jedoch außerhalb der Sub "Application_Quit" aus, funktioniert Sie immer.

Führe ich die Funktion jedoch über Application_Quit, also durch Schließen von Outlook, aus, funktioniert es meistens nicht.

LGünter

 

Dann musst du herausfinden, warum er manchmal nicht geht.

On Error Resume Next heißt ignoriere alle Fehler.

Set acApp = GetObject(, "Access.Application") solltest du auch vermeiden.

wenn schon dann:
Set acApp = GetObject("Pfad der Access Datei")
Sonst könnte ja irgendeine Access Datei verwendet werden.

Wenn dabei ein Fehler auftritt, diesen ordentlich verarbeiten. Dann wirst hoffentlich auf den Fehler stoßen.

Dann bleibt nur noch die Frage, ob in der Access Methode ein Fehler vorhanden ist.

LG Markus

 

Nur mal als Idee einen etwas anderen Weg zu gehen:
Warum behandelst du das Application_Quit-Event der Outlook Instanz nicht innerhalb deiner Access Anwendung?
Du verwendest sowieso Early Binding der Outlook.Application, da kannst du das Objekt auch mit dem WithEvents-Zusatz deklarieren und die Ereignisse in Access behandeln.

Hat auf jeden Fall den Vorteil das dein Code komplett in der Access Anwendung liegt.
Ob es das konkrete Problem löst, bleibt natürlich abzuwarten...

 

\@ Markus

On Error Resume next, hatte ich natürlich für das Debugging deaktiviert, nur hier beißt sich die Katze in de Schwanz. Ein Debugging ist nicht möglich, da sobald ich Outlook schließe auch vba unter Outlook geschloßen wird. Sprich ich sehe kurzfristig meinen Haltepunkt gelb untermalt, dann ist das Fenster schon geschossen.

Was mir aufgefallen ist, beim Öffnen von Outlook über Access bekomme ich in der Taskleiste eine Meldung mit dem Outlook Symbol "Outlook wird von einem anderen Programm verwendet. ..." Kann es damit zu tun haben ?

@sonic: Das wäre eine Möglichkeit, nur wie ? und dann ?

Klassenmodul clsOutlook erstellt:

PHP:

         Option Compare Database
Option Explicit

Public WithEvents App As Outlook.Application

Private Sub App_Quit()
Termine
End Sub


 

Hallo

Funktioniert leider nicht, das Event Quit wird leider nicht ausgeführt

clsOutlook

PHP:

         Option Compare Database
Option Explicit

Public WithEvents OApp As Outlook.Application

Public Function Start_Outlook()
Set OApp = CreateObject("Outlook.Application")
If OApp.Explorers.Count = 0 Then
OApp.Session.GetDefaultFolder(olFolderCalendar).Display
OApp.ActiveExplorer.WindowState = olNormalWindow
OApp.ActiveExplorer.WindowState = olMaximized
OApp.ActiveExplorer.Display
End If
End Function

Public Sub OApp_Quit()
MsgBox ("Zu ist es")
Termine
End Sub


 

Ich habe in den Tiefen des WWW einen Ansatz gefunden und etwas modifiziert und nun funktioniert es.

Die Aufgabenstellung war Outlook von Access-VBA öffnen und den Code so lange pausieren, bis Outlook wieder geschlossen wird, wobei der Code für jedes andere Programm ebenso funktioniert.

PHP:

         Option Compare Database
Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)

Sub check_is_running()
Dim Proc As Object
Dim proc_name As String
Dim bl  As Boolean
proc_name = "Outlook.exe"
bl = True
While bl = True
Sleep 500
Set Proc = GetObject("winmgmts:").ExecQuery( _
"Select Name from Win32_Process Where Name = '" _
& proc_name & "'")
If Proc.Count = 0 Then
bl = False
End If
Wend
End Sub


 

nur so mal ne Konzeptfrage.
Wie ist das Zusammenspiel zwischen den Terminen und Access.
Vielleicht gibt es ja ganz einen anderen Ansatz.

Es wäre doch auch möglich, den neuen oder geänderten Termin direkt an Access zu übergeben, oder die Termine gleich in Access zu erstellen.
Da gibt es viele Optionen.

Außerdem warum wird Outlook geschlossen. Ich für meine Teil habe Outlook ständig geöffnet?

LG Markus

 

Das ist eine durchaus berechtigte Rückfrage. - In meinem letzten Posting hatte ich ja den Link auf meinen Collection-Event-Handling-Artikel als nur am Rande relevante, weiterführende Info angeführt. - Aber zufällig ist das konkrete Beispiel, anhand dessen ich dort die Konzepte beschreibe, eigentlich genau dieser Fall. - Nur dass es dort nicht um Termine, sondern um Kontakte geht.

Outlook bringt Out-of-the-Box eine Menge Funktionalität mit, die bei der Terminerstellung hilfreich ist (Kalender, Verfügbarkeitsinformationen, Kontakte, Erinnerungen, etc.) und die man meist nicht vergleichbar in Access nachprogrammieren kann oder will.

Me too. - Es dient sicherlich nur dazu, einen definiertes Ereignis für die Terminübernahme von Outlook nach Access zu haben.

 

\@sonic8

Also die Links von dir habe ich nicht angesehen.
Grundsätzlich habe ich die Idee mit dem App.Quit über Access genial gefunden.
Die Fragen an den Günter habe ich gestellt um herauszufinden, warum das bisherige Konzept so umgesetzt wurde.

Die Frage ist ja was die Methode Termine in Access macht.

Ich möchte das Thema auch bald angehen, und habe geplant die Termin direkt in Access anzulegen, da ich eine Erinnerung über mein Handy wünsche, sollte ich nicht am PC sitzen.
Hast Du schon einmal mit dem Outlook View Control gearbeitet?
LG Markus

 

Der andere Artikel behandelt im Kern das gleiche Konzept des Event-Handlings von Outlook-Objekten. - Ist aber allgemeingültig, d.h. nicht Outlook-spezifisch.

Nein, ich habe gerade mal die Beschreibung überflogen. Eigentlich hört sich das gut an, aber...
Do not use the View Control in any scenario outside the Outlook process...
(Zitiert aus der View-Control-Doku im Office Dev Center)
Das macht es wesentlich weniger nützlich, als es auf den ersten Blick zu sein schien.

 

Schau mal hier nach.

Sobald ich Zeit hab, werd ich das testen.
LG Markus