Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
Лифчик
Member

Откуда:
Сообщений: 1699
Системщики перекинули наше барахло на другой девайс, а в наших файлах были абсолютные ссылки. Теперь переправляю. С Word & Excel проблем нет, там файлы Открываются.
А в Аутлуке никак не могу докопаться, чтобы открывать внешний по отношению к хранилищу файл, содержащий письмо :(((

Как делать?
Set itm = Outlook.Application...???

Нет знакомого метода Open :(((

Мабуть поможет хто?
24 мар 04, 13:18    [594275]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
Лифчик
Member

Откуда:
Сообщений: 1699
Я такой несчастный, такой несчастный Картинка с другого сайта.
24 мар 04, 14:10    [594456]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
Лох Позорный
Member

Откуда:
Сообщений: 9898
Я такой несчастный, такой несчастный
Зато такой улыбающийся :)

З.Ы. Могу помочь только переносом топика куда-нибудь :)
24 мар 04, 14:19    [594495]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
SergeySV
Member

Откуда: Москва
Сообщений: 1073
Хочешь открыть чтобы была еще объектная ссылка на него?

ща посмотрю как это раньше делал...
24 мар 04, 14:28    [594519]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
SergeySV
Member

Откуда: Москва
Сообщений: 1073
Случай действительно тяжелый:

CreateObject("Outlook.Mailitem") не работает, такого объекта нет, есть всякие Outlook.AttMsg и другая фигня, а вот

соответсвенно GetObject("C:\1.msg") тоже ничего не дал

видимо остается токо одно - запускать *.msg как Shell, а потом быстренько конектиться к Outlook и через всякие ActiveExplore выходить программным путем на открывшиеся окно Mailitem - весело вообщем
24 мар 04, 14:52    [594603]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
Лифчик
Member

Откуда:
Сообщений: 1699
2 SergeySV: сверхзадача конечно открыть и начать с ним работать как с MailItem, в частности контекстно править сообщение. Но я в Хелпе упираюсь все время в MapiFolder-ы. А файлики msg - они в обычных папках болтаются. Может надо программно сначала линковать эту папку как внешнюю личную, а потом уже открывать файл как находящийся в списке папок Mapi, а потом закрывать и удалять папку из прилинкованных?

2 Лох: мы еще здесь поборемся-посмеемся надо мной

На превью увидел ответ Сергея и погрустнел:(((
24 мар 04, 14:55    [594619]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
Лифчик
Member

Откуда:
Сообщений: 1699
Не читайте фантазийную часть моего предыдущего сообщения. Самому смешно, что сказал про папки :(((
24 мар 04, 15:07    [594653]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
Victosha
Member

Откуда: Москва
Сообщений: 2620
вот пример из книжки про отл2002, взят с msdn, как закинуть из каталога в инбокс - может поможет (заменой Dim objDocItem 'As DocumentItem на ' AS MailItem ) Application - аутлуков.

Dim objWord 'As Word.Application
Dim objDoc 'As Word.Document
Dim objSelect 'As Word.Selection
Dim objDocItem 'As DocumentItem
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add
Set objSelect = objWord.Selection
objSelect.TypeText "Word document created with Automation"
strPath = GetTempDir & "\test.doc"
objDoc.SaveAs strPath
Set objDocItem = Application.CopyFile(strPath, "Inbox")
objDocItem.Display
Set objWord = Nothing

ЗЫ отл я шибко люлю, но млин, живьем уже больше полугода не видел, аж буквы забывать стал
24 мар 04, 15:17    [594699]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
SergeySV
Member

Откуда: Москва
Сообщений: 1073
Нашел функцию еще лучше, по смыслу работает так как Лифчик и предлагал, так что фантазируй почаще


This sub will import a msg file into outlook.
The FileName should include the path info and
the FolderName is which folder inside outlook
to place the message.

Public Sub ImportMsgFromFile(FileName As String, FolderName As String)
'
'
ImportMsgFromFile: Import a msg or olt file into a specific outlook folder
'Example Use: ImportMsgFromFile "C:\WINDOWS\Desktop\test.msg","Misc"
'

Dim olApp As Outlook.Application
Dim fldr As MAPIFolder
Dim msg As MailItem
'use automation to create link to outlook
Set olApp = New Outlook.Application

If FolderName <> "" Then
'
get the folder which should be in the users personal folders
Set fldr = olApp.GetNamespace("MAPI").Folders("Personal Folders").Folders(FolderName)
End If
If FileName <> "" Then
If Dir(FileName) <> "
" Then
'load the meg file into the drafts folder
Set msg = olApp.CreateItemFromTemplate(FileName)
'
save it
msg.Save
If FolderName <> "
" Then
If Not fldr Is Nothing Then
'move the restored message into the desired folder
msg.Move fldr
End If
End If
End If
End If
'
always clean up memory
Set msg = Nothing
Set fldr = Nothing
Set olApp = Nothing
End Sub


P.S. ОБАННА, теги в Опере заработали, класс, чертовски приятно а то раньше все вручную писал
24 мар 04, 15:33    [594748]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
SergeySV
Member

Откуда: Москва
Сообщений: 1073
Функцию кстати и себе заныкал, вещь полезная, как раз в будущем предполагалось с таким же геммороем столкнуться
24 мар 04, 15:35    [594757]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
Victosha
Member

Откуда: Москва
Сообщений: 2620
CreateItemFromTemplate - вот ЕГО-то я без справки и не мог вспомнить никак, - вроде оно, а вроде и нет - дырка в голове непрерывно расширяется -
ЗЫ
а был ведь когда-то знатным писакой под outlook -))
24 мар 04, 15:38    [594767]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
SergeySV
Member

Откуда: Москва
Сообщений: 1073
2Victosha: А ты с формами в Outlook'е имел дело?
24 мар 04, 15:51    [594816]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
Victosha
Member

Откуда: Москва
Сообщений: 2620
немного баловался, но до "промышленного" использования дело не дошло - рад причин.
спроси - чего не вспомню - дома посмотрю - какие-то штюки еще должны найтись
24 мар 04, 15:58    [594841]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
SergeySV
Member

Откуда: Москва
Сообщений: 1073
ОК, тогда буду у тебя консультироваться.
Просто в ближайшее время собираюсь этим занятся, надоели уже эти отделения, которые заявки заполняют в письме Oulook, где оставленны промежутки в тексте письма для заполнения - такое понапишут, так все форматирование письма переделают, что у меня уже целый блок анализирующих текст письма функций работает и все равно с завидным постоянством находится какой-нибудь кулибин, который напишит так, что функции уже ничего понять не могут и бывает так, что после анализа такого письма в поле должность появляется фамилия чувака и т.д. вообщем сбацать им формы, чтобы они уже никакой от себятины в запросы не пихали, да и ругаться на пользователя можно будет сразу на месте, как какую ерунду напишет
24 мар 04, 16:09    [594886]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
Victosha
Member

Откуда: Москва
Сообщений: 2620
-)
если смогу

а консультироваться лучше у Сью Мошер - есть такая дама - собак в оутлуке съела, кажется всех, ( хотя у мене осталось пара неотвеченных ею вопросов -)) живет по адресу www.slipstick.com


PS - ето я не посылаю - мне ето будет очинно даже интересно - подержаться за курс, может и самому когда пригодится.
24 мар 04, 16:13    [594895]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
SergeySV
Member

Откуда: Москва
Сообщений: 1073
24 мар 04, 16:43    [594997]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
Лифчик
Member

Откуда:
Сообщений: 1699
Не выходил на связь, потому как вручную 128 писем просмотрел и где надо переправил В данном случае метод оказался оптимальным по соотношению цена/качество. А тут за это время Умы задачку щелкнули, спасибо! Будем пользоваться теперь, т.к. кол-во спасенных писем рАстет и мало ли чего с ними надо будет делать групповым образом
Еще раз громадный сенькс!
24 мар 04, 16:52    [595046]     Ответить | Цитировать Сообщить модератору
Между сообщениями интервал более 1 года.
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
Taranaga
Member

Откуда: Волгоград -> Москва
Сообщений: 466
Недавно столкнулся и вон какой простой способ нашелся:

Shell ("explorer.exe " & "Путь и имя файла"))
12 сен 17, 11:40    [20789335]     Ответить | Цитировать Сообщить модератору
 Re: Как из VBA открыть Outlook Item, лежащий отдельно в виде .msg файла?  [new]
Djenie
Member

Откуда:
Сообщений: 10
Taranaga, подскажите, пожалуйста, а как файл, открытый функцией SHELL, закрыть?
18 июн 18, 13:41    [21499672]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить