|
Имеется ввиду примерно такая функция? (правда это для отправки почты, а не для постановки задач)
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). Но полной реализации клиента пока не вижу... Пожалуйста, помогите кто знает...
|