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