Любой язык

surgutfred · Отправлено: **14:31, 13-07-2017** | #11

DeathMan2k4, когда у меня встал такой вопрос я решил только через использование сторонней программы с вызовом через bat

Код:

"C:\Program Files (x86)\TotalMailConverter\MailConverter.exe" "%PUT%" "%PUT%" -kfs -c XHTML -template "[nn]. [date] - [subject]" -sender:off -rcpt:off -subject:off -attach -iattach:off -images:off -msg:off -dpi 300 -pc M -PDFAuthor Softplicity -pdfver 1.4 -TM 1 -LM 1 -BM 1 -RM 1 -ps A4 -tc G4 -tjq 80 -HeadText "Page [page]" -HeadAlign c -HeadFont Tahoma -HeadSize 10 -FootText [date] -FootAlign c -FootFont Tahoma -FootSize 10 -r

Если кто решит только через bat то же буду благодарен...

Iska · Отправлено: **17:11, 13-07-2017** | #12

Цитата surgutfred:

Если кто решит только через bat »

surgutfred, никто не решит. Пакетные файлы — не тот уровень.

dahiko · Отправлено: **15:07, 29-04-2021** | #13

Всем привет!
Этот скрипт почему-то перестал работать. Последний раз им пользовался примерно год назад. Возможно офис обновился и что-то надо подправить?

Код:

$outlook = New-Object -comobject outlook.application
Get-ChildItem C:\Users\Vasya\Desktop\111\ -Filter *.msg| ForEach-Object{
   $outlook.CreateItemFromTemplate($_.FullName)
} | Select senderemailaddress,to,subject,Senton | Export-Csv C:\Users\Vasya\Desktop\111test.txt -Encoding UTF8

Подскажите, кто знает? Такая ошибка возвращается

Код:

Исключение при вызове "CreateItemFromTemplate" с "1" аргументами: "Невозможно привести COM-объект типа "Microsoft.Office.Interop.Outlook.ApplicationClass" к интерфейсному
 типу "Microsoft.Office.Interop.Outlook._Application". Операция завершилась со сбоем, поскольку вызов QueryInterface COM-компонента для интерфейса с IID "{00063001-0000-0
000-C000-000000000046}" возвратил следующую ошибку: Библиотека не зарегистрирована. (Исключение из HRESULT: 0x8002801D (TYPE_E_LIBNOTREGISTERED))."
C:\Users\Vasya\Desktop\111\111.ps1:3 знак:4
+    $outlook.CreateItemFromTemplate($_.FullName)
+    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : NotSpecified: (:) [], MethodInvocationException
    + FullyQualifiedErrorId : InvalidCastException

Пробовал:
1. "-comobject" менять на "-com". Прочитал на одном из форумов, что должно помочь с более новыми версиями Office, но не помогло.
2. В реестре удалять все разделы с именем 00063001-0000-0000-C000-000000000046. Прочитал на одном форуме, что это может остатки от прошлой версии Office, которые мешают. Но не помогло.

Вот здесь прочитал, что похожая проблема вызвана тем ,что разные версии Office и Skype установлены. Да это так. Office 2013, а Skype 2016. Обходное решение, которое там описано, оно не помогает. После удаления ветки реестра HKEY_CLASSES_ROOT\TypeLib\{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}\2.8 та же ошибка.