Инструменты пользователя
navision:программирование
Различия
Показаны различия между двумя версиями страницы.
| — |
navision:программирование [2018/04/13 22:43] (текущий) |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| + | ==== // | ||
| + | | ||
| + | <code pascal> | ||
| + | Name | ||
| + | ShellControl | ||
| + | Folder | ||
| + | FolderItems | ||
| + | FolderItem | ||
| + | Foldertxt | ||
| + | |||
| + | if isclear(ShellControl) then | ||
| + | create(ShellControl); | ||
| + | |||
| + | |||
| + | IF NOT ISCLEAR (ShellControl) THEN | ||
| + | Folder := ShellControl.BrowseForFolder(0,' | ||
| + | IF NOT ISCLEAR (Folder) THEN | ||
| + | FolderItems := Folder.Items(); | ||
| + | IF NOT ISCLEAR (FolderItems) THEN | ||
| + | FolderItem := FolderItems.Item; | ||
| + | IF NOT ISCLEAR (FolderItem) THEN BEGIN | ||
| + | Foldertxt := FORMAT(FolderItem.Path); | ||
| + | clear(ShellControl);</ | ||
| + | |||
| + | |||
| + | Как работать с почтой из Nav? | ||
| + | Скачайте и зарегестрируйте free библиотеку JMail 4.0 library (jmail.dll), | ||
| + | <code pascal> | ||
| + | Name DataType Subtype Length | ||
| + | MailClient Automation ' | ||
| + | Mail Automation ' | ||
| + | Attachments Automation ' | ||
| + | Attachment Automation ' | ||
| + | |||
| + | |||
| + | SMTPServer := ' | ||
| + | UserName := ' | ||
| + | Password := ' | ||
| + | |||
| + | IF ISCLEAR(MailClient) THEN | ||
| + | CREATE(MailClient); | ||
| + | CREATE(Mail); | ||
| + | Mail.From := SendTo." | ||
| + | Mail.FromName := SendTo.Description; | ||
| + | Mail.Subject := Subject; | ||
| + | Mail.AddRecipient(EmailReceipient); | ||
| + | IF CC <> '' | ||
| + | Mail.AddRecipientCC(CC); | ||
| + | Mail.AppendHTML(Text); | ||
| + | |||
| + | IF Filename <> '' | ||
| + | Mail.AddAttachment(Filename, | ||
| + | IF FILE.ERASE(Filename) THEN; | ||
| + | END; | ||
| + | |||
| + | Mail.MailServerUserName := UserName; | ||
| + | Mail.MailServerPassWord := Password; | ||
| + | IF NOT Mail.Send(SMTPServer, | ||
| + | MESSAGE(Mail.ErrorMessage()); | ||
| + | </ | ||
navision/программирование.txt · Последнее изменение: 2018/04/13 22:43 (внешнее изменение)
Инструменты страницы
