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
 
		Set objSession = CreateObject("Notes.NotesSession")
		Set NotesDB =objSession.GetDatabase(" ","bookmark.nsf"," ")
 
		Set NotesDoc = NotesDB.CreateDocument
			NotesDoc.Form = "Memo"
			NotesDoc.Subject = subject
			NotesDoc.sendto = recipient
 
			NotesDoc.body = msg
			If attachment <> "" Then
			Set AttachME = NotesDoc.CREATERICHTEXTITEM("Attachment")
			Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", msgAttachment)
			End If
			NotesDoc.SaveMessageonSend = true
 
		NotesDoc.send true
 
		Set objSession = nothing
 
	End Sub