Witam,
Wszystko się da jak się chce
Robisz to tak:
1. Tak jak pisali powyżej w procedurze która wysyła maila musisz mieć treść wpisywaną jako HTMLBody (zamiast Body)
2. Trzeba dopchać się do katalogu w którym masz swoje podpisy Outlooka a następnie "zassać" konkretnego podpisu kod HTML
3. Zassany kod trzeba dorzucić do treści maila w procedurze wysyłającej
No dobra to teraz konkrety:
Ad1.
Tu myślę sprawa jest prosta
zmieniami .Body na .HTMLBody
Ad2.
to polecam zrobić Environem (bo podpisy są w katalogu zależnym od nazwy usera w systemie) czyli
c:\users\ tutaj_twoja_nazwa_usera \AppData\Roaming\Microsoft\Podpisy\i_tutaj_nazwa_twojego_podpisu.htm
!!!UWAGA!!! sprawdz tą ścieżkę u siebie bo nie pamiętam teraz dlaczego ale czasem zamiast katalogu Podpisy, niektórzy mają katalog Signatures więc wtedy będzie oczywiście:
c:\users\ tutaj_twoja_nazwa_usera \AppData\Roaming\Microsoft\Signatures\i_tutaj_nazwa_twojego_podpisu.htm
No dobra każdy ma inną nazwę usera więc jak robię coś takiego z ludzmi na szkoleniach to stosujemy tutaj Environa. Czyli finalnie wyglądało by to tak:
sciezka = Environ("USERPROFILE") & "\AppData\Roaming\Microsoft\Podpisy\" & podpisek & ".htm"
Ok ścieżka do podpisu już jest, to teraz zasysamy HTMLA z niego.
Kilka opcji tu mamy ale chyba najprostszą będzie funkcja readall wbudowana w obiekt TextStreem z biblioteki scrrun.dll (spoko ona jest windowsowa więc każdy ją ma Ty też
tą biblio możemy dodać poprzez wczesne lub pózne wiązanie (ale to już temat na innego posta
Zaloguj się, aby zobaczyć kod
Pojawić się mogą jeszcze problemy z obrazkami jeżeli masz je w stopce (zwłaszcza jak tych stopek mamy kilka i makro ma decydować którą kiedy trzeba dodać do maila). Jak tak będzie to pisz, chętnie pomogę
Pozdrawiam
Michał Dąbrowski
