_Send as Mail
	DDETimeOut(60000)
	a=FileItemize("")
	i=ItemCount(a," ")        
	If i==0 Then Goto NoFile
	d=DirGet()
	filecounter=1
	channel=0	
	If WinExist("Lotus Notes")== @False Then Goto LaunchNotes
	:NotesIsRunning	
	channel=DDEInitiate("Notes","SendMail")
	If channel==0 Then Goto LF
	c=DDEExecute(Channel, "NewMessage")
	if C==@False Then Goto DDEError
	:StartCon
	currfile=ItemExtract(fileCounter,a," ")
	currfile=StrCat("Attachfile ",d,currfile,"")
	c=DDEExecute(Channel,currfile)
	if c==@False Then Goto DDEError
	FileCounter=FileCounter+1
	If FileCounter<= i Then Goto StartCon
	c=DDEExecute(Channel,"Send")
	Goto MailDone
		

	:LaunchNotes
	RunIcon("C:\NOTES\_BNOTES.EXE","")
	Yield
	Goto NotesIsRunning
	
	:NoFile
	Message("File Commander","You have to select one or more files first!")
	Exit

	:LF
	Message("File Commander","Unable to open a DDE channel to Notes!")
	Exit

	:DDEError
	Message("File Commander", "A DDE error has occurred!")
	:MailDone
	c=DDETerminate(Channel)
	Exit