![]() |
#4 |
Участник
|
Имеется ввиду примерно такая функция? (правда это для отправки почты, а не для постановки задач)
SendingMailWin2000CDO(Port : Integer;SMTPServer : Text[120];Body : Text[1024];To : Text[120];From : Text[120];Subject : Text[120]) : Bo CREATE(CDOMessage); CREATE(CDOConfig); ActivXFields := CDOConfig.Fields; ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/sendusing'); ActivXField.Value := 2; ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport'); ActivXField.Value := Port; ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver'); ActivXField.Value := SMTPServer; ActivXField := ActivXFields.Item('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate'); ActivXField.Value := 0; ActivXFields.Update; CDOMessage.Configuration := CDOConfig; CDOMessage.HTMLBody := Body; CDOMessage."To" := "To"; CDOMessage.From := From; CDOMessage.Subject := Subject; CDOMessage.Send; Но мне желательно использовать другой режим: когда Navision сам работает как клиент, т.е. надо реализовать функцию рассылки задач из самого Navision, а не через Outlook. В идеале это должно происходить без использования Exchenge Server. Пока я примерно представляю как поставить задачу через Outlook средстами automaion (CDO). Но полной реализации клиента пока не вижу... Пожалуйста, помогите кто знает... |
|