Email aus Excel
06.06.2005 11:14:08
Jakob
ich habe mir den VBA-Code mit Hilfe Eurer Unterstützung und Beispielen aus anderen Excel-Seiten zusammengeschustert. Das klappt alles soweit und er führt auch alle Schritte aus (Formeln und Tabellenblätter werden gelöscht). In der Datei die er dann sendet sind aber die Formeln und Tabellenblätter wieder drin. Hier der Code.
Vielen Dank im Voraus.
J. Freitag
Sub ÄsthetikUmsatz_Als_eBrief()
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.Run "DatumUeberInputbox"
Application.Run "ÄsthetikBlaetterLoeschen"
Application.Run "Excel_Workbook_via_Outlook_Senden"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
Sub DatumUeberInputbox()
Dim wert01 As String
wert01 = InputBox("Datum", "Bitte geben Sie das Datum ein")
Range("a1").Value = "Tagesumsatz " & wert01
End Sub
Sub ÄsthetikBlaetterLoeschen()
Dim sh As Object
Application.DisplayAlerts = False
For Each sh In Sheets
If Not sh.Name Like "TU ÄS" Then sh.Delete
Next
Application.DisplayAlerts = True
End Sub
Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ActiveWorkbook.FullName
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "Wer@internetanbieter.de"
.CC = "nochjemand@internetanbieter.de"
.BCC = ""
'.Subject = "Tagesumsatz Ästhetik " & Date & Time
.Subject = "Ästhetik " & ActiveSheet.Range("A1")
.attachments.Add AWS
.Body = "Hallo," & vbCrLf & vbCrLf & "anbei der Tagesumsatz für die Ästhetik Produkte." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen" & vbCrLf & "J. Freitag" & vbCrLf & vbCrLf
.ReadReceiptRequested = False
.send
End With
'Outlook schliessen
'OutApp.Quit
'Set OutApp = Nothing
'Set Nachricht = Nothing
End Sub