Function send(AddressLN As String)
Dim s As New NotesSession
Dim w As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim Person As NotesName
Dim filename As Variant
Dim curdoc As NotesDocument
Dim uidoc As NotesUIDocument
Dim currtitem As NotesRichTextItem
Dim FileBody As NotesRichTextItem
Dim obj_arr() As String
Dim i As Integer
Dim file_path As String
Dim adressitem As NotesItem
Dim comment As NotesItem
Set s= New NotesSession
Set w= New NotesUIWorkspace
Set db=s.CurrentDatabase
Set uidoc = w.CurrentDocument
Set curdoc = uidoc.Document
Set doc = New NotesDocument(db)
Set currtitem = curdoc.GetFirstItem("Body")
doc.form="Memo"
doc.SendTo=AddressLN
doc.Subject = "Новая заявка на регистрации" & {: "} &" LN-"& curdoc.GetItemValue ("RegNum")(0) & {"}
Set rtitem = New NotesRichTextItem(doc,"Body")
Call rtitem.AddNewline(1)
Call rtitem.AppendText("Пожалуйста зарегистрируйте эту заявку: ")
Call rtitem.AppendDocLink(curdoc,curdoc.GetItemValue("Category")(0))
Call rtitem.AppendText("<--- Нажмите для открытия документа")
Call rtitem.AddNewline(2)
Call rtitem.AppendText("Номер заявки: "+curdoc.RegNum(0))
If curdoc.Category(0)<>"" Then
Call rtitem.AddNewline(1)
Call rtitem.AppendText ("Предмет заявки: "+curdoc.GetItemValue("Category")(0))
End If
If curdoc.PrinterModel(0)<>"" Then
Call rtitem.AddNewline(1)
Call rtitem.AppendText ("Модель принтера или картриджа: "+curdoc.PrinterModel(0))
End If
If curdoc.NameRes(0)<>"" Then
Call rtitem.AddNewline(1)
Call rtitem.AppendText("Наименование ресурса: "+curdoc.NameRes(0))
End If
If curdoc.VidAccess(0)<>"" Then
Call rtitem.AddNewline(1)
Call rtitem.AppendText("Вид доступа: "+curdoc.VidAccess(0))
End If
If curdoc.DateOn(0)<>"" Then
Call rtitem.AddNewline(1)
Call rtitem.AppendText("Срок для доступа: "+"с "+Cstr(curdoc.DateOn(0))+" до "+Cstr(curdoc.DateOff(0)))
End If
If curdoc.IPResource(0)<>"" Then
Call rtitem.AddNewline(1)
Call rtitem.AppendText("Имя ПК или IP адрес: "+curdoc.IPResource(0))
End If
Set comment=curdoc.GetFirstItem("OriginatorComment")
If Not comment Is Nothing Then
If comment.Text<>"" Then
Call rtitem.addnewline(1)
Call rtitem.AppendText("Комментарий автора: " + Comment.Text)
End If
End If
If curdoc.VidDo(0)<>"" Then
Call rtitem.AddNewline(1)
Call rtitem.AppendText("Комментарий сотрудника: "+curdoc.VidDo(0))
End If
Call rtitem.addnewline(1)
Call rtitem.AppendText("Ответственный исполнитель: "+curdoc.OriginatorAlt(0))
Call rtitem.AddNewline(3)
Call rtitem.AppendText("С уважением,")
Call rtitem.AddNewline(1)
Call rtitem.AppendText("Система автоматического оповещения.")
Call rtitem.AddNewline(2)
If Isempty(currtitem.EmbeddedObjects) Then
Else
i=0
Redim obj_arr(i)
If currtitem.Type = RICHTEXT Then
Forall obj In currtitem.Embeddedobjects
If obj.type = EMBED_ATTACHMENT Then
path=Environ("TEMP")
Call obj.extractFile(path+"\"+obj.Name)
i=i+1
Redim Preserve obj_arr(i)
obj_arr(i)=obj.Name
End If
End Forall
End If
If Ubound(obj_arr)>0 Then
For i=1 To Ubound(obj_arr)
file_path=path+"\"+obj_arr(i)
Set object=rtitem.Embedobject(EMBED_ATTACHMENT,"",file_path)
Kill (file_path)
Next
End If
End If
doc.send(False)
End Function
