Prüfen, ob Datei geöffnet ist
24.11.2005 11:19:11
CPFT
wer kann mir bei folgendem Problem helfen:
Ich möchte per Knopfdruck eine Mail mit Dateianhang kreieren.
Dazu nutze ich folgendes Makro:
Sub SendBack ()
Dim outObj As Object
Dim Mail As Object
Dim I As Integer
Windows("Info.xls").Activate
ActiveWorkbook.Save
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
.Subject = "INFO " & Format(Date - 20, "yyyy-mm")
.To = "A.Coazu@gmx.com"
End With
Mail.Attachments.Add ("D:\Dokumente\NE\Info.xls")
Mail.display
Set Mail = Nothing
Set outObj = Nothing
End Sub
Jetzt besteht aber die Möglichkeit, das die Datei Info.xls gar nicht geöffnet ist und der Befehl Windows("Info.xls").Activate nicht ausgeführt werden kann.
Gibt es eine Möglichkeit zu prüfen, ob die Datei geöffnet ist?
Sollte sie nicht geöffnet sein, kann sie direkt in die Mail kopiert werden.
Dank im Voraus für eure Hilfe.
Anzeige