public function integer of_sendemail (string as_filename[], string as_email_subject, string as_email_notetext, string as_email_filename[], string as_email_recipient);integer li_ret = FAILURE,li_rc
n_cst_kernel32 lnv_kernel32
mailsession lms_MAPISession
mailmessage lmm_Message
mailFileDescription lmf_file[], lmf_empty
boolean lb_tooltip
mailReturnCode lmrc_ret
n_cst_string lnv_string
integer li_i,li_up

if Len(as_email_recipient)>0 then
	li_rc=MessageBox("Отправка сообщения","Внимание! Вы хотите отправить данные по адресу: " + as_email_recipient+" (Нажмите Да)?~r~nЕсли вы хотите отправить по другому адресу нажмите Нет.",Question!,YesNoCancel!,1)
	if li_rc = 3 then Return NO_ACTION
	if li_rc = 2 then as_email_recipient=''
end if

lb_tooltip = (gnv_app.inv_setting.of_GetToolTip() = 'On')

if lb_tooltip then idw_requestor.of_SetToolTip(False)



li_up = UpperBound(as_filename)
For li_i = 1 to li_up
	
	as_email_filename[li_i] = lnv_string.of_GlobalReplace(as_email_filename[li_i],'\','_')
	as_email_filename[li_i] = lnv_string.of_GlobalReplace(as_email_filename[li_i],'/','_')
	as_email_filename[li_i] = lnv_string.of_GlobalReplace(as_email_filename[li_i],'"','_')
	as_email_filename[li_i] = lnv_string.of_GlobalReplace(as_email_filename[li_i],"'",'_')

	lmf_file[li_i] = lmf_empty
	lmf_file[li_i].FileType = mailAttach!
	lmf_file[li_i].FileName = as_email_filename[li_i]
	lmf_file[li_i].PathName = as_filename[li_i]
	lmf_file[li_i].Position = li_i
	
	lmm_Message.Attachmentfile[li_i] = lmf_file[li_i]
Next

lmm_Message.Subject = as_email_subject 

if Len(Trim(as_email_notetext))=0 then
	lmm_Message.NoteText = 'см.приложение'
else
	lmm_Message.NoteText = as_email_notetext
end if


if Len(as_email_recipient) >0 then 
	lmm_Message.Recipient[1].Address = as_email_recipient
	lmm_Message.Recipient[1].Name = as_email_recipient
end if

lms_MAPISession = CREATE mailsession
lmrc_ret = lms_MAPISession.MailLogon()
if lmrc_ret<> MailReturnSuccess! then GOTO ex

lmrc_ret = lms_MAPISession.MailSend( lmm_Message )
if lmrc_ret = MailReturnSuccess! then
	gnv_app.inv_error.of_Message('SendMessageSuccess')
	li_ret = SUCCESS
else
	gnv_app.inv_error.of_Message('SendMessageFailure')
end if

ex:
if IsValid(lms_MAPISession) then
   lms_MAPISession.MailLogoff()
	DESTROY lms_MAPISession 
end if

if lb_tooltip then idw_requestor.of_SetToolTip(True)

Return li_ret
end function