Herbers Excel-Forum - das Archiv

prüfen vor Mail senden ob Outlook geöffnet

Bild

Betrifft: prüfen vor Mail senden ob Outlook geöffnet
von: Tom

Geschrieben am: 16.02.2005 11:02:46
Hallo Leute
ich habe hier im Forum ein Code gefunden mit dem ich nach ein paar Änderungen
schon viel anfangen kann. Bei einer brauche ich mal eure Hilfe.
Wie kann ich prüfen vor dem senden ob Outlook geöffnet ist?
Wenn nicht geöffnet, dann soll eine Meldung erscheinen das Outlook geöffnet
werden soll und dann mit OK soll das versenden fortgesetzt werden.
Einige User haben Outlook beim versuch zu senden nicht geöffnet und bekommen
dann immer Fehlermeldung.
Danke für eure Hilfe
Mfg Tom
Sub SendMessage()
Dim oOL As Object
Dim oOLMsg As Object
Dim oOLRecip As Object
Dim oOLAttach As Object
Dim iRow As Integer
Set oOL = CreateObject("Outlook.Application")
Set oOLMsg = oOL.CreateItem(0)
With oOLMsg
Set oOLRecip = .Recipients.Add(Range("E1").Value)
iRow = 2
Do Until IsEmpty(Cells(iRow, 1))
Set oOLAttach = .Attachments.Add(Cells(iRow, 1).Value)
iRow = iRow + 1
Loop
.Subject = Format(Date, "dd.mm.yy") & " - " & Format(Time, "hh:mm:ss")
.Body = "Beiliegend die Excel-Dateien"
.Send
End With
Set oOLRecip = Nothing
Set oOLMsg = Nothing
Set oOL = Nothing
End Sub

Bild

Betrifft: AW: prüfen vor Mail senden ob Outlook geöffnet
von: Marcl

Geschrieben am: 16.02.2005 12:06:58
Hallo Tom,
veruch mal das:

Private Declare
Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal szClass$, ByVal szTitle$) As Long
Public ausstieg As String
Sub Outlook_offen()
Dim outlookpruef, ergebnis
ausstieg = ""
On Error GoTo outlookfehler
' Prüfen ob Outlook gestartet ist
hFenster = FindWindow(vbNullString, "Microsoft Outlook")
If hFenster = 0 Then GoTo outlookfehler
If hFenster <> 0 Then Exit Sub
' Outlokk läuft nicht, dann Frage ob Outlook gestartet werden soll
outlookfehler:
outlookpruef = MsgBox("Microsoft Outlook wurde noch nicht gestartet !!!!!" & (Chr(10) & Chr(10)) & "Bitte starten Sie Outlook und versuchen es dann noch einmal.", vbOKOnly)
ausstieg = "ja"
Exit Sub
End Sub


Gruß
Marcl
Bild

Betrifft: AW: prüfen vor Mail senden ob Outlook geöffnet
von: Tom
Geschrieben am: 16.02.2005 12:34:50
Hallo Marcl,
danke für die Hilfe, das ist genau das was ich brauche.
Mfg Tom
 Bild
Excel-Beispiele zum Thema "prüfen vor Mail senden ob Outlook geöffnet"
Datei senden Arbeitsmappe als Email versenden
Inhalt einer Arbeitsmappe als Mail senden (ohne die Mappe selbst) Arbeitsmappe zeitgesteuert per Email an einen Verteiler versenden
Tabellenblattbereich als Email versenden Aus Excel heraus eine Email ohne Arbeitsmappenanlage versenden
Eine Tabelle periodisch mit dem Standard-Emailprogramm versenden Inhalt einer Tabelle periodisch mit Outlook versenden
Excel-Zellinhalte in Worddokument einlesen um per Email versenden Inhalt von Zelle A1 mit Outlook versenden