.BodyFormat = 2
.Subject =
"Crate and Weight Size "
& WSh.Range(
"F20"
).Value
.
To
=
"test@mail.com"
sMailtext =
"Hi,"
& vbLf & vbLf &
"Crate and weight size for "
_
& WSh.Range(
"F20"
).Value &
":"
& vbLf & vbLf
.GetInspector: sSignatur = .HTMLBody
.HTMLBody =
"<span style='font-family:Calibri;font-size:12pt;color:black;'>"
_
& Replace(sMailtext, vbLf,
"<br>"
) &
"</span>"
& sSignatur
.Display