AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Service und WMDLL

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-08-21 10:36:59 +02:00
parent 379a36fba2
commit 8cde9f0119
5 changed files with 44 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Message/Email.vb
View File

@@ -18,17 +18,14 @@ Public Class Email
'Für jeden Empfänger eine Neue Mail erzeugen
For Each _mailempfaenger As String In empfaenger
Try
Dim message As New Message With {
.From = New Mailbox(mailfrom, mailfrom)
}
Dim message As New Message()
message.From = New Mailbox(mailfrom, mailfrom)
message.[To].Add(New Mailbox(_mailempfaenger))
message.Subject = mailSubject
Dim textBodyPart As New BodyPart With {
.ContentType = New ContentType("text", "plain", "utf-8"),
.ContentTransferEncoding = ContentTransferEncoding.QuotedPrintable,
.Body = mailBody
}
Dim textBodyPart As New BodyPart()
textBodyPart.ContentType = New ContentType("text", "html", "utf-8")
textBodyPart.ContentTransferEncoding = ContentTransferEncoding.QuotedPrintable
textBodyPart.Body = mailBody
message.BodyParts.Add(textBodyPart)
If attment <> String.Empty Then
If System.IO.File.Exists(attment) Then