Dim outlookNameSpace As Outlook.NameSpace
Dim folderRoot As MAPIFolder, folderInbox As MAPIFolder
Dim mailIn As Outlook.MailItem, mailOut As Outlook.MailItem
Set outlookNameSpace = Application.GetNamespace("MAPI")
Set folderRoot = outlookNameSpace.Folders("mail.tut.by")
Set folderInbox = folderRoot.Folders("Input")
Set mailIn = folderInbox.Items(1)
Set mailOut = mailIn.Reply
mailOut.subject = "Sub Hello"
mailOut.body = "Hello"
mailOut.Send
Генерация автоматического ответа на e-mail (VBA в Outlook)
Привет!
При отправке ответа на письмо, тело письма остается пустым.
Само письмо создается и тема письма записывается правильно.
Программа разрабатывается на VBA в Microsoft Outlook 2002 SP-2.
Вот фрагмент кода программы:
Но, если на последней команде поставить точку останова. Выполнить программу до этой точки останова. В окне Locals раскрыть свойства объекта mailOut, то появляется несколько раз предупреждение: "Программа пытается получить доступ к адресам электронной почты, хранящихся в Outlook. Разрешить доступ на...?".
То не зависимо от того разрешен доступ или нет, после продолжения выполнения программы тело вновь созданного письма становитья правильным.
Может дело в политики безопастности.
В чем проблема?
1. Почуму тело письма остается пустым?
2. Как отключить появление окна с предупреждением о доступе к адресам электронной почты?
3. Как отключить окно "Программа пытается автоматически отправить сообщение от Вашего имени. Разрешить это действие?", которое появляется при выполнении команды mailOut.Send?
Заранее благодарен, Максим!
При отправке ответа на письмо, тело письма остается пустым.
Само письмо создается и тема письма записывается правильно.
Программа разрабатывается на VBA в Microsoft Outlook 2002 SP-2.
Вот фрагмент кода программы:
Код:
Но, если на последней команде поставить точку останова. Выполнить программу до этой точки останова. В окне Locals раскрыть свойства объекта mailOut, то появляется несколько раз предупреждение: "Программа пытается получить доступ к адресам электронной почты, хранящихся в Outlook. Разрешить доступ на...?".
То не зависимо от того разрешен доступ или нет, после продолжения выполнения программы тело вновь созданного письма становитья правильным.
Может дело в политики безопастности.
В чем проблема?
1. Почуму тело письма остается пустым?
2. Как отключить появление окна с предупреждением о доступе к адресам электронной почты?
3. Как отключить окно "Программа пытается автоматически отправить сообщение от Вашего имени. Разрешить это действие?", которое появляется при выполнении команды mailOut.Send?
Заранее благодарен, Максим!