Kopieren in email
10.03.2016 18:33:50
Torsten
folgendes Problem habe ich...
Ich möchte einen gefilterten Bereich in eine eMail (Outlook) einfügen.
Davor und dahinter befindet sich Text.
Wie schaffe ich diese beiden Codes zu verbinden, das es auch klappt?
Sub mailsenden()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = Range("mail").Value
.CC = Range("mailcc").Value
.Subject = "Matrialbestellung"
.Body = "Bitte folgende Bestellung aufgeben:" & Chr(10) & Chr(10) & Chr(10) & _
"Auftragsbezeichnung: " & Range("Auftrag").Value & Chr(10) & _
"Kostenträger: " & Range("Kostenträger").Value & Chr(10) & _
"Bemerkung: " & Range("Bemerkung").Value & Chr(10) & _
"Bitte die Bestellung so planen, das Material bis spätestens " & Range("datum"). _
Value & " vor Ort !" & Chr(10) & Chr(10) & Chr(10) & _
Chr(10) & "HIER KOMMT DIE TABELLE REIN" & Chr(10) & Chr(10) & Chr(10) & Chr(10) & _
_
_
"Vielen Dank und freundliche Grüße" & Chr(10) & Chr(10) & Chr(10) & _
Application.UserName
.Display
End With
End Sub
und zum kopieren:
Tabelle1.Range("c13:I" & ActiveSheet.UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy