prüfen vor Mail senden ob Outlook geöffnet

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "prüfen vor Mail senden ob Outlook geöffnet"