Вопрос : Легк измените общительный адрес.  Внешний вид 2010 (или 2007 или 2003)

Мы получаем клиента посылает почту от 50-75 по-разному адресов (длиннего рассказа).  Ответами получают в использовании собственнической системы - они не будут реальные счеты, но ответы получают к потребителю - думают ее как адрес специального символа если вы will.

Anyway, мы завершенные посылая способность using внешний вид 2007 и внешний вид 2010 путем иметь второй учет setup на машине клиента using SMTP.  Когда он хочет послать, ему нужно пойти к установкам учета и после этого изменить адрес электронная почта.  Он работает, но будет болью для его.

Now с внешним видом 2010, там будет также checkbox которому нужно быть непроверен: «Установки учета испытания путем щелкать следующей кнопкой» учет setup с фиктивный сервером smtp, в виду того что не проверять почты.  Мы не хотим к test.

At минимум, я хотим увидеть если будет дорога к постоянно uncheck этот вариант испытания в

Optimally, то внешнего вида 2010., , котор я хотел был бы иметь некоторым видом Кодего VBA который можно побежать для того чтобы изменить адрес электронная почта на проницательности account.

Any были бы appreciated. class=

Ответ : Легк измените общительный адрес.  Внешний вид 2010 (или 2007 или 2003)

Принимающ вас имейте выкупление add-in как около:

testone как раз что режим испытания к демонстрации оно работая
changeSender будет режим фактическ изменяет адрес ответа пока использующ первоначально посылая учет:

i.e. doris@doris будут адресом электронная почта прислужника но после того как функция оно получена как:

Кто-то, ([email protected])

Крис
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Sub testone ()
Тусклый mai как MailItem

    Установите mai = Application.CreateItem (olMailItem)
    mai changeSender
    mai. = «fred.fred.com»
    mai. Вопрос = «испытание changesender»
    mai. Пошлите

Закончите подводную лодку

Sub changeSender (mai как MailItem)
Затемните sItem как Redemption.SafeMailItem
Затемните str как вариант
Затемните бирку как длиной

    Установите sItem = CreateObject («Redemption.SafeMailItem»)
    sItem.item = mai
    бирка = sItem.GetIDsFromNames («{00020386-0000-0000-C000-000000000046}», «от»)
    бирка = бирка или &H1E     'тип будут PT_STRING8
    sItem.Fields (бирка) = «кто-то »
    sItem.Subject = sItem.Subject 'для того чтобы trick внешний вид в думать что что-то изменяло
    sItem.Save

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us