Outlook 2010 Новая подпись электронной почты

Я хотел бы иметь возможность создать пользовательскую кнопку «Новая электронная почта» в Outlook 2010, которая настраивает новое электронное письмо с другой подписью по умолчанию. Я просмотрел различные решения из других сообщений, но ничего не подходит для этого конкретного варианта использования. Вот что мне нужно:

У меня есть одна учетная запись электронной почты, которая будет связана с двумя отдельными бизнес-объектами, каждая из которых имеет свою собственную подпись. Я хотел бы найти способ автоматического выбора той или иной подписи на основе используемой кнопки «Новый адрес электронной почты». Я добавил подпись для первого объекта, используя назначение подписи по умолчанию в свойствах почты Outlook. Я добавил пользовательскую кнопку «Новая электронная почта» на ленту, которую я хотел бы использовать во второй подписи объекта при создании нового электронного письма.

Это возможно? любые идеи о том, как это может быть достигнуто?


outlook vba email-client
person bobg    schedule 02.10.2014    source источник

Ответы (2)


arrow_upward
0
arrow_downward

Установите для подписи по умолчанию значение «Нет».

Создайте два шаблона с двумя разными подписями. Создайте две настраиваемые кнопки.

http://msdn.microsoft.com/en-us/library/office/ff865637%28v=office.15%29.aspx

Sub CreateFromTemplate1() 
    Dim MyItem As Outlook.MailItem 
    Set MyItem = Application.CreateItemFromTemplate("C:\template1.oft") 
    MyItem.Display 
End Sub 

Sub CreateFromTemplate2() 
    Dim MyItem As Outlook.MailItem 
    Set MyItem = Application.CreateItemFromTemplate("C:\template2.oft") 
    MyItem.Display 
End Sub
person niton    schedule 03.12.2014

arrow_upward
0
arrow_downward

Здесь есть код для генерации подписей.

http://www.rondebruin.nl/win/s1/outlook/signature.htm

Должно выглядеть примерно так.

Sub Mail_Outlook_With_Signature_Html_2_shortened()
'
' http://www.rondebruin.nl/win/s1/outlook/signature.htm
'
' Don't forget to copy the function GetBoiler in the module.
' Working in Office 2000-2013

    Dim OutMail As Object
    Dim SigString As String
    Dim Signature As String

    Set OutMail = CreateItem(0)

    'Change only Mysig.htm to the name of your signature
    SigString = Environ("appdata") & _
                "\Microsoft\Signatures\Mysig.htm"

    If Dir(SigString) <> "" Then

        Signature = GetBoiler(SigString)
        With OutMail
            .HTMLBody = "<br>" & Signature
            .Display
        End With

    Else

        MsgBox "Signature file not found." & vbCr & SigString

    End If

    Set OutMail = Nothing

End Sub

Private Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
    Dim FSO As Object
    Dim ts As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set ts = FSO.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function
person niton    schedule 08.12.2014