Prüfen ob Outlook gestartet ist

[Frank Kötting]

Hallo Access-Freunde,

ich möchte gerne prüfen ob Outlook geöffnet ist um eine Mail über Access zu
versenden. Falls nicht soll Outlook starten.
Wie kann ich dies realisieren.

Vielen Dank für Eure Hilfe.

Frank Kötting

[Anton Hengg]

Hallo Frank.

Post by Frank Kötting
Hallo Access-Freunde,
ich möchte gerne prüfen ob Outlook geöffnet ist um eine Mail über Access
zu versenden. Falls nicht soll Outlook starten.
Wie kann ich dies realisieren.

schau mal in der Knowhow.mdb
Da ist eine Beispiel drin mit dem man feststellen kann welche Prozesse
laufen.

Ob jedoch der Emailversand über Outlook ratsam ist möchte ich bezweifeln.

Gruss
Anton

[Gunter Avenius]

Hallo Frank,

Post by Frank Kötting
ich möchte gerne prüfen ob Outlook geöffnet ist um eine Mail über
Access zu versenden. Falls nicht soll Outlook starten.
Wie kann ich dies realisieren.

http://groups.google.de/group/microsoft.public.de.access/msg/82146eb78ab89a7f

[Henry Habermacher [MVP Access]]

Hallo Frank

Post by Frank Kötting
ich möchte gerne prüfen ob Outlook geöffnet ist um eine Mail über
Access zu versenden. Falls nicht soll Outlook starten.

(ungetestet)

Dim objOL As Object
On error resume next
set objOL = GetObject(,"Outlook.Application")
if err then
err.clear
MsgBox "OL war noch nicht gestartet."
set objOL = CreateObject("Outlook.Application")
else
msgbox "OL war bereits gestartet."
end if

objOL.Visible = true
set objOL = Nothing

HTH
Henry

[Frank Kötting]

Post by Anton Hengg
Hallo Frank

Post by Frank Kötting
ich möchte gerne prüfen ob Outlook geöffnet ist um eine Mail über
Access zu versenden. Falls nicht soll Outlook starten.

(ungetestet)
Dim objOL As Object
On error resume next
set objOL = GetObject(,"Outlook.Application")
if err then
err.clear
MsgBox "OL war noch nicht gestartet."
set objOL = CreateObject("Outlook.Application")
else
msgbox "OL war bereits gestartet."
end if
objOL.Visible = true
set objOL = Nothing
HTH
Henry
--
Wichtig: Anmeldetermin für die AEK (siehe FAQ) nicht verpassen!
Keine E-Mails auf Postings in NGs senden!
KB: http://support.microsoft.com/default.aspx
FAQ: http://www.donkarl.com (neu mit Suchfunktion!)
OH: Online Hilfe von Microsoft Access (Taste F1)
Downloads: http://www.dbdev.org

Hallo Henry,

vielen Dank für Deine Hilfe.

Leider kann mein Access nicht viel mit

Dim objOL As Object
objOL.Visible = true

anfangen. Er kann Object nicht umsetzen. Somit startet Outlook nicht
selbständig.

Frank Kötting

[Thomas Möller]

Hallo Frank,

Post by Frank Kötting
Leider kann mein Access nicht viel mit
Dim objOL As Object
objOL.Visible = true
anfangen. Er kann Object nicht umsetzen. Somit startet Outlook nicht
selbständig.

das würde bedeuten, dass Access mit einer Variable vom Typ "Object"
nichts anfangen kann. Es fällt mir schwer, das zu glauben.

Wechsle mal bitte in den VBA-Editor. Dann schreibst Du "dim objOL as
object". Bitte achte dabei auf die Kleinschreibung.
Wenn Du jetzt die Zeile mit "Return" abschliesst schreibt Access alle
Schlüsselworte groß. Ist "Object" jetzt groß oder klein geschrieben?

CU

[Olaf Rabbachin]

Hi,

Post by Frank Kötting

Post by Henry Habermacher [MVP Access]
Dim objOL As Object
On error resume next
set objOL = GetObject(,"Outlook.Application")
if err then
err.clear
MsgBox "OL war noch nicht gestartet."
set objOL = CreateObject("Outlook.Application")
else
msgbox "OL war bereits gestartet."
end if
objOL.Visible = true
set objOL = Nothing

Leider kann mein Access nicht viel mit
Dim objOL As Object
objOL.Visible = true
anfangen. Er kann Object nicht umsetzen. Somit startet Outlook nicht
selbständig.

dann hast du die zweite Zeile selbst eingefügt bzw. den Rest gelöscht.
Natürlich kann das "Object" erst angezeigt werden, wenn es initialisiert
bzw. "befüllt" wurd. Nach GetObject *oder* CreateObject wird das mit obigem
Code gehen, sofern Outlook auch installiert ist.

Bis dann,
Olaf

[Henry Habermacher [MVP Access]]

Hallo Frank

Post by Frank Kötting
Leider kann mein Access nicht viel mit
Dim objOL As Object
objOL.Visible = true
anfangen. Er kann Object nicht umsetzen. Somit startet Outlook nicht
selbständig.

Bitte quote vernünftig, Danke.

Wo hast Du den Code eingefügt? Wie sieht jetzt Deine Funktion aus? Bei mir
stand da ja noch ein bisschen mehr als obige zwei Zeilen.

Gruss
Henry