Tworzenie linków w wiadomości email

by vbatools on Oct.24, 2011, under Outlook, Porady

Niejednokrotnie potrzebujemy utworzyć wiadomość email z poziomu Excela czy Worda. Aby nasz mail nie tracił na atrakcyjności tzn. zawierał elementy graficzne, należy wyposażyć go w treść w formacje HTML.

Outlook obsługuje dwa tryby treści .Body oraz .HTMLBody. Dzięki pierwszemu parametrowi można utworzyć wiadomość i dla formatu TXT i dla HTML, jednakże nie będzie on zawierał oprócz oczywistych właściwości graficznych, również linków do plików czy grafiki w trybie HTML. Aby podołać założeniom, należy tworząc wiadomość “ubrać” jej treść w tagi tego języka.

Poniższy przykład pokazuje skrótowe zastosowanie linków w parametrze .HTMLBody

Sub Tworznie_wiadomosci_HTML()
'MVP OShon from VBATools.pl
Dim oOutlook As Object
Dim oEmail As Object
Set oOutlook = CreateObject("Outlook.Application")
Set oEmail = oOutlook.CreateItem(0)

'Gdy generujemy wiadomość z Outlooka pow. deklaracje nie są konieczne*
'Set oEmail = Application.CreateItem(olMailItem) '----zastępujemy je tą instrukcją
Dim skladnia_html$
skladnia_html = "<html><head></head>" & _
 "   Link do strony: <a href=""http://www.vbatools.pl"">VBATools.pl</a> <br>" & _
 "   Link do maila:  <a href=""mailto:adres poczty email"">mail@domena.pl</a>  <br><br>" & _
 "   Obrazek z linkiem: <br> <a href=""http://www.vbatools.pl""><img src=""http://vbatools.pl/wp-content/uploads/2010/03/VBATools_Buton.jpg"" border=0></a> " & _
 "   </html>"
With oEmail
 .To = "odbiorca@domena.pl"
 .Subject = "Przykład linków w wiadomości email"
 .HTMLBody = skladnia_html
 .Display
End With

Set oEmail = Nothing
Set oOutlook = Nothing '----*
End Sub