Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Перенесено из VB6/MS Access]VBA в Outlook, нужна помощь в написании скрипта 
:(
    Опции темы
Demias
Дата 22.10.2009, 22:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 22.10.2009

Репутация: нет
Всего: нет



Собственно мне нужно помощь по программированию в аутлуке, не знаю к кому обратится, перерыл в интернете все что только можно - не нашел. Стоит элементарная задача - при нажатии на кнопку "ответить" или "ответить всем" происходила проверка поля "Кому", если там будет адрес N, то его надо заменить на другой. Это казалось бы легко реализуемо, но проблем а в том, что письма эти как бы получаются пересылкой с другого моего почтового ящика, и соответственно при ответе на такое письмо аутлут пытается отвечать на мой же ящик с которого шла пересылка. А вот как вставить в поле "Кому" первого человека, который и написал это письмо. Как найти его адрес через макрос\скрипт в айтлуке?
Если вам некогда или не хотите этим заниматься, я все пойму, но если не трудно, то хотя бы укажите как найти или где найти такую информацию. Я растерян  smile 
PM MAIL   Вверх
ne_tru_e
Дата 22.10.2009, 23:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Приношу жертвы MS
*


Профиль
Группа: Участник
Сообщений: 94
Регистрация: 20.1.2008

Репутация: нет
Всего: 4



Макросы в аутлуке... Если б они ещё там были smile Проще наверное в ворде найти функции отправки мыла, чем в аутлуке откопать макросы.
Советую заглянуть на http://msdn.microsoft.com/ru-ru/default.aspx и поискать там. Не макрос, так плагин ;)

Это сообщение отредактировал(а) ne_tru_e - 22.10.2009, 23:06
PM WWW Jabber   Вверх
artdev
Дата 23.10.2009, 17:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 3.9.2009

Репутация: 1
Всего: 1



Развитие примера из "Outlook Visual Basic reference". Как это будет работать:

0. Вставляете нижеприведенный код в модуль "ThisOutlookSession"
1. Открываете письмо, которое надо переслать двойным щелчком или командой "Открыть".
2. Руками (Сервис->Макрос...) запускаете на выполнение макрос ThisOutlookSession.Initialize_Handler
3. Нажимаете кнопку "Отправить". Пока отправки не произойдет, но вы убедитесь в том, что адрес изменился. В дальнейшем, после отладки, письмо будет отправляться программно

Код

Public WithEvents Letter As MailItem

Private Sub Letter_Reply(ByVal Response As Object, Cancel As Boolean)
  Const OldAddress = "[email protected]"
  Const NewAddress = "[email protected]"
  Dim rcpts As Recipients
  Dim rcpt As Recipient
  Dim lngIndex As Long
  
  Set rcpts = Response.Recipients
  For Each rcpt In rcpts
    If LCase(rcpt.Address) = LCase(OldAddress) Then
      lngIndex = rcpt.Index
      rcpts.Remove lngIndex
      Exit For
    End If
  Next
  Set rcpt = rcpts.Add(NewAddress)
  rcpt.Type = olTo
  rcpt.Resolve
  Set rcpt = Nothing
  Set rcpts = Nothing
End Sub

Sub Initialize_Handler()
  Set Letter = ActiveInspector.CurrentItem
End Sub

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0981 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.