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----------------- |