aquaman1977
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть задача автоматической рассылки писем с прикрепленными файлами.
В системе стоит MS Outlook + MS Exchange Server.
При выполнении указанного ниже кода система безопасности Outlook выдает несколько предупредительных окон (что для автоматизации неприемлемо).
Вопрос: можно ли этого избежать, если параметры безопасности мейлера поменять нельзя? 
//----cut here-------------------
const
// константы OlItemType
olMailItem = 0;
olAppointmentItem = 1;
olContactItem = 2;
olTaskItem = 3;
olJournalItem = 4;
olNoteItem = 5;
olPostItem = 6;
// константы OlAttachmentType
olByValue = 1;
olByReference = 4;
olEmbeddedItem = 5;
olOLE = 6;
var
myOlApp, myItem, myRecipient, myAttachments: OleVariant;
...
Procedure MyMail(s_addr,s_attach,s_subject:String);
begin
// файл VBScript для создания почтового сообщения и прикрепления к нему файла
myOlApp := CreateOLEObject('Outlook.Application');
myItem := myOlApp.CreateItem(olMailItem);
myItem.Subject := s_subject;
myRecipient := myItem.Recipients.Add(s_addr);
myItem.Body := 'blabla'+#13;
myAttachments := myItem.Attachments;
myAttachments.Add(s_attach, olByValue, 1, Sr.Name+' Attachment');
myItem.Send;
myOlApp := VarNull;
myItem := VarNull;
myRecipient := VarNull;
myAttachments := VarNull;
end;
//------cut here----------------- |
хде флейм, топик как называется? ммм... Вопросы по delphi, а мы что обсуждаем - вопросы по delphi