открытие 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
  • Interesting Posts

    Powerapps: таблица фильтров с другой таблицей

    Как я могу выделить шрифты определенной строки или ячейки в листе Excel с помощью C #?

    excel vba – удалить ячейку из варианта, основанного на пробеле в другом столбце

    как открыть гиперссылку в веб-браузере в окнах 10

    Преобразование текстового файла в Excel

    Номер формата в текст в SSRS

    Получение «ПРЕДУПРЕЖДЕНИЕ: Augmenter следует применять к экземплярам классов @Augmentable или ранее дополненным экземплярам»

    I преобразует предикторную переменную в 10 раз. Почему при однократной регрессии пропорциональных рисков Кокса изменяется ли значение p-значения?

    Excel 2010 VBA «Если» Поток справа налево или слева направо

    Макро или формула Excel для дат стандартизации

    Изменение размера графика в PowerPoint после вставки его из Excel (Excel VBA)

    Как сгибать данные в Excel с помощью многомерного полинома?

    Настроить цифровую ось диаграммы Excel

    База данных в Excel с использованием win32com или xlrd или базы данных в mysql

    Как читать файл excel с локального диска в plsql?

    Давайте будем гением компьютера.