Ситуация:
работаю в банке. почта идет через Exchange сервер. клиент Outlook. посылать на внешнюю почту могу. НО.. почему то если ставить перенаправление почты из Outlook'а то письма не идут. IT служба естественно не чешется ни хрена. А надо пересылать некоторые письма которые приходят уже после окончания рабочего дня на домашний ящик.
соответственно надо сделать макрос чтобы делал новое письмо и посылал.
проблема с обычным способом описанным тут
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
в том что для того чтобы послать требует подтверждения вручную.
без подтверждения возможно через CDO.Message
так вот написана примерна такая фигня:
Sub tst()
Dim Msg ' As CDO.Message
Dim Config ' As CDO.Configuration
' Create message and configuration objects.
Set Msg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
' Get the message configuration object.
Set Config = Msg.Configuration
' Set the sendusing field to 'cdoSendUsingExchange'.
Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 3
' Set the mailboxurl field to the specified mailbox URL.
Config("http://schemas.microsoft.com/cdo/configuration/mailboxurl") = "http://сервер/Exchange/ник/"
' Update the fields.
Config.Fields.Update
так вот в дебаге на Update все время говорит:
Fields update failed/ For further information, examine the Status property of individual field object
сервер брался из:
Панель управления-почта-учетные записи-свойства MIcrosoft Exchange Server
ник пытался брать и оттуда и то что до собаки в корпоративной почте
поискал по инету - как то особо никто не пишет...
может кто в курсе что конкретно там вообще надо написать чтобы прошло?
работаю в банке. почта идет через Exchange сервер. клиент Outlook. посылать на внешнюю почту могу. НО.. почему то если ставить перенаправление почты из Outlook'а то письма не идут. IT служба естественно не чешется ни хрена. А надо пересылать некоторые письма которые приходят уже после окончания рабочего дня на домашний ящик.
соответственно надо сделать макрос чтобы делал новое письмо и посылал.
проблема с обычным способом описанным тут
Ссылка скрыта от гостей
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
в том что для того чтобы послать требует подтверждения вручную.
без подтверждения возможно через CDO.Message
так вот написана примерна такая фигня:
Sub tst()
Dim Msg ' As CDO.Message
Dim Config ' As CDO.Configuration
' Create message and configuration objects.
Set Msg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
' Get the message configuration object.
Set Config = Msg.Configuration
' Set the sendusing field to 'cdoSendUsingExchange'.
Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 3
' Set the mailboxurl field to the specified mailbox URL.
Config("http://schemas.microsoft.com/cdo/configuration/mailboxurl") = "http://сервер/Exchange/ник/"
' Update the fields.
Config.Fields.Update
так вот в дебаге на Update все время говорит:
Fields update failed/ For further information, examine the Status property of individual field object
сервер брался из:
Панель управления-почта-учетные записи-свойства MIcrosoft Exchange Server
ник пытался брать и оттуда и то что до собаки в корпоративной почте
поискал по инету - как то особо никто не пишет...
может кто в курсе что конкретно там вообще надо написать чтобы прошло?