• Откуда: Иркутск
  • На форуме с 19 ноября 2010г.
  • Сообщений: 52
  • Спасибо: 1

Тема: Скрытое создание письма

Здравствуйте.
Возник вопрос. Когда создаю сообщение и заполняю его данными, но не открываю для редактирования и не отправляю, просто создаю, скрыто от пользователя, то эти данные не отображаются. Т.е. в сообщении не появляется ни заголовок ни текст. Но в него вкладываются ссылки на объекты. 

Set Mess = ThisApplication.CreateMessage
Mess.Subject = "Заголовок"
Mess.Body = "тело"

Подскажите пожалуйста, как создать сообщение и заполнить автоматом, не привлекая пользователя. Сообщение информационное и создается при старте. Если открывать для редактирования, то от пользователя требуется его закрыть. Проблема в том, что таких сообщений может быть не одно.
Спасибо.

  • На форуме с 30 октября 2008г.
  • Сообщений: 91
  • Спасибо: 0

Re: Скрытое создание письма

Kirzaa пишет:

но не открываю для редактирования и не отправляю

не совсем понял, а сообщение потом отправляться будет или нет? или просто создается и должно сохранится в черновиках?

Kirzaa пишет:

Подскажите пожалуйста, как создать сообщение и заполнить автоматом, не привлекая пользователя.

пример из справки

Option Explicit
Call CreateMessage("Пароль TDMS", _
        "Прошу выслать мне пароль для входа в систему.", "SYSADMIN")


'============================================================================
==
'Создать и отослать новое почтовое сообщение с темой msgSubject,
'содержанием msgBody и отправить его получателю ToWhom
'============================================================================
==
Sub CreateMessage(msgSubject, msgBody, ToWhom)
        Dim Msg, CurUser

        ' Получить ссылку на текущего пользователя
        Set CurUser = ThisApplication.CurrentUser

        ' Создать сообщение
        Set Msg = ThisApplication.CreateMessage

        ' Заполнить свойства сообщения:
        'тема...
        Msg.Subject = msgSubject
        'содержание...
        Msg.Body = msgBody & Chr(13) & "С уважением, " & CurUser.SysName & "." & _
                 Chr(13) & ThisApplication.CurrentTime
        'получатель...
        Msg.To = ThisApplication.Users(ToWhom)
        'высокий приоритет...
        Msg.Priority = tdmPriorityHigh
        'нужно уведомление о прочтении...
        Msg.ReadReceipt = True

        ' Отослать сообщение
        Msg.Send
End Sub
'============================================================================
==

  • Откуда: Иркутск
  • На форуме с 19 ноября 2010г.
  • Сообщений: 52
  • Спасибо: 1

Re: Скрытое создание письма

Да, именно в черновиках. Забыл дописать. Пример кода я вставил. оттуда и брал. Создаю сообщение, и добавляю: заголовок, текст, ссылки.
Сообщение создается, но в нем только ссылки на файлы. А заголовок с текстом не сохраняются.

Ответ от vorona (изменено: vorona, 14 января 2011г. 11:31:30)

  • На форуме с 30 октября 2008г.
  • Сообщений: 91
  • Спасибо: 0

Re: Скрытое создание письма

Kirzaa пишет:

Да, именно в черновиках. Забыл дописать. Пример кода я вставил. оттуда и брал. Создаю сообщение, и добавляю: заголовок, текст, ссылки.
Сообщение создается, но в нем только ссылки на файлы. А заголовок с текстом не сохраняются.

Это вобщем то баг, с другой стороны не было предусмотрено, что кто нибудь захочет так сохранять письма. В ближайшей сборке обещали исправить.   ;)

  • Откуда: Иркутск
  • На форуме с 19 ноября 2010г.
  • Сообщений: 52
  • Спасибо: 1

Re: Скрытое создание письма

vorona пишет:

Это вобщем то баг, с другой стороны не было предусмотрено, что кто нибудь захочет так сохранять письма. В ближайшей сборке обещали исправить.   ;)

Так... понятно. Сохранить сообщение с данными не открывая его нельзя. Тогда подскажите, как автоматически его закрыть, что бы пользовательне сам не закрывал окно. т.е. открыть его, чтоб все записалось, и тут же закрыть?

  • На форуме с 30 октября 2008г.
  • Сообщений: 91
  • Спасибо: 0

Re: Скрытое создание письма

Kirzaa пишет:

Так... понятно. Сохранить сообщение с данными не открывая его нельзя. Тогда подскажите, как автоматически его закрыть, что бы пользовательне сам не закрывал окно. т.е. открыть его, чтоб все записалось, и тут же закрыть?

Нет такого метода  TDMSMessage которое бы принудительно закрывало письмо. Посидев некоторое время нашел извращенный способ как можно сохранить данные.

sub CreateMess()
dim Mess, ms

set Mess = ThisApplication.CreateMessage 'создаем письмо


'msgbox Mess.MailFolder.Description


set ms = Mess.MailFolder.Messages(0) 'получаем созданное письмо из папки в которой оно лежит

'забиваем данные
ms.Body = "test" 

ms.To = "SYSADMIN"

end sub

вот после такого маленького извращения в письме все же сохраняются данные  :) Созданное новое письмо в коллекции всегда будет с индексом 0 думаю это не составит проблему для создания цикла в котором можно создавать кучку писем.  :)

  • Откуда: Иркутск
  • На форуме с 19 ноября 2010г.
  • Сообщений: 52
  • Спасибо: 1

Re: Скрытое создание письма

Спасибо большое!
Всего одна строчка и никаких проблем!)))