![]() |
#12 |
Участник
|
Написал с подсказки rmv следующую функцию
Код: SendMessage(From : Text[100];To : Text[1024];ToName : Text[250];Subject : Text[250];TextBody : Text[1024];Attachment : Text[500]) IF ISCLEAR(OutlookApp) THEN CREATE(OutlookApp); OutlookMsg:=OutlookApp.CreateItem(0); OutlookMsg."To"("To"); OutlookMsg.Subject(Subject); OutlookAttach:=OutlookMsg.Attachments; OutlookAttach.Add(Attachment, 1); OutlookMsg.Display; |
|