set arg = wscript.arguments
 
Dim msgBody
msgRecipient = arg(0)
msgSubject = arg(1)
msgBody = arg(2)
msgAttachment = arg(3)
 
MySendMail msgRecipient, msgSubject, msgBody, msgAttachment
 
Sub MySendMail(recipient, subject, msg, attachment)
	Dim objSession, oInbox, colMessages, oMessage, colRecipients, EmbedObj, _
  AttachME, NotesDoc, NotesDB
 
	Set objSession = CreateObject("Notes.NotesSession")
	Set NotesDB = objSession.GetDatabase("", "bookmark.nsf", "")
 
	Set NotesDoc = NotesDB.CreateDocument
		NotesDoc.Form = "New Memo"
		NotesDoc.Subject = subject
		NotesDoc.sendto = recipient
		'NotesDoc.copyto =
		'NotesDoc.blindcopyto =
		NotesDoc.body = msg
		'NotesDoc.DefaultMailSaveOption = 0
		'NotesDoc.MailSaveOption = 0
		'NotesDoc.DeliveryReport = "B"
		'NotesDoc.Importance = "2"
		'NotesDoc.logo = "Scania"
		'NotesDoc.SAVEMESSAGEONSEND = True
		'NotesDoc.ReturnReceipt = "1"
		'NotesDoc.Sign = "1"
		'NotesDoc.encrypt = "0"
		'NotesDoc.Principal = session.UserName
		'NotesDoc.viewicon = "74"
		'NotesDoc.from = session.UserName
		'NotesDoc.SaveOptions = 0
		'NotesDoc.SecureMail = ""
		'NotesDoc.SenderTag = "F"
 
		If attachment = "no" Then
		Else
			Set AttachME = NotesDoc.CREATERICHTEXTITEM("Anhang")
			Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", attachment, "Anhang")
		End If
 
	NotesDoc.send true
 
	Set objSession = nothing
	Set NotesDB = nothing
	Set NotesDoc = nothing
	Set AttachME = nothing
	Set EmbedObj = nothing
 
End Sub