Zastosowanie szablonów OFT w odpowiedzi na maila

Czasami użytkownicy upiększają wiadomości stosując papeterię. W późniejszych wersjach Outlooka została jednak ona usunięta i wprowadzono "motywy" oraz "szybkie części". Nie zastępuje to jednak poprzedniego rozwiązania w pełni, choć mając świadomość braku możliwości wyłączenia MS Worda, jako głównego edytora tekstu (w 2007/2010), a zarazem stosowania jego zaawansowanych możliwości edycyjnych, pozostawiono furtkę w postaci zapisu szablonów. Niestety samo podpięcie szablonu nie zostało wprost oprogramowane w żadnym interfejsie użytkownika. Czynności takie należy przeprowadzić samemu.

 

Poniżej przedstawiony sposób daje taką możliwość, po przez podpięcie skryptu w regułach MS Outlook. Samo przygotowanie szablonu realizuje się poprzez zapis edytowanej wiadomości: Menu, Zapisz jako, Szablon Outlook (*.oft)

 

Zastosowanie te realizuje poniższe makro: 

Sub Odpowiedz_z_szablonem(Item As Outlook.MailItem)
    Dim Odpowiedz As MailItem, Szablon As MailItem
    Set Odpowiedz = Item.Reply
    Set Szablon = Application.CreateItemFromTemplate("C:\Temp\szablon.oft") 'zmodyfikuj tą linię
    With Szablon.Recipients
        .Add(Odpowiedz.Recipients.Item(1).Address)
        .ResolveAll
    End With
    Szablon.Send
    Odpowiedz = Nothing
    Szablon = Nothing
End Sub

Osadzenie procedury można znaleźć w artykule: Instalacja i uruchamianie makr.

 

Więcej na temat zastosowań reguł znajdziecie w tym artykule.