Sub
EMail(Zelle
As
String
, Zellinhalt
As
String
)
Dim
bereich
As
Range, a, z, s, Zeile, gesamt, alles
Set
bereich = Range(
"A43:A53"
,
"C43:C54"
)
For
Each
a
In
bereich.Areas
For
z = 1
To
a.Rows.Count
For
s = 1
To
a.Columns.Count
Zeile = Zeile &
" "
& a.Cells(z, s)
Next
gesamt = gesamt & vbCrLf & Zeile
Zeile =
""
Next
alles = alles & vbCrLf & gesamt
gesamt =
""
Next
Dim
Nachricht
As
Object
, OutApp
As
Object
Set
OutApp = CreateObject(
"Outlook.Application"
)
Set
Nachricht = OutApp.CreateItem(0)
With
Nachricht
.to =
"Vorname.Nachname@test.de "
.Subject =
"Betreff"
.Body =
"Hallo"
& vbCrLf & vbCrLf & _
"Es haben sich Änderungen ergeben."
& vbCrLf & _
<strong>Worksheets(
"Mika"
).
Select
Set
startcell = Range(
"A43"
)
startcell.CurrentRegion.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste</strong>
.Display
End
With
Set
OutApp =
Nothing
Set
Nachricht =
Nothing
End
Sub