This commit is contained in:
2024-10-01 11:02:00 +02:00
parent a5921c5faf
commit 76fbf96823
13 changed files with 35 additions and 24 deletions

View File

@@ -249,7 +249,7 @@ Namespace Fsolutions.Fbase.Common.Mail
binaryWriter.Write(System.Text.Encoding.UTF8.GetBytes("X-Unsent: 1" & Environment.NewLine))
End If
Dim assembly = GetType(SmtpClient).Assembly
Dim assembly As Assembly = GetType(SmtpClient).Assembly
Dim mailWriterType = assembly.[GetType]("System.Net.Mail.MailWriter")
Dim mailWriterContructor = mailWriterType.GetConstructor(BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, {GetType(Stream)}, Nothing)
Dim mailWriter = mailWriterContructor.Invoke(New Object() {filestream})