Imports System.Net.Mail
Public Sub sendMail(sEmpfaenger As String, sBetreff As String, _
 			  	   sText As String, sAnhang As String)
 
		Dim session As Object
		Dim db As Object
		Dim LN_Doc As Object
		Dim EmbedObj As Object
		Dim AttachME As Object
		Dim Workspace As Object
		Dim ui_Doc As Object
 
		session = CreateObject("Notes.NotesSession")
		session.ConvertMIME = False
		db = session.CurrentDatabase
 
		If db.IsOpen = False Then db.OPENMAIL()
 
		LN_Doc = db.CreateDocument
		With LN_Doc
			.form = "Memo"
			.SendTo=sEmpfaenger 
			.Subject=sBetreff
			.SaveMessageOnSend=True '<<< hier wird das Speichern geregelt
			.PostedDate=Now()
			If sAnhang <> "" Then
				AttachME=LN_Doc.CreateRichTextItem("Attachment")
				EmbedObj=AttachME.EmbedObject(1454, "", sAnhang, "")
			End If
		End With
 
		Workspace = CreateObject("Notes.NotesUIWorkspace")
		ui_Doc = Workspace.EDITDOCUMENT(True, LN_Doc)
		With ui_Doc
			.GOTOFIELD("Body")
			.inserttext(sText)
			.Send()
			.Close()
		End With
 
		AttachME = Nothing
		EmbedObj = Nothing
		ui_Doc = Nothing
		Workspace = Nothing
		LN_Doc = Nothing
		db = Nothing
		session = Nothing
 
	End Sub