Attachment Dateiendung
14.10.2003 06:44:16
junny
im folgenden Code wird ein Workbook als Attachment versandt.
Nun wir ja bei savepath der Name vergeben, mein Problem:
Der Empfänger bekommt nun ein Workbook das *.xls.xls heißt soll heißen es wird der Workbookname mit .xls ausgelesen und wahrscheinlich das Format zusätzlich nochmals mit .xls!
Wie krieg ich das hin, dass das passt? (Workbookname mit einfacher Dateiendung)
Sub DruckSenden()
Dim outObj As Object
Dim Mail As Object
Dim i As Integer
Dim savepath As String
Dim savename As String
Application.DisplayAlerts = False
'Tabelle drucken
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'Tabelle versenden
savepath = "c:\temp\" & ActiveWorkbook.Name & ".xls"
On Error Resume Next
Kill savepath
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs savepath
ActiveWorkbook.Close savechanges:=False
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
.Subject = Range("A1").Value & " " & Range("D1").Value & " " & Range("E1").Value
.Body = "Hallo" & vbLf & _
"hier die neueste Auslastungsliste" & vbLf & _
"Viele Grüße " & vbLf & _
Application.UserName
.To = "123@abc.de"
'.CC = Sheets("Tabelle1").Cells(3, 2).Value
'.Bcc = Sheets("Tabelle1").Cells(4, 2).Value
End With
With Application.FileSearch
.NewSearch
.LookIn = savepath
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
Mail.Attachments.Add savepath
End With
Mail.send
Set Mail = Nothing
Set outObj = Nothing
'Excel (Workbook) schließen
If Workbooks.Count = 1 Then
ThisWorkbook.Saved = True
Application.Quit
Else
ThisWorkbook.Close False
End If
Application.DisplayAlerts = True
End Sub
Danke mal, Gruss volker