Zapisz tabele jako jpg np w: "C:\Temp\obrazek1.jpg" a następnie dołącz do obiektu wiadomości za pomocą: olMsg.Attachments.Add "C:\Temp\obrazek1.jpg". Można użyć HTMLBody wtedy nie trzeba dołączać obrazka. olMsg.HTMLBody = RangetoHTML(rng) HTML można stworzyć taką funkcją: [syntax=vb]Function...
(at)kunio_1 proponuję zastosować właściwość HTMLBody i wtedy użyć funkcji Ron de Bruin'a: Function RangetoHTML(rng As Range) Dim fso As Object Dim ts As Object Dim TempFile As String Dim TempWB As Workbook TempFile = Environ$("temp") & "\"...
Zakładając, że wiersze tej samej sprawy występują po sobie, można zrobić coś takiego. Użyłem gotowej funkcji do kopiowania zakresu ze strony [syntax=vbscript]Sub MailExcelVbaOutlook() Dim OutApp As Object, rng As Range Dim OutMail As Object, ost&, i&, j&, szablon$, tresc ...
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: ...ale jak bym skopiował ręcznie tabelkę i ręcznie wkleił do wiadomości...
Hej, potrzebuje pomocy z napisaniem kodu do automatycznego wysyłania maili co tydzień. Obecnie makro działa na przycisk, a chciałbym aby odbywało się automatycznie. [syntax=vbscript]Sub wyslij() Dim ostW As Long, ostW2 As Long Dim ark As Worksheet, r As Long Set ark = ActiveSheet Dim rng As Range ...
Witam, w ostatnim czasie stworzyłem kod, którego zadaniem jest wysłanie maila. Interesuje mnie aby wartość komórki została pobrana z arkusza oraz dodana w tekście maila. Niestety posiadam problem z kodem (załącznik1). Wiadomość email otrzymuje w nieczytelnej formie (załącznik 2) Czy jest...
Witam, W ostatnich dniach stworzyłem UserFrom, którego zadaniem jest wysyłanie maila przy użyciu CDO Windows. Jeśli chodzi o efektywność, to kod działa poprawnie na komputerze z Windows 10 przy użyciu portu "25". Problem zaczyna się w momencie, kiedy plik zostaje przegrany na serwer Windows...
Serdecznie dziękuję! Teraz jest idealne! Ja co prawda sam wróciłem do kopiowania ostatnich trzech kolumn w ostatnim kodzie poprawionym przez Ciebie bo poległem przy zaokrągleniach , a tak było prościej. Nie mogłem też na razie dojść do tego jak zaznaczyć cały zakres nowo powstałej tabelki aby zrobić...
cześć prosiłbym o pomoc z moim problemem. A mianowcie mam maro do wysyłania emaila szablonu z excela, chciałbym jednak aby jako załącznik dodać plik .xls ktory bedzie zawierał tylko konkretny zakres komórek z arkusza 2. Makro wyglada tak: [syntax=vb]Sub Send_obecnosc() Dim rng As Range Dim...
Witajcie Mam makro które kopiuje mi zaznaczony ciąg danych i wkleja do Outlooka po czym wysyła, jednak nie uwzględniając formatowania warunkowego. Np. wszędzie gdzie mam kolory stałe to są, ale tam gdzie kolory są uzależnione od wartości w kolumnie to już tego po skopiowaniu nie uwzględnia. Czy...
Witam wszystkich Mam chyba mały problem ale jakoś nie mogę sobie z nim poradzić. Do automatycznego wysyłania wiadomości używałem poniższego kodu. Wszystko było ok ale apetyt rośnie w miarę jedzenia. Chciałbym aby zawartość wybranych komórek treści wiadomości zostały pogrubione i tu zaczęły się schody....
Cześć! Stworzyłem sobie makro, które miałoby automatycznie tworzyć maile do różnych adresatów z różną treścią. Problem mam jednak z podstawianiem tabeli. Nie wiem jak określić funkcję, by tak jak to jest przy adresatach (czyli funkcja wiersz po wiersz tworzy maila i bierze adresatów tylko z aktualnej...
Witam wklejać w treść maila najlepiej zachowując formatowanie To już musisz użyć Function RangetoHTML
Witam Poszukaj o Function RangetoHTML
Znalazłem taką funkcję: Option Explicit '*****************************... PURPOSE: Concatenates range contents into a '* delimited text string '* '* FUNCTION SIGNATURE: Range2Csv(Range, String) '* '* PARAMETERS: '* Range - the range of cells...
Gdyby ktoś był zainteresowany: [syntax=vb]Function TworzZalacznik(ByVal sheetname As String) As String Sheets(sheetname).Copy ActiveWorkbook.SaveAs Filename:=Ten_skoroszyt.Path & "\" & sheetname & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False TworzZalacznik =...