Drukowanie wiadomości bez nagłówków
Artykuł dotyczy: Microsoft Outlook 2000/2002/2003
Wiadomość pocztowa drukowana jest przez Outlook'a zawsze przy użyciu takiego samego szablonu. Przed treścią wiadomości wstawiane są pola nagłówka, takie jak:
| • | Od |
| • | Wysłano |
| • | Do |
| • | Dw |
| • | Tytuł |
| • | Załączniki |
Dodatkowo drukowane są ikony symbolizujące poszczególne załączniki.
Czasami zachodzi potrzeba wydrukowania wiadomości bez powyższych pól. Na przykład, gdy pole DO lub DW zawiera bardzo dużo adresów albo, gdy nie chcemy, aby drukowane były informacje o załącznikach wraz z ich ikonami. Niestety ustawienia Outlook'a nie pozwalają na definiowanie, które pola nagłówków powinny być drukowane. Nie można też zmienić szablonu używanego przez Outlook'a do drukowania wiadomości. Można tylko definiować niektóre ustawienia dotyczące szablonu, takie jak dodanie stopki, zmiana szerokości marginesów, czy orientacja strony.
Poniższe makro drukuje wszystkie obecnie zaznaczone wiadomości pocztowe, ale bez nagłówków oraz bez informacji o załącznikach (nie można niestety usunąć pól OD oraz Wysłano). Jeśli chcesz usunąć tylko wybrany nagłówek, usuń odpowiednią część kodu z makra.
Sub PrintWithoutHeaders()
Dim oMail
For Each oMail In Application.ActiveExplorer.Selection
oMail.Copy
' Usuń nagłówek DO
oMail.To = ""
' Usuń nagłówek DW
oMail.CC = ""
' Usuń tytuł - ten zazwczaj będziesz chciał pozostawić
oMail.Subject = ""
' Usuń wszystkie załączniki
For nIndex = oMail.Attachments.Count To 1
oMail.Attachments.Remove (nIndex)
Next
oMail.PrintOut
oMail.Delete
Next
End Sub
Jeśli masz jakieś pytania lub komentarze dotyczące tego artykułu, napisz na naszym forum.
(c) CodeTwo. Wszelkie prawa zastrzeżone.
© Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.