Hallo @metalposaunist,
dieses Verhalten liegt aber an DATEV.
Entweder die verwenden noch die normale MAPI-Schnittstelle, die meines Wissens immer noch funktioniert, oder die haben die Outlook/SMTP-Schnittstelle ist so konfiguriert.
Da DATEV nicht wohl nicht zwingend Outlook voraussetzt, verwenden die DATEV vermutlich eine global gültige Schnittstelle. Das wäre dann in der Tat die VBNet SMTP-Schnittstelle. Aber die VBNet SMTP-Schnittstelle kennt eben auch einen HTML-Bodyformat. Daher ist die Einschränkung gewollt und ist vermutlich dem Umstand geschuldet, dass sich gerne Schadcode im HTML-Text verbergen kann und generell HTML-Mails als gefährlich eingestuft werden. Viele Firmen haben daher auch explizit nur Plaintext zugelassen.
Hier einmal die OL-Schnittstelle:
Public Sub CreateMail()
Dim olMail As Outlook.MailItem
olMail = OlApp.CreateItem(Outlook.OlItemType.olMailItem)
With olMail
.Subject = Subject
.HTMLBody = "<FONT SIZE=""2"" FACE=""Calibri"">" & Body
.BodyFormat = Outlook.OlBodyFormat.olFormatHTML
.To = EMailTo
For i As Integer = 0 To Attachments.Count - 1
If IO.File.Exists(Attachments(i)) Then 'falls nicht gespeichert wurde, dann werden falsche Daten übergeben
olMail.Attachments.Add(Attachments(i))
End If
Next
.Display()
End With
End Sub
Und zum Vergleich die SMTP-Schnittstelle (aus dem Internet):
(nicht getestet, da ich immer die OL-Schnittstelle verwende)
Imports EASendMail 'Add EASendMail namespace
Module Module1
Sub Main()
Try
Dim oMail As New SmtpMail("TryIt")
' Set sender email address, please change it to yours
oMail.From = "test@emailarchitect.net"
' Set recipient email address, please change it to yours
oMail.To = "support@emailarchitect.net"
' Set email subject
oMail.Subject = "test HTML email from VB.NET project"
' Set HTML body
oMail.HtmlBody = "<font size=5>This is</font> <font color=red><b>a test</b></font>"
' Your SMTP server address
Dim oServer As New SmtpServer("smtp.emailarchitect.net")
' User and password for ESMTP authentication
oServer.User = "test@emailarchitect.net"
oServer.Password = "testpassword"
' Most mordern SMTP servers require SSL/TLS connection now.
' ConnectTryTLS means if server supports SSL/TLS, SSL/TLS will be used automatically.
oServer.ConnectType = SmtpConnectType.ConnectTryTLS
' If your SMTP server uses 587 port
' oServer.Port = 587
' If your SMTP server requires SSL/TLS connection on 25/587/465 port
' oServer.Port = 25 ' 25 or 587 or 465
' oServer.ConnectType = SmtpConnectType.ConnectSSLAuto
Console.WriteLine("start to send HTML email ...")
Dim oSmtp As New SmtpClient()
oSmtp.SendMail(oServer, oMail)
Console.WriteLine("email was sent successfully!")
Catch ep As Exception
Console.WriteLine("failed to send email with the following error:")
Console.WriteLine(ep.Message)
End Try
End Sub
End Module
Hieran kann man sehr schön sehen, dass beide Varianten den HTML-Body unterstützen.
Alleine der Wille von DATEV fehlt.
Besser wäre es, wenn es eine Option in den Einstellungen gebe, wie Mails zu versenden sind.
Gruß Achilleus
