Vb+outlook+cdo.message что надо писать там?

Тема в разделе "Visual Basic", создана пользователем justS, 13 апр 2010.

Наш партнер Genesis Hackspace
  1. justS

    justS Гость

    Ситуация:
    работаю в банке. почта идет через Exchange сервер. клиент Outlook. посылать на внешнюю почту могу. НО.. почему то если ставить перенаправление почты из Outlook'а то письма не идут. IT служба естественно не чешется ни хрена. А надо пересылать некоторые письма которые приходят уже после окончания рабочего дня на домашний ящик.
    соответственно надо сделать макрос чтобы делал новое письмо и посылал.
    проблема с обычным способом описанным тут http://support.microsoft.com/kb/161088:
    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
    ник пытался брать и оттуда и то что до собаки в корпоративной почте

    поискал по инету - как то особо никто не пишет...
    может кто в курсе что конкретно там вообще надо написать чтобы прошло?
     
Загрузка...
Похожие Темы - Vb+outlook+cdo message что
  1. kutzhanov
    Ответов:
    6
    Просмотров:
    313
  2. R4z0R
    Ответов:
    1
    Просмотров:
    183
  3. ToxaRat
    Ответов:
    3
    Просмотров:
    1.478
  4. NickProstoNick
    Ответов:
    7
    Просмотров:
    1.803
  5. Senset
    Ответов:
    2
    Просмотров:
    2.326

Поделиться этой страницей