Sub
MailVersenden
Dim
TXT as
String
Dim
Datum as
Date
Datum = now()
TXT =
"<b><font color=green size="
"6"
">Rücklieferung</font></b><br><br>"
TXT = TXT &
"<font face="
"Courier New"
" size="
"5"
">"
TXT = TXT &
"<b>Datum:</b>"
& Application.WorksheetFunction.Rept(
" "
, 8) & Datum &
"<br>"
TXT = TXT &
"</font>"
EMail_erstellen E_Liste,
"Bezug Fertiggeräte - PNC: "
& PNC, TXT,
False
End
Sub
Sub
EMail_erstellen( _
ByVal
Empfänger
As
String
, _
ByVal
Betreff
As
String
, _
ByVal
BodyText
As
String
, _
ByVal
Senden
As
Boolean
)
Dim
OutApp
As
Object
Set
OutApp = CreateObject(
"Outlook.Application"
)
Dim
Nachricht
As
Object
Set
Nachricht = OutApp.CreateItem(0)
With
Nachricht
.to = Empfänger
.getinspector
.Subject = Betreff
.htmlbody = BodyText & vbCrLf & .htmlbody
If
Senden =
True
Then
.send
Else
.display
End
If
End
With
Set
OutApp =
Nothing
Set
Nachricht =
Nothing
End
Sub