Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Dim aws As String
Dim olapp As Object
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs " DSM " & ActiveSheet.Name & "-" & Range("P1") & ".xlsx"
aws = ActiveWorkbook.FullName
ime = ActiveSheet.Name
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.to = "mail@server.de" 'Empfänger
'.cc = "" 'optional Kopie an
'.bcc = "" 'optional Blindkopie an
'.ReadReceiptRequested = True ' optional Lesbestätigung anfordern
.htmlbody = "Test" 'Optional Body
.Subject = "Test" & " - " & ime & " vom " & Range("P1") 'Betreff optional
.ReadReceiptRequested = True 'optional Lesebestätigung anfordern
.Attachments.Add aws
.display
'SendKeys "%s", True ' optional Mail sofort senden
End With
Set olapp = Nothing
Application.DisplayAlerts = True
ActiveWindow.Close
Kill aws
End Sub
ActiveWorkbook.SaveAs " DSM " & ActiveSheet.Name & "-" & Range("P1") & ".xlsx"
ActiveWorkbook.SaveAs " DSM " & ActiveSheet.Name & "-" & Range("P1") & ".xlsm"
für xlsx-Dateien
ActiveWorkbook.SaveAs "DSM " & ActiveSheet.Name & "-" & _
Range("P1") & ".xlsx", FileFormat:=51
für xlsm-Dateien
ActiveWorkbook.SaveAs "DSM " & ActiveSheet.Name & "-" & _
Range("P1") & ".xlsm", FileFormat:=52
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen