none
Отправка сообщение группе с помощью макроса RRS feed

  • Вопрос

  • Добрый день, есть самый обычный макрос на отправку типового письма, но есть одно но. Все письма отправляются подписанными и зашифрованными, и если группу получателей указать как просто адрес, то они его не могут прочесть, нужно чтобы он был указан именно как список рассылки. Макрос см. ниже. Я так в понимаю в поле To нужно указывать какой-то объект?

    Sub SendMail()
    Dim objOL As Outlook.Application
    Dim objMail As MailItem
    Set objOL = Outlook.Application
    Set objMail = objOL.CreateItem(olMailItem)
    With objMail
    .To = "spickiy@domain.ru"
    .Body = "Добрый день, высылаю отчет о проделанной работе (см.файл вложение)"
    .Subject = "[report]"
    .Attachments.Add "E:\Report\SpickiyNA_report_15.txt"
    .Send
    End With
    Set objMail = Nothing
    Set objOL = Nothing
    End Sub


    С уважением, Спицкий Никита


    15 июня 2015 г. 3:17

Ответы

Все ответы

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

    Да, я Жук, три пары лапок и фасеточные глаза :))


    15 июня 2015 г. 3:47
    Модератор
  • Письма и так автоматически подписываются и шифруются. Я так понял, можно взять Вашу статью, и лишь изменить сам макрос, потому что мне нужно что бы письмо не открывалось, а сразу уходило.

    С уважением, Спицкий Никита


    15 июня 2015 г. 3:56
  • Разобрался, все работает, спасибо большое

    С уважением, Спицкий Никита

    15 июня 2015 г. 4:21
  • Я очень рад за Вас!!!, Жму Вам руку, всеми шестью лапками ;) :))

    Надеюсь, что Вы и отметку:

    поставили, нажав "И я то же" ;)


    Да, я Жук, три пары лапок и фасеточные глаза :))

    15 июня 2015 г. 6:45
    Модератор
  • Сочту:) Еще небольшой вопрос, теперь проблема в прикреплении файла. Файл каждый день изменятся, как мне его прикреплять к шаблону?

    С уважением, Спицкий Никита

    15 июня 2015 г. 7:00
  • Разобрался. Я просто в программировании только начинаю. Получилось в итоге так:

    Sub SendReport()
    Set objOL = Application.CreateItemFromTemplate("C:\Users\spickiy\appdata\Roaming\Microsoft\Шаблоны\test.oft")
    With objOL
    .Attachments.Add "E:\Report\test.txt"
    .Send
    End With
    Set objOL = Nothing
    End Sub


    С уважением, Спицкий Никита

    15 июня 2015 г. 7:07