Eine geöffnete Mappe schliesen
24.02.2005 07:42:15
Ralf
habe zu folgendem Problem schon gestern eine schnelle Hilfe bekommen:
Ich will aus einer Mappe eine einzelne Tabelle per Mail verschicken.
Habe das wie folgt gelöst bekommen:
Sub FrachtlisteVerschicken()
Dim Nachricht As Object, OutApp As Object
Dim SavePath As String
Dim AWS As String
SavePath = "C:"
Set OutApp = CreateObject("Outlook.Application")
'Kopiert aktuelles Sheet in eine neue Mappe
'welche nur diese Tabelle enthält
Sheets("Frachtliste_Druck").Select
ActiveSheet.Copy
ActiveWorkbook.SaveAs SavePath & "\" & "Frachtliste -" & ActiveSheet.Range("D1") & "-#" & ActiveSheet.Range("B1")
'Aktive Arbeitsmappe wird als mail gesendet
AWS = ActiveWorkbook.FullName
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "Daten"
.Subject = "Frachtliste -" & ActiveSheet.Range("D1") & "-#" & ActiveSheet.Range("B1") & " - " & Date & Time
.Attachments.Add AWS
'Hier wird eine normale Text Mail erstellt
.HTMLBody = "Anbei die Frachtkostenliste von " & vbCrLf & ActiveSheet.Range("D1") & "-#" & ActiveSheet.Range("B1")
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
'Hier könnte die Datei wieder gelöscht werden
Kill AWS
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
Sheets("Eingabe").Select
End Sub
jetzt habe ich folgendes Problem:
Die auf C: zwischengespeicherte Datei soll geschlossen und auf C: wieder gelöscht werden, so dass nur noch die Orginaldatei und die Mail geöffnet sind.
Ist bestimmt nur eine Zeile.
Kann mir da einer weiterhelfen ?
Wäre toll
Gruß Ralf B.