Dodanie stopki z pliku tekstowego (TXT,HTML)

by vbatools on Jul.03, 2010, under Outlook, Porady

Poniższa funkcja umożliwia wczytanie treści z pliku tekstowego i umieszczenie jej w treści wiadomości.

Jeżeli stopka ta jest napisana w języku HTML, a grafika umieszczona w stopce jest osadzona na serwerze to poniższą funkcję można wykorzystać jako mechanizm korporacyjny.

Private Function dodaj_stopke(plik As String)
'MVP OShon from VBATools.pl
Dim F&, tresc$, wiersz$
F = FreeFile()

Open plik For Input As #F
 Do While Not EOF(F)
 Line Input #F, wiersz
 tresc = tresc & Trim(wiersz)
 If Right$(plik, 4) = "html" Then
   tresc = tresc & "<br />"
 else
   tresc = tresc & chr(13) & chr(10)
 end if
Loop
Close #F

dodaj_stopke = tresc
'należny dodać do .HTMLBody wszystkie znaczniki <html> <body> treść +stopka </body> </html>
End Function

Wywołanie: .htmlbody = "<html> <body>" & dodaj_stopke("c:\sciezka\plik.htm") & "</body> </html>"

Lub la utworzonej wiadomości: .htmlbody = .htmlbody& "<br><br>" & dodaj_stopke("c:\sciezka\plik.htm")

Jeśli stopka jest napisana w HTML a mail jest generowany jako TXT to należy do .Body wszystkie znaczniki powycinać.

Zgodni z linkiem do strony producenta można znaleźć inne przypadki.