Initial commit

EDOKA_Toolset/Plugin_Covid/Klassen/clsMailClient.vb

@@ -0,0 +1,43 @@
+Public Class clsMailClient
+
+    Dim m_empfaenger As String
+
+
+    Public Sub CreateOutlookMail(mailclient As String, absender As String, empfaenger As String, betreff As String, inhalt As String, attachment As String)
+        Select Case mailclient
+            Case "OUTLOOK"
+                Dim Outl As Object
+                Outl = CreateObject("Outlook.Application")
+
+                If Outl IsNot Nothing Then
+                    Dim omsg As Object
+                    omsg = Outl.CreateItem(0)
+                    omsg.sender = absender
+                    omsg.SentOnBehalfOfName = absender
+                    omsg.ReadReceiptRequested = True
+                    omsg.To = empfaenger
+                    omsg.bcc = ""
+                    omsg.subject = betreff
+                    omsg.body = inhalt
+                    omsg.Attachments.Add(attachment)
+                    omsg.Display(True)
+                End If
+        Case "MAPI"
+
+                Dim mapi As New MapiMail
+        mapi.AddAttachment(attachment)
+                mapi.AddRecipientTo(empfaenger)
+                mapi.SendMailPopup(betreff, inhalt)
+        Case Else
+
+        MsgBox("Kein Mail-Client verfügbar.")
+
+        End Select
+
+
+    End Sub
+
+
+
+
+End Class