AW: Makro mitanhängen
12.05.2016 00:01:57
Sdravi
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
Wenn ich die Zeile
ActiveWorkbook.SaveAs " DSM " & ActiveSheet.Name & "-" & Range("P1") & ".xlsx"
so abändere
ActiveWorkbook.SaveAs " DSM " & ActiveSheet.Name & "-" & Range("P1") & ".xlsm"
Dann funktioniert es nicht.