none
Отправка письма через Microsoft Word, как вложение - пропадает подпись RRS feed

Ответы

  • 1) Подпись можно добавлять вручную - после создания письма, на ленте нажмите кнопку "Подпись" и выберите нужную из списка

    2) Создать макрос для отправки почты - см., например, статью Отправка документа Word в качестве вложения

    Других вариантов, увы, нет.


    Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий
    Follow us on TwitterFollow MSTechnetForum on Twitter

    Посетите Блог Инженеров Доклады на Techdays: http://www.techdays.ru/speaker/Vinokurov_YUrij.html
    17 января 2012 г. 8:25
    Модератор
  • Отвечаю сам на свой вопрос, с помощью макроса решается за пару минут:

    Для работы скрипта нужно добавить библиотеки, в редакторе макросов VB находим строчку Microsoft Outlook 14.0 Object Library (для 10 оутлука, и 15.0 для 13-го оутлука)

    Send_As_Mail_Attachment()

    ' send the document as an attachment _
    in an Outlook Email message
    Dim bStarted As Boolean
    Dim oOutlookApp As Outlook.Application
    Dim oItem As Outlook.MailItem

    On Error Resume Next

    'Prompt the user to save the document
    ActiveDocument.Save

    'Get Outlook if it's running
    Set oOutlookApp = GetObject(, "Outlook.Application")

    'Outlook wasn't running, start it from code
    If Err <> 0 Then
       Set oOutlookApp = CreateObject("Outlook.Application")
       bStarted = True
    End If

    'Create a new mailitem
    Set oItem = oOutlookApp.CreateItem(olMailItem)

        With oItem
           ' .to = "someonerATsomewhere.com"  'the recipient (optional)
           ' .Subject = "This is the subject" 'the subject (optional)
        'Add the document as an attachment
            .Attachments.Add Source:=ActiveDocument.FullName, _
            Type:=olByValue, DisplayName:="Document as attachment"
            .Display
         End With

    'Clean up
    Set oItem = Nothing
    Set oOutlookApp = Nothing
    End Sub

    http://answers.microsoft.com/en-us/office/forum/office_2007-outlook/send-as-attachment-does-not-use-outlook-signature/f88ae177-49ef-483c-844e-1fab44e3e826?msgId=b788017f-7f82-4e4c-81b5-be0c24c9d836Sub
    13 июня 2013 г. 8:57

Все ответы

  • 1) Подпись можно добавлять вручную - после создания письма, на ленте нажмите кнопку "Подпись" и выберите нужную из списка

    2) Создать макрос для отправки почты - см., например, статью Отправка документа Word в качестве вложения

    Других вариантов, увы, нет.


    Мнения, высказанные здесь, являются отражением моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий
    Follow us on TwitterFollow MSTechnetForum on Twitter

    Посетите Блог Инженеров Доклады на Techdays: http://www.techdays.ru/speaker/Vinokurov_YUrij.html
    17 января 2012 г. 8:25
    Модератор
  • Настройка подписи в Outlook:

    позволяет добавить подпись для всех сообщений. Если же сообщение готовится в Word, Excel то возможно стоит рассмотреть вопрос о создании бланка на основе которого будут строиться все документы. Подпись можно ведь и вставить в нижний колонтитул.


    Да, я Жук, три пары лапок и фасеточные глаза :))
    18 января 2012 г. 5:20
    Модератор
  • Отвечаю сам на свой вопрос, с помощью макроса решается за пару минут:

    Для работы скрипта нужно добавить библиотеки, в редакторе макросов VB находим строчку Microsoft Outlook 14.0 Object Library (для 10 оутлука, и 15.0 для 13-го оутлука)

    Send_As_Mail_Attachment()

    ' send the document as an attachment _
    in an Outlook Email message
    Dim bStarted As Boolean
    Dim oOutlookApp As Outlook.Application
    Dim oItem As Outlook.MailItem

    On Error Resume Next

    'Prompt the user to save the document
    ActiveDocument.Save

    'Get Outlook if it's running
    Set oOutlookApp = GetObject(, "Outlook.Application")

    'Outlook wasn't running, start it from code
    If Err <> 0 Then
       Set oOutlookApp = CreateObject("Outlook.Application")
       bStarted = True
    End If

    'Create a new mailitem
    Set oItem = oOutlookApp.CreateItem(olMailItem)

        With oItem
           ' .to = "someonerATsomewhere.com"  'the recipient (optional)
           ' .Subject = "This is the subject" 'the subject (optional)
        'Add the document as an attachment
            .Attachments.Add Source:=ActiveDocument.FullName, _
            Type:=olByValue, DisplayName:="Document as attachment"
            .Display
         End With

    'Clean up
    Set oItem = Nothing
    Set oOutlookApp = Nothing
    End Sub

    http://answers.microsoft.com/en-us/office/forum/office_2007-outlook/send-as-attachment-does-not-use-outlook-signature/f88ae177-49ef-483c-844e-1fab44e3e826?msgId=b788017f-7f82-4e4c-81b5-be0c24c9d836Sub
    13 июня 2013 г. 8:57