AWS =ThisWorbookname beim mehrfachversand duplizie
07.03.2013 14:59:43
Lisa
Ich versende eine aktuelle Arbeitsmappe aus Excel heraus per Mail!
'##hier ein Auszug zum Code
Set OutApp = CreateObject("Outlook.Application")
AWS = Environ("USERPROFILE") & "\" & Sheets(1).Range("D2") & Sheets(1).Range("N3") & Sheets(2).Range("E2") & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs AWS
Application.Visible = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = ""
.Cc = ""
.Subject = "Hallo zusammen, bitte um Ergänzung
.Attachments.Add AWS
.Body = "Hallo zusammen, bitte um Ergänzung " & vbCrLf & ""
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Set OutApp = CreateObject("Outlook.Application")
AWS = Environ("USERPROFILE") & "\" & Sheets(1).Range("D2") & Sheets(1).Range("N3") &
AWS = Environ("USERPROFILE") & "\" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs AWS
'###
das alles funktioniert tadellos, bis auf die Tatsache, dass, wenn ich die gleiche Mappe mehrmals versende, der Dateiname immer länger wird und irgendwann zu lang wird!
Durch das Zwischenspeichern wird zum Workbooknamen der aktuelle angehängt, deswegen das duplizieren des Namens!
Meine frage nun an Euch kann man die Bennung zum zwischenspeichern irgendwie so gestalten, das sich Der Workbookname beim mehmaligen versenden der gleichen Mappe nicht dupliziert?
Ich bin ratlos, kann mir jemand von Euch helfen?
Sollte ich mich Missverständlich erklärt haben fragt bitte noch einmal nach!
vielen dank für Eure Hilfe!
LG Lisa