Option
Explicit
Sub
Workbook_Open()
Dim
WSh1
As
Worksheet, WSh2
As
Worksheet
Dim
sMailtext
As
String
, sSignatur
As
String
Dim
sBer
As
String
sBer =
"A43:E54"
Set
WSh2 = ThisWorkbook.Sheets(
"Mika"
)
WSh2.Range(sBer).Copy
With
CreateObject(
"Outlook.Application"
).CreateItem(0)
.BodyFormat = 2
.Subject =
"Änderungen in der Mika "
&
Date
&
" "
& Time
.
To
=
"stefan.haderlein@gmx.de "
.CC =
"haderleinsusanne@gmail.com"
sMailtext =
"Hallo"
& vbCrLf & vbCrLf & _
"Es haben sich Änderungen in der Mika ergeben."
& vbCrLf & vbLf
.GetInspector
.htmlbody = Replace(sMailtext, vbLf,
"<br>"
) & .htmlbody
.Display
With
.GetInspector.WordEditor.Application.Selection
.Start = Len(sMailtext)
.Paste
End
With
End
With
End
Sub