|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.04.2010, 22:09 | #1 |
Регистрация: 03.04.2010
Сообщений: 4
|
немного не Excel, но... Vb+outlook+cdo.message что надо писать там?
Ситуация:
работаю в банке. почта идет через 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 ник пытался брать и оттуда и то что до собаки в корпоративной почте поискал по инету - как то особо никто не пишет... может кто в курсе что конкретно там вообще надо написать чтобы прошло? |
13.04.2010, 22:25 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Попробуйте этот код - вдруг получится...
http://programmersforum.ru/showpost....2&postcount=29 |
13.04.2010, 23:20 | #3 |
Регистрация: 03.04.2010
Сообщений: 4
|
в данном примере мне не совсем понятно что нужно писать в месте
.Item(cdoConfigURL & "smtpserver") = smtpserver .Item(cdoConfigURL & "sendusername") = sendusername .Item(cdoConfigURL & "sendpassword") = sendpassword еще раз - отправление почты идет через Exchange - какой там пароль ставить и какой сервер? зы естественно 25 порт у меня закрыт так что послать сам через mail.ru я не могу Последний раз редактировалось justS; 13.04.2010 в 23:22. |
13.04.2010, 23:36 | #4 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Если Outlook получает письма.Они считаются не прочитаными.
Макрос ищет в папке Outlookа не прочитаные письма.выбирает с нужной темой,или по другому признаку.Далее как вложение,или можно прочитать макросом текс письма отправляет вам на домашний ящик.Но для этого создаете еще себе ящик ,и через него отправляете на свой.
Анализ,обработка данных Недорого
|
13.04.2010, 23:46 | #5 |
Регистрация: 03.04.2010
Сообщений: 4
|
извините вы читали что я написал вообще???
естесвенно я пытаюсь создать новое письмо макросом. естественно я пытаюсь его отправить макросом. проблема в том что просто письмо я создать могу, но в этом случае необхолдимо подтверждение отправки а CDO письмо пока создать не могу потому что непонятна конфигурация. про второй ящик вообще не понял что вы хотели сказать кто мне даст сделать второй ящик в банке???? и нахрен мне он там нужен... |
14.04.2010, 02:06 | #6 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Я прекрасно понимаю о чем идет речь.
Макрос на чтение письма Код:
Код:
Анализ,обработка данных Недорого
|
14.04.2010, 11:17 | #7 |
Регистрация: 03.04.2010
Сообщений: 4
|
макрос на чтение письма мне не нужен, потому что у меня он уже есть и прекрасно обрабатывает письма.
я просто его не приводил так как по нему у меня нет никаких вопросов. с вашим вторым макросом - ну во первых тупо копируя его в макросы Outlook и запуская я получаю ошибку уже на строке .Item(cdoSendUsingMethod) = cdoSendUsingPort и отслеживая переменные вижу - cdoSendUsingPort = Empty во вторых - если чесно то даже если заработало бы я не понимаю через что конкретно он пытается его послать? через сервер rambler.ru в примере?? но так 25 порт доступа у меня закрыт к любым внешним серверам. а внутренняя почта идет через Exchange сервер и что для него нужно писать мне непонятно |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
проверьте программу плиз и исправьте что там не так | Gronex | Помощь студентам | 3 | 21.05.2009 17:01 |
проблемка с кодом, результат получается немного не такой как надо | hen | Помощь студентам | 3 | 24.04.2009 15:11 |
Что писать? | MAKEDON | Свободное общение | 9 | 08.08.2008 18:15 |
Помогите немного если не сложно,оч надо(Pascal) | Bremen | Помощь студентам | 7 | 27.07.2008 12:52 |
надо немного дописать... | Acid | Помощь студентам | 2 | 21.05.2007 17:32 |