IBProcessEmailDocuments.Add

Copy example

Sub UserProc5;
Var
    Mb: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Process: IBProcess;
    EventCollection: IBProcessEventGroupCollection;
    EventGroup: IBProcessEventGroup;
    EmailEvent: IBProcessEventEmail;
    Email: IBProcessEmail;
    Docs: IBProcessEmailDocuments;
    Doc: IBProcessEmailDocument;
Begin
    Mb := MetabaseClass.Active;
    MObj := Mb.ItemById("PROCESS");
    // Get process structure
    Process := BProcessCollection.EditByKey(MObj.Key);
    // Get the collection of groups of process events
    EventCollection := Process.Events;
    // Get group of events that occur during process startup
    EventGroup := EventCollection.ItemByType(BProcessEventType.StartProcess);
    // Create and setup of new event
    EmailEvent := New BProcessEventEmail.Create(BProcessEventType.StartProcess, "EmailEvent");
    EventGroup.Add(EmailEvent);
    Email := EmailEvent.Email;
    Email.Recipient := "first@mail.ru";
    Email.Subject := "Process execution start";
    Email.IsBodyHtml := True;
    Email.Message := "Process started. Documents are attached.";
    // Documents attached to email
    Docs := Email.Documents;
    Doc := New BProcessEmailDocument.CreateFromFile("D:\Work\Report.xlsx", Process);
    If Doc.IsPermanent Then
        Doc.SaveToPP;
    End If;
    Docs.Add(Doc);
    Doc := New BProcessEmailDocument.Create(Mb.ItemById("F_HELP"));
    Docs.Add(Doc);
    // Save changes
    If EmailEvent.IsValid Then
        Process.Save;
    End If;
End Sub UserProc;