Kopierten Text in E-Mail einfügen
13.01.2010 15:44:58
Urmila
Hallo alle zusammen,
und schon habe ich eine andere Frage...
Mit dem folgenden Code generiere ich eine E-Mail im Excel
Dim OutLookJob As Object, mymail As Object, month As Integer, year As Integer
month = Format(Date, "MM")
year = Format(Date, "YYYY")
Set OutLookJob = CreateObject("Outlook.Application")
Set mymail = OutLookJob.CreateItem(0)
With mymail
.To = ""
.Subject = "Liste für " & month + 1 & "/" & year
.body = "Hallo," & vbCr & vbCr & _
"die Liste den Monat " & month + 1 & "/" & year & " wurde erstellt." & vbCr & _
"Hier ist der Link für die Datei zum Editieren:" & vbCr & vbCr & _
"....Text" & vbCr & vbCr & _
'hier soll der kopierte Text aus Excel eingefügt werden.....
"Gruß" & vbCr & _
"Urmila"
.display
End With
Wie könnte ich hier vor dem Grußformel einen aus Excel kopierten Text einfügen bzw. eher kopierte Zellen
Danke und LG
Urmila