Как создать письмо в Outlook?

[Vovsla [?]]

Попробовал использовать функцию _INetMail, письмо создается, но помимо получателя еще нужно указывать кто в копии и добавлять подпись.
Что посоветуете?

[Vovsla [?]]

Нашел 2 темы по этому поводу
https://www.autoitscript.com/forum/topic/101774-shell-execute-mail-to/#comment-723460
http://forum.ru-board.com/topic.cgi?forum=33&topic=10903&start=600

Все работает, только не понятно как добавлять подпись

Код: AutoIt [Выделить]

CreateMailItem()
Func CreateMailItem()
    Const $olByValue = 1
    Local $olMailItem    = 0
    Local $olFormatRichText = 3
    Local $olImportanceLow   = 0
    Local $olImportanceNormal= 1
    Local $olImportanceHigh  = 2

    $oOApp = ObjCreate("Outlook.Application")
    $oOMail = $oOApp.CreateItem($olMailItem)

    With $oOMail
        .To = ("[email protected]")
        .CC = ("[email protected]")
        .Subject = "email subject"
        .BodyFormat =  $olFormatRichText
;~         .Importance = $olImportanceHigh
        .Body = "email message"
;~         .Attachments.Add ($file, $olByValue , 1)
        .Display
        ;.Send ; doesn't work for security reason
    EndWith
EndFunc
 

[Cornet [?]]

Нет у аутлука какого-то специального метода вставки подписи.
Если вам нужно вставлять уже готовые подписи — они хранятся в папке C:\Users\[Name]\AppData\Roaming\Microsoft\Signatures\
Берите в любом удобном вам формате и вставляйте в .Body после основного текста (хотя в вашем случае наверное правильнее вставлять в .RTFBody если вы  такой формат письму задали)
Вот тут все свойства объекта письмо https://msdn.microsoft.com/en-us/library/dn320330.aspx

P.S. Так как сам сижу в TheBat, решал эти проблемы через шаблоны, может вам будет тоже удобно — в аутлуке тоже есть такая возможность.

[Vovsla [?]]

Спасибо за ссылку. Да, нужно вставлять уже готовые подписи.
Но если я совместно использую Body и HTMLBody или RTFBody, то в теле письма остается только тот текст который вставляется последним.
В принципе можно читать HTML файл и перед вставкой добавлять текст письма в HTML код. Но может можно как-то добавить Body а потом HTMLBody без удаления предыдущего текста?

[Cornet [?]]

А зачем их совместно использовать? Надо что-то одно выбрать и им пользоваться. Не может письмо быть одновременно и html и текстовым

[Vovsla [?]]

Совместно чтобы добавлять текст и отформатированную подпись в HTML формате отдельно, а так придется текст в HTML впихивать, но это уже мелочи.
Спасибо за информацию

[Cornet [?]]

Не, такой халявы они не сделали
Ну на самом деле не так и сложно:
Открыть хтмл подпись
найти в ней тег body
найти после него тег div
и потом вставить текст свой

Код: [Выделить]

<p class=MsoNormal>А тут основной текст строка 1</p>
<p class=MsoNormal>А тут основной текст строка 2</p>
<p class=MsoNormal>А тут основной текст строка 3</p>
<p class=MsoNormal><o:p>&nbsp;</o:p></p>

[pvnn [?]]

Код: AutoIt [Выделить]

.Attachments.Add ($file, $olByValue , 1)

Добавляет Attachment прямо в тело письма, а как сделать нормально?

[Vovsla [?]]

Если использовать не Body а HTMLBody, то вложение прикрепляется нормально

[Malderin [?]]

Друзья, поясните в чем проблема.

Код: AutoIt [Выделить]

CreateMailItem()
Func CreateMailItem()
    Local $olMailItem    = 0
    Local $olFormatRichText = 3
    Local $olImportanceLow   = 0
    Local $olImportanceNormal= 1
    Local $olImportanceHigh  = 2

    $oOApp = ObjCreate("Outlook.Application.14")
    $oOMail = $oOApp.CreateItem($olMailItem)

    With $oOMail
        .To = ("[email protected]")
        .Subject = "email subject"
        .BodyFormat =  $olFormatRichText
        .Importance = $olImportanceHigh
        .Body = "email message"
        .Attach = "myfile"
        .Display
        ;.Send
    EndWith
EndFunc
 

Код исполняется, сообщение создается. Но при проверке на ошибки выдает вот это:

Код: [Выделить]

"D:\Alex\Utils\_Автоит\AutoIt\01_Цех904\ЖИ заполнение\тест.au3"(13,10) : error: missing separator character before keyword.
        .To
~~~~~~~~~^Что делать не знаю, подскажите как победить?
Версия AutoIt 3.3.12.0, офис 2010.


Добавлено: Февраль 12, 2019, 09:00:12Заменил

Код: AutoIt [Выделить]

.To = ("[email protected]")

на

Код: AutoIt [Выделить]

.Recipients.Add ("[email protected]")

И все заработало, вопрос снимается.


Добавлено: Февраль 12, 2019, 10:53:48Нет, все таки первый  вопрос остается актуальным. Конструкция

Код: AutoIt [Выделить]

.Recipients.Add ("[email protected]")

конечно работает, но выводит сообщение о безопасности, победить которое мне увы не удалось (хотя я пытался).

Подскажите все таки, кто знает, как победить:

Код: [Выделить]

"D:\Alex\Utils\_Автоит\AutoIt\01_Цех904\ЖИ заполнение\тест.au3"(13,10) : error: missing separator character before keyword.
        .To
~~~~~~~~~^

[pvnn [?]]

Вот так все работает

(нажмите для показа/скрытия)

Код: AutoIt [Выделить]

; Убрать Запускать au3check перед компиляцией или запускать только exe
#AutoIt3Wrapper_Run_AU3Check=n  
CreateMailItem()
Func CreateMailItem()
    Local $olMailItem    = 0
    Local $olFormatRichText = 3
    Local $olImportanceLow   = 0
    Local $olImportanceNormal= 1
    Local $olImportanceHigh  = 2

    $oOApp = ObjCreate("Outlook.Application")
    If Not IsObj($oOApp) Then Exit MsgBox(16,'Ошибка!','Не удалось создать объект utlook.Application')
    $oOMail = $oOApp.CreateItem($olMailItem)

    With $oOMail
        .To = ("[email protected]")
        .Subject = "email subject"
        .BodyFormat =  $olFormatRichText
        .Importance = $olImportanceHigh
        .Body = "email message"
        .Attach = "myfile"
        .Display
        ;.Send
    EndWith
EndFunc

 

[Malderin [?]]

Подсунул Au3Check.exe версии 3.3.13.15 и приписал в разделе [Compatibility] файла CW.ini эту версию:
Au3CheckVersion=3.3.10.x, 3.3.12.x, 3.3.14.x, 3.3.13.x
Проблема ушла.