Microsoft Outlook troubleshooting
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.

Komentarze

Komentarze
OShon
OShon, VBATools.pl 2012-11-16 13:35:58
Z tego artykułu wycięto przypisanie zmiennej zamiast "Odpowiedz = " oraz "Szablon = " powinno być "Set Odpowiedz = " "Set Szablon = " w obu przypadkach.