Jak dodać podpis do emaila wysyłanego z Excela przez VBA?

Witam. Mam pytanie odnośnie wysyłania wiadomości email z Excela a dokładnie dodanie podpisu do wiadomości. Mam kod jak poniżej:



..tu jest wszystko ok, mail zostanie prawidłowo utworzony, jednak czy w kodzie mogę dodać jeszcze funkcję dodawania podpisu do wiadomości, podpisu który w Outlooku jest utworzony? Czy jest taka opcja? Jeżeli jest to proszę o podpowiedź

Tak można pytanie czy to jest sam podpis czy jakaś grafika(logo)

Tak, jest też grafika, najpierw grafika a pod nią dane kontaktowe

JaroFon napisał:

Tak, jest też grafika, najpierw grafika a pod nią dane kontaktowe

Polecam
https://www.rondebruin.nl/win/s1/outlook/signature.htm
Jak nie dasz rady to daj znać ktoś na pewno pomoźe

No niestety ale nic z tego nie wiem i do tego nie znam angielskiego
Wygląda na to że to dość skomplikowane

Witam ponownie.
mam pytanie związane ze wstawianiem tekstu wiadomości:

Czy można zrobić tak że jak kod wklei zadany tekst do wiadomości Outlook to żeby dodał się w polskiej wersji językowej? Powyższym kodem jak wkleja się tekst to po przejściu do wysyłania wiadomości Outlook chce poprawić błędy pisowni na angielski a tekst jest poprawnie napisany po polski

JaroFon napisał:

Czy można zrobić tak że jak kod wklei zadany tekst do wiadomości Outlook to żeby dodał się w polskiej wersji językowej? Powyższym kodem jak wkleja się tekst to po przejściu do wysyłania wiadomości Outlook chce poprawić błędy pisowni na angielski a tekst jest poprawnie napisany po polski

A nie masz czasami w Outlooku zaznaczonej jakiejś opcji sprawdzania pisowni?

Raczej nie, tak dla ścisłości zrobiłem jeszcze inny opis i w nim dodał się tekst w połowie po polsku a w połowie po angielski

Dodano po 5 [minuty]:

Podam przykład w załączniku, tam pierwsze trzy linie wstawiają się po polsku a reszta po angielsku:

U mnie jest ok

No to wygeneruj sobie tego maila, daj kursor za "Pozdrawiam" i kliknij ENTER, zobaczysz co się stanie:



...tak jest tylko w drugiej części maila, pierwsza część jest OK

U mnie ok mam o2010

No to dziwne dlaczego tak się dzieje na 2016

Witam ponownie.
Wracam do tematu bo mam problem z poprawnym wklejeniem wcześniej skopiowanej tabelki z pliku Excel do treści wiadomości email.

Mam taki kod jak poniżej który wszystko robi poprawnie z jednym wyjątkiem:



Jednak problem jest z wklejoną tabelką. Tabelka w pliku Excel ma poukrywane wiersze i kolumny (poukrywane są przez makro), jednak po wklejeniu do wiadomości tabelka ma odkryte wszystkie wiersze i kolumny które są ukryte w pliku Excel i wygląda tak:



...ale jak bym skopiował ręcznie tabelkę i ręcznie wkleił do wiadomości email to nie ma otwartych niepotrzebnych wierszy i kolumn i wygląda tak jak bym tego chciał:



Czy może ktoś pomór i zobaczyć czy można to jakoś rozwiązać żeby tabelkę wkleiło tak jak na drugim obrazku? Załączam oryginalny plik, w arkuszu "Tabela" jest tabelka i przycisk "WYŚLIJ EMAIL" który to wszystko robi

Cześć
Można by użyć 'specialcells', ale u ciebie są jeszcze komórki scalone, więc mamy dwie opcje
1 rozcalenie i kopiowanie
2 pominąć 'rangetohtml' i wykorzystać obiekt worda

W sumie to jest mi to obojętne jak to będzie zrobione byle tabelka wklei się bez tych ukrytych wierszy i kolumn.
Taki sam kod wykorzystuję w innym pliku i tam wszystko jest ok, tylko że ukrywanie wierszy jest przy pomocy filtra a w powyższym przypadku przy pomocy makra

JaroFon napisał:

W sumie to jest mi to obojętne jak to będzie zrobione byle tabelka wklei się bez tych ukrytych wierszy i kolumn

zmień

clubs napisał:

JaroFon napisał:

W sumie to jest mi to obojętne jak to będzie zrobione byle tabelka wklei się bez tych ukrytych wierszy i kolumn

zmień

Kod: VBScript

Zaloguj się, aby zobaczyć kod

Kolego dziękuję Ci bardzo, jesteś wieli. O to mi chodziło
Co prawda rozkleja mi scalone komórki ale jest to do przełknięcia. A czy można te komórki rozkleić tylko tymczasowo na potrzeby wklejenia do email?

JaroFon napisał:

ale jak bym skopiował ręcznie tabelkę i ręcznie wkleił do wiadomości email to nie ma otwartych niepotrzebnych wierszy i kolumn

No to może wykorzystać windowsowy schowek? Nie mam Outlooka, żeby wypróbować, ale krąży w Internecie funkcja, której autorem jest STEPHEN BULLEN. Wykorzystywałem już ją w kilku przypadkach. Działa z obrazkami i wykresami, być może więc zadziała z tabelą...

JaroFon napisał:

A czy można te komórki rozkleić tylko tymczasowo na potrzeby wklejenia do email?

Można, tylko trzeba dopisać trochę kodu
Jak co to sprawdź (tak jak pisałem wyżej opcje 2), czy u ciebie zda to egzamin.

Mam jeszcze takie pytanie. W mojej poczcie Outlook mam 2 konta. Kiedy wysyłam maila powyższym moim kodem to w mailu wpisuje się nadawca (chyba domyślnej skrzynki), jak zrobić aby mój kod nadał nadawcę innej skrzynki jak domyślna?

JaroFon napisał:

jak zrobić aby mój kod nadał nadawcę innej skrzynki jak domyślna?

Przed 'display' wstaw

W którym miejscu to wstawić bo nie działa

Oczywiście te konto email musisz mieć założone w outlocku.

Dziękuję bardzo, o to mi chodziło

Możesz używać też takiego zapisu (np. 1, 2, 3 itp) zależy ile tych kont masz.

Na początku kodu, możesz dodać zmienna np. (lub pobierać z arkusza)
konto = 2