Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Email aus Excel versenden

Email aus Excel versenden
Markus
Hallo zusammen,
Ich möchte automatisiert ein e-Mail verschicken.
Das klappt auch ohne Probleme.
Nun möchte ich aber voher prüfen, ob Outlook auch gestartet wurde...
Wie kann ich so etwas realisieren?
lg
Markus
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Email aus Excel versenden
06.12.2011 21:21:11
KlausF
Hallo Markus,
aus meiner Sammelbox:
Dim OutlookStart As Boolean
Function GetOutlookApp() As Object
On Error Resume Next
Set GetOutlookApp = GetObject(, "Outlook.Application")
If Err.Number  0 Then
Set GetOutlookApp = CreateObject("Outlook.Application")
OutlookStart = True
End If
On Error GoTo 0
End Function
Sub Outlook_OK()
If OutlookStart = True Then
MsgBox "Outlook ok"
Else
MsgBox "Es muß der Verweis auf die Outlook-Library gesetzt werden"
Exit Sub
End If
End Sub

Gruß
Klaus
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige