Есть ли способ конвертировать активный формат документа (DOCM) в DOCX при присоединении его к электронной почте в Outlook - PullRequest
Новая
       13

Есть ли способ конвертировать активный формат документа (DOCM) в DOCX при присоединении его к электронной почте в Outlook

0 голосов
/ 05 июня 2019

Я создал форму, которая заполняет активный документ.Очевидно, этот документ включен макрос, потому что я использую VBA.Как только форма заполнена и отправлена, она прикрепит активный документ к электронному письму Outlook.Моя ИТ-команда не позволяет отправлять документы с поддержкой макросов по нашим системам, поэтому электронное письмо не может быть отправлено с вложением .docm

Я сам пытался преобразовать документ, но я неочень хорошо разбирается с VBA в этом отношении.

Это код, который у меня есть. 

Private Sub OpenEmailAndAttach()
    Dim olkApp As Object
    Dim strSubject As String
    Dim strTo As String
    Dim strBody As String
    Dim strAtt As String

    strSubject = "Expenditure Approval Request"
    strBody = "Hi, " & Chr(10) & Chr(10) & "Please could I request approval RE: works" & Chr(10) & Chr(10) & "EAF is attached" & Chr(10) & Chr(10) & "Regards, " & Chr(10) & "Name"
    strTo = "email@email.com"

    strAtt = ActiveDocument.FullName

    Set olkApp = CreateObject("outlook.application")
    With olkApp.createitem(0)
        .to = strTo
        .Subject = strSubject
        .body = strBody
        .attachments.Add strAtt
        '.send
        .Display
    End With
    Set olkApp = Nothing
End Sub

Он работает, но мне нужно, чтобы он был прикреплен как .docx (не включен макрос) не файл .docm.Можно ли сделать этот тип преобразования при прикреплении документа?

1 Ответ

1 голос
/ 07 июня 2019

Если вы добавите код в шаблон документа, а не в сам документ, документ можно сохранить в формате docx.

...