Excel Daten in Email mit Makro einfügen
21.09.2015 16:49:41
lau
versuche mit unterem Makro die Range(d1:g11) in die Email einzufügen.
Der Abschnitt wird kopiert, aber nicht in die Email eingefügt.
Sub test()
Worksheets(1).Range("d1:g11").Select
Selection.Copy
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "zzz.de "
.Subject = "Forecast Weekly Nominations " & Date & " "
.Body = """Sehr geehrte Damen und Herren," & vbLf & "anbei beigefügt finden Sie den wö _
_
chentlichen Forecast der Nominierungen. """ & vbLf & vbLf & " Freundliche Gruesse"
'Hier sollen die Zellen aus Excel eingefügt werden.
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Anzeige