Tworzenie linków w wiadomości email

napisane przez Oskar w dniu poniedziałek, 24 Październik, 2011, w kategorii Porady - Outlook

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

W przypadku chęci umieszczenia całej strony HTML, należy wczytać ją do zmiennej, a następnie przekazać do opisanego parametru.

Na uwagę w tym przypadku zasługuje fakt iż Outlook nie obsługuje nowych lub skomplikowanych metod programowania HTML.

(c) Shon Oskar – www.VBATools.pl

Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.

Podziel się ze znajomymi:

Wpisz swój komentarz:

RSS komentarzy tego wpisu · TrackBack URI

Witaj na stronie VBA Tools!
Dziękuję za odwiedziny! Ta strona poświęcona jest ciekawym dodatkom i automatyzacji Microsoft Outlook i Microsoft Excel, stworzonych w VBA, Visual Basic, .NET. Dzięki nim możesz zwiększyć swoją produktywność :) Zapraszam do dyskusji w komentarzach do artykułów. Aby być zawsze na bieżąco, możesz skorzystać z kanału RSS.
Zapraszam - OShon.
MVP Office System
Lubisz nas?

Jeśli uważasz że informacje zawarte na naszej stronie są przydatne w twojej pracy kliknij faceme.
Translation
Szukaj w serwisie
Tematy
64bit ACC błąd DB DHL DivX Dodatek Edycja danych Email ENG Interface Excel Forum Generator Generowanie wiadomości IFSApp Kino domowe Komentarz Korespondencja seryjna Listy przewozowe Lotto moderacja Multicache MySQL Napisy ODBC Oracle Outlook Płace Pobieranie danych Polskie czcionki poprawka RMA Schenker Selektor SpedCust Tunderbird UPS UTF VCard VCF Wiadomości Wizytówka Wypłata x86 XML
Kategorie
- Informacje (47)
- Narzędzia (21)
  - Narzędzia Excel (14)
  - Narzędzia Outlook (5)
  - Narzędzia Visual Basic (3)
  - Narzędzia .NET (4)
- Aplikacje do pobrania (19)
  - Freeware (bezpłatne) (12)
  - Shareware (ograniczone) (4)
  - Projekty (płatne) (5)
- Porady (146)
  - Porady – Excel (49)
  - Porady – Outlook (92)
  - Porady – PowerPoint (3)
  - Porady – Word (11)
- Kontakt (1)
- Licencjonowanie (1)
Najnowsze artykuły
Najnowsze komentarze
- ziemeck o Błąd bibliotek VBA „Object library invalid or contains references…”
- MIXTERek o Dodanie obrazka do komórki obok
- Bartosz o CodeTwo Public Folders do wygrania 10×10 licencji
- Oskar o Generator Maili
- tim o Błąd bibliotek VBA „Object library invalid or contains references…”
Porady z Outlook.pl
Porady z WSS
Aktualności MSDN

VBA Tools