Вытаскивание адреса получателя из Outlook с помощью Basic

[Arata]

Подскажите, пожалуйста, какой код мне нужно написать, чтобы при отправке письма в Outlook 2007 адрес полуателя записывался в какой-нибудь текстовый файл. Наверняка с помощью VBA или VBScript это можно сделать в несколько строчек, но в Бэйсике я дуб дубом, чисто на институтском уровне помню. Кто знает, нипишите код, пожалуйста

[x77]

в общем с случае делается так:

1. открывается новое сообщение
2. форма открывается на разработку (в ленте должна быть вкладка "Разработчик", на ней - педаль "Конструктор - эта форма")
3. в конструкторе открываете VisualBasic, вылезет окно со скриптами
4. слева в дереве будет дефолтовый скрипт ThisOutLook Session
5. щёлкаете на него, вывалится рыба для процедуры:

Код:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
End Sub

это событие по умолчанию, ItemSend, возникающее всегда, когда отправляется письмо. в него можно прописать, например:

Код:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If MsgBox(Item.Subject, vbYes, "Sample") = vbYes Then
    End If
End Sub

 - здесь при отправке письма его тема всегда выводится на экран в диалоговом окне.

6. всё закрываете, на все вопросы сохранить отвечаете да.

соответственно, вам надо разобратся как из Item (а это и есть объект, представляющий собой письмо) вытащить поле "Кому" и засунуть в файл. тут уже пускай спецы по VB подскажут, я в этом не волоку. и посмотрите справку, она достаточно здравая и вся с примерами.

[Arata]

Нууу, спасибо конечно, за подробный ответ, только до этого я тоже уже дошел. Мне нужен был именно код. Всего одна или две строчки. Кто-нибудь, подскажите.

[x77]

ну, в файл, допустим, можно и так:

Код:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  F = FreeFile
  Open "c:\outlook.log" For Append As #F
  Print #F, Item.Subject
  Close #F
End Sub

,

но вот как из Item список адресов вытащить - я лично не в теме.

[x77]

а ларчик просто открывался - оказывается, это Item.To

[Arata]

Спасибо. Попробую, отпишусь

[Arata]

x77, огромнео спасибо. Работает отлично, именно так, как мне нужно  )

[x77]

не во что

[Arata]

Ну ё-моё   
Все работало отлично до первого перезапуска Outlook. После того, как я закрыл и снова открыл Outlook, скрипт работать перестал. Он остался, но больше не работает. Не пойму, в чем дело 

[Arata]

Все, я сам дурак. Дело было в настройках безопасности макросов. Я там поигрался немного, от этого и проблема была. Сейчас разрешил все макросы на выполнение и сразу заработало 

[Arata]

Продолжаю тему   
Если контакт получателя уже имеется в Outlook, то в файл записывается его имя, а не адрес, например есть адрес vasya@mylo.ru, и есть контакт Вася с этим мылом. Если перед отправкой вставить в поле Кому этого Васю, то в файле outlook.log так и запишется "Вася", а не "vasya@mylo.ru".
Есть какие-нибудь идеи? Сейчас пока поищу, какие еще есть атрибуты события ItemSend, но на вашу помощь тоже рассчитываю, ибо в Бэйсике полный профан.

[Sla]

кури
http://msdn.microsoft.com/en-us/library/bb147566.aspx

[Arata]

Не фига не помогло. Может если еще денек посижу за переводом различных текстов с этого сайта, то в конце концов и найду ответ, но это не дело. Для того и пишу на форум, что получить максимально быстрый ответ от того, кто его знает.

[Sla]

Using the MailItem Object
Use the CreateItem method to create a MailItem object that represents a new mail message. The following example creates and displays a new mail message.

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Display
      
Use Items (index), where index is the index number of a mail message or a value used to match the default property of a message, to return a single MailItem object from an Inbox folder. The following example sets the current folder as the Inbox and displays the second mail message in the folder.

Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
myFolder.Display
Set myItem = myFolder.Items(2)
myItem.Display
      
Remarks
If a program tries to reference any type of recipient information by using the Outlook object model, a dialog box is displayed that asks you to confirm access to this information. You can allow access to the Address Book or recipient information for up to ten minutes after you receive the dialog box. This allows features, such as mobile device synchronization, to be completed.

You receive the confirmation dialog box when a solution tries to programmatically access the following properties of the MaiItem object:

SentOnBehalfOfName
SenderName
ReceivedByName
ReceivedOnBehalfOfName
ReplyRecipientNames
To
CC
BCC
Body
HTMLBody
Recipients
SenderEmailAddress

[Arata]

Опять же ты просто привел дословный текст, а как это применить, не указал. Я тоже это читал и накурился этого добра уже выше крыши. Я уже забил на это, потому что долго и непродуктивно. Изменил условия задачи, так что мне теперь достаточно свойства Item.To

[Sla]

Arata, т.е. ты считаешь, что тебе слабо вывести все эти "подозреваемые" поля, чтобы проанализировать самостоятельно, и считаешь, что это должны сделать здесь на форуме.
Тебе мало, что тебе написали код, ткнули куда смотреть...

[Arata]

Во-первых, я проверил все эти поля и это все лажа. Сам бы проверил, прежде чем давать совет.
Во-вторых, я считаю, что "это должны сделать здесь на форуме". Ты очень догадлив. Тыкать во всякие MSDN может каждый...
А полезный код написал только x77, при чем здесь твои возмущения Sla, я не пойму.

[Kivals]

Offtopic:

Arata, потому что на форуме помагают, а не делают за тебя - разницу чувствуешь? Наша задача - натолкнуть тебя на правильную мысль, а разобраться ты должен сам. Ткнуть в правильный MSDN - тоже нужно уметь. Тебе же не написали адрес http://msdn.microsoft.com. Так что претензия не принимается

Еще одна мысль: то, что возвращет поле To - может быть не строка, а объект и у него могут быть свои свойства (например email, name, ...) Попробуй проверить

[Sla]

Arata, а я не Х77, у меня к счастью, времени, пока, чуть побольше чем у него.

Я даже не сильно напрягаюсь.
Ставлю точку останова на входе в процедуру и в окне wathes анализирую объект Item
и прекрасно нахожу то что мне нужно, впрочем и то что нужно и тебе
список Recipients

ps на форуме никто никому ничего не должен. Здесь за помощь денег не требуют.

ззы заходи если чо

[Arata]

Sla, и где же я говорил, что "мне должны"?
И теперешний твой совет не многим лучше. Я пробовал Recipients, у меня вылетала ошибка, дословно не помню, что-то вроде того, что нет такого параметра. Читай мой первый пост: "в Бэйсике я дуб дубом". Вот если приведешь конкретный пример, как к этому списку обращаться, то вот то уже дело.
З.Ы. Я уже сказал, что больше мне это не нужно. Другим способом задачу решил, без Бэйсика.