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 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
			.Body = sText
			.Subject = sBetreff
			.SaveMessageOnSend = False
			.PostedDate = Now()
			If sAnhang <> "" Then
				AttachME = LN_Doc.CreateRichTextItem("Attachment")
				EmbedObj = AttachME.EmbedObject(1454, "", sAnhang, "")
			End If
 
		End With
 
		LN_Doc.Send(False)
 
 
		EmbedObj = Nothing
		AttachME = Nothing
		ui_Doc = Nothing
		LN_Doc = Nothing
		db = Nothing
		session = Nothing
 
	End Sub