none
Автоматическая отправка сообщений RRS feed

  • Вопрос

  • Возникла потребность отправки сообщений со вложенными файлами в них, использую 2007 Outlook, в автоматическом режиме, в определенный день и время.

    Подскажите пожалуйста как осуществить данную операцию.

    Спасибо.

    С уважением Алексей Балашов.

    13 июля 2012 г. 7:06

Ответы

Все ответы

  • Вот пример на vbScript

    Set oOutlook = CreateObject("Outlook.Application")
    Set oOutlookMsg = oOutlook.CreateItem(0)
    With oOutlookMsg
      .To = strCN 'дрес email или CN для почты Exchange
      .Subject = "message" 'тема сообщения
    ' .Body = "Текстовое сообщение" 'если сообщение в формате Plain Text
      .Attachments.Add ("f:\Test.txt")
      .HTMLBody = strMes 'строковая переменная в формате HTML
      .Send
    End With

    Set oOutlookMsg = Nothing
    Set oOutlook = Nothing

    Однако это не все. В Outlook, начиная с версии 2003, по сображениям безопасности, запрещен доступ к объектной модели из сторонних приложений. Для преодоления ограничений следует установить бесплатную программу Advanced security for Outlook и добавить Действие, разрешающее доступ для приложения cscript.exe

    13 июля 2012 г. 8:22
    Модератор
  • Тогда возникает следующий вопрос, а куда этот код вставлять?
    13 июля 2012 г. 8:48
  • К сожалению нет под рукой 2007-го. В Outlook 2010 есть опция Deley Delivery
    13 июля 2012 г. 9:44
  • Тогда возникает следующий вопрос, а куда этот код вставлять?

    В файл с расширением .vbs, который будет запускаться из командной строки, например

    cscript.exe <имя_файла>.vbs

    командрая строка - через планировщик заданий. На момент запуска сценария Outlook должен быть запущен.

    В этом был вопрос?


    13 июля 2012 г. 10:49
    Модератор