
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.
MVP Shon Oskar – VBATools.pl
Jeśli masz pytania dot. tego artykułu zapraszam na Forum
Skonfiguruj swój pakiet dodatków do Excela, Worda, PowerPointa i Outlooka
© Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.