открытие Outlook .msg-файла с помощью vba excel

Привет, ребята, у меня есть следующий код

Sub Kenneth_Li() Dim objOL As Outlook.Application Dim Msg As Outlook.MailItem Set objOL = CreateObject("Outlook.Application") inPath = "C:\Users\SiliconPlus\Desktop\Si+ Contact Lists\Contact_Si+" thisFile = Dir(inPath & "\*.msg") Do While thisFile <> "" 'Set Msg = objOL.CreateItemFromTemplate(thisFile) 'Or Set Msg = objOL.OpenSharedItem(thisFile) Msg.display MsgBox Msg.Subject thisFile = Dir Loop Set objOL = Nothing Set Msg = Nothing End Sub

Всякий раз, когда я использую OpenSharedItem, он дает ошибку во время выполнения. 438 Объект не поддерживает это свойство или метод.

И всякий раз, когда я использую CreateItemFromTemplate, я получаю следующую ошибку:

 Cannot open file: AUTO Andy Low Yong Cheng is out of the office (returning 22 09 2014).msg. The file may not exist, you may not have permission to open it, or it may be open in another program. Right-click the folder that contains the file, and then click properties to check your permissions for the folder.

Я не на 100% на то, что вы пытаетесь получить с кодом, но попробуйте это:

 Sub LiminalMsgbx() Dim outappp, outmaill As Object Dim pthh As String pthh = "C:\DeskTop\MyTemplate.oft" Set outappp = CreateObject ("Outlook.Application") Set outmaill = outapp.CreateItemFromTemplate(pthh) With outmaill .display End With Set outappp = Nothing Set outmaill = Nothing End Sub

Вы также можете использовать .send вместо .display .

Метод OpenSharedItem открывается объектом Namespace, а не Application.

 Set objOL = CreateObject("Outlook.Application") set objNs = objOL.GetNamespace("MAPI") objNs.Logon ... Set Msg = objNs .OpenSharedItem(thisFile)

Что касается второй ошибки, это довольно однозначно – файл не может быть найден. Вы должны предоставить полное имя файла с помощью пути к папке. Вы предоставляете только имя файла.

Экспорт писем из Outlook и разбиение тела почты на определенные ключевые слова с использованием VBA

VBA: создание Outlook All Day Event Назначение

Основы ввода-вывода Excel txt

Как получить доступ к свойствам Outlook GAL для каждой записи

Excel vba Items.restrict 2 условия

Тип несоответствия Excel / Outlook vba

выберите, на какую учетную запись отправить адрес электронной почты Outlook?

VBA Script mulitple Записи Outlook за один день

Outlook 2010 GAL с Excel VBA

Создание электронной почты из Excel с использованием цикла для перехода по строкам

Сравнение столбцов - VBA