Kopie einer Datei versenden
11.02.2009 15:49:00
Kai
ich möchte eine gerade geöffnete xls Datei per Outlook versenden. Wenn ich vorher Daten in die Datei geschrieben habe, diese aber dann nicht abspeichere und dan diese Mail, wie unten , versende, kommt immer eine leere Mappe an:
Dim outl, Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = "Betreff"
Mail.To = "test@test.de"
Mail.Body = "blabla"
Mail.Attachments.Add ThisWorkbook.FullName
Mail.Display
Ich muss die Mappe also vorher zwischenspeichern mit :
ActiveWorkbook.SaveAs Filename:="Problem" 'oder so ähnlich.
Nun das Problem. In diesem Mometn, wo ich das abspeichere, wird meine Datei ja auch umbenannt. Das soll aber nicht sein. Nun zu meiner Frage: Kann ich, bevor ich meine Datei anhänge, erst eine Kopie davon machen, diese Kopie irgend wie ablegen (gleiches Verzeichnis) und dann die Kopie als Anhang meiner Mail beifügen.
So würde mein Original unverändert bleiben und ich könnte nach dem versenden der Mail wieder zu meinem Original zurückkehren. (unter altem Namen)
Ist das irgend wie möglich ?
Hilfe wäre toll.
Danke
Kai