Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

OutLook

8.0K
14 февраля 2005 года
Lovehero
19 / / 11.02.2005
Обрабатывается событие NewMail Outlook'а. Получено новое письмо. Необходимо в ответ послать другое письмо с заранее заданным текстом.

Подскажите пожалуйста, где можно взять адресс отправителя письма или просто как отправить письмо в ответ.
258
14 февраля 2005 года
SergeySV
1.5K / / 19.03.2003
MailItem.SenderName
8.0K
15 февраля 2005 года
Lovehero
19 / / 11.02.2005
Цитата:
Originally posted by SergeySV
MailItem.SenderName



Простите, но эта строчка дает имя отправителя, а не его е-мейл. Мне нужен именно адресс для отправки на него сообщения.

8.0K
16 февраля 2005 года
Lovehero
19 / / 11.02.2005
Неужели никто ответа не знает?
8.0K
17 февраля 2005 года
Lovehero
19 / / 11.02.2005
Проблема решена.

Dim ReplyMsg As MailItem
Dim Addr as String

Set ReplyMsg = mailmsg.Reply
Addr = ReplyMsg.Recipients.Item(1).Address
258
17 февраля 2005 года
SergeySV
1.5K / / 19.03.2003
Тоже вариант, я решал эту проблему по другому
Код:
Function GetEAddr(oItem As mailitem) As String
  Dim sPathFile As String
  Dim LineOfText As String
  Dim lPos As Long
   
  ' Сохраняем сообщение в текстовый файл...
  sPathFile = Environ("TEMP") & "\" & "mailitem.txt"
  Call oItem.SaveAs(sPathFile, olTXT)
     
  ' Если рассмотреть структуру созданного файла, то в первой строке кроме всего прочего,
  ' содержится электронный адрес отправителя. Задача состоит в том, чтобы прочитать его...
  Open sPathFile For Input As #1
  Line Input #1, LineOfText      ' читаем первую строку файла
  Close #1

  lPos = InStr(1, LineOfText, ":")
  If lPos > 0 Then
     GetEAddr = Trim(Right(LineOfText, Len(LineOfText) - lPos))
  Else
     ' В том случае, если адрес все же не определен, возвращаем известный нам
     '  SenderName...
     GetEAddr = oItem.SenderName
  End If

End Function


Прикол вообщем в том, что готового свойства с e-mail у письма нет, хотя Outlook его и хранит в своих недрах (просто недоработка программеров Мелкомягких, думали наверное что .SenderName хватит), поэтому и приходится идти на разные ухищрения
8.0K
17 февраля 2005 года
Lovehero
19 / / 11.02.2005
Цитата:
Originally posted by SergeySV

Прикол вообщем в том, что готового свойства с e-mail у письма нет, хотя Outlook его и хранит в своих недрах (просто недоработка программеров Мелкомягких, думали наверное что .SenderName хватит), поэтому и приходится идти на разные ухищрения



Ну, если честно, покопавшись, я нашел готовое свойство, тока вот достучатся до него не могу :) Вообще, нашел я одну надстройку интересную, OutlookSpy называется - очень полезная вещь для изучения Outlook'а. Так вот, есть там оказывается такая штука, OutlookSpy обзываеь ее IMessage, в котором есть переменная PR_Sender_EMail_Addres, в которой собственно и содержится искомый нам адресс электронной почты. Только вот как до него достучатся? Предположительно, тут нужно знать что такое MAPI и с чем его едят. Но в этом я к сожалению не силен. :)

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог