Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 67721 Skopiuj do schowka Wysyłanie maila jeżeli...
Autor Wiadomość
Deny
Starszy Forumowicz


Posty: 52
Wysłany: 02-04-2020, 13:52   Wysyłanie maila jeżeli...

Witam,

Potrzebuje zrobić makro który będzie automatycznie generować msgbox po zamknięciu excela w którym będzie zapytanie czy wysłać maila z nowym rekordem w spisie.
Mail miałby zawierać skopiowany cały wiersz z danymi.

W załączniku przykładowy excel.

Z góry dziękuje za pomoc.

Przykład.xlsx
Pobierz Plik ściągnięto 11 raz(y) 11.38 KB

ID posta: 384763 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2940 razy
Posty: 9714
Wysłany: 02-04-2020, 14:08   

1. Co w przypadku, gdy użytkownik odpowie NIE na pytanie o wysyłce maila?
2. Co w przypadku, gdy podczas jednej sesji z plikiem wprowadzono więcej niż jeden nowy rekord?
3. Czy adresat jest stały dla wszystkich wiadomości?

Na początek zapoznaj się z podobnym (tylko podobnym) tematem.

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 384765 Skopiuj do schowka
 
 
Deny
Starszy Forumowicz


Posty: 52
Wysłany: 02-04-2020, 15:31   

Witam,

Zapoznałem się z tym tematem wcześniej już, wygląda dosyć podobnie, nie spodziewałem się że będzie to tak bardzo skomplikowane i na początku liczyłem że wrzucę warunek msg box i po sprawie,
Problem pojawia się że nie wiem jak uwzględnić warunek (nowy wiersz).
1. Jeżeli odpowie nie to excel normalnie zapisuje zmiany i tyle.
2. Jeżeli kilka wpisów nowych to kopiuje wszystkie nowe
3. Adresat jeden.

Pozdrawiam i dziękuje za odpowiedź.
ID posta: 384778 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2940 razy
Posty: 9714
Wysłany: 05-04-2020, 01:28   

Deny napisał/a:
nie spodziewałem się że będzie to tak bardzo skomplikowane i na początku liczyłem że wrzucę warunek msg box i po sprawie
A to Ty wierzysz jeszcze w krasnoludki? Zadasz pytanie i się samo zrobi? :shock:
Musisz gdzieś przechowywać licznik, który mówi, do którego wiersza dane zostały już wysłane wcześniej. W tym rozwiązaniu wybrałem komórkę M1. Kolumnę można ukryć, by niepotrzebnie nie drażniła oka.

Artik

Przykład (5).xlsm
Pobierz Plik ściągnięto 23 raz(y) 29.16 KB

_________________
Persistence is a virtue in the world of programming.
ID posta: 384978 Skopiuj do schowka
 
 
Deny
Starszy Forumowicz


Posty: 52
Wysłany: 05-04-2020, 22:55   

Dziękuje bardzo za pomoc.
Mail się odpala bez problemu natomiast brak tam tekstu oraz załączonego wycinka tabeli.
Patrzyłem na ten kod, ale dla mnie to trochę czarna magia.
ID posta: 385045 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2940 razy
Posty: 9714
Wysłany: 06-04-2020, 00:06   

Czy twierdzisz to na podstawie załączonego przeze mnie pliku, czy na podstawie własnego pliku?
Czy w trakcie wykonania makra pojawił się jakiś komunikat o błędzie?

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 385047 Skopiuj do schowka
 
 
Deny
Starszy Forumowicz


Posty: 52
Wysłany: 06-04-2020, 10:08   

Tak na podstawie pliku który dałeś w załączniku, dorzucam jeden wiersz w pel ni wypełniony zamykam excela. Mail otwiera się w outlooku bez tekstu oraz wklejki z tabeli.
Błąd się żaden nie pojawia.
ID posta: 385063 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2940 razy
Posty: 9714
Wysłany: 07-04-2020, 00:16   

Spróbuj w procedurze RangetoHTML zamienić kolejnością linie
Kod:
    rng.Copy
    Set TempWB = Workbooks.Add(xlWBATWorksheet)
Najpierw Set Temp... a potem rng.Copy.
Z analizy kodu i Twoich objawów wynika, że błąd może wystąpić (bez zgłaszania go użytkownikowi) w procedurze RangetoHTML pomiędzy początkiem a linią
Kod:
        On Error GoTo 0
Dalsza część nie ma już ignorowania błędu, więc gdyby wystąpił to powinien pojawić się komunikat.

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 385112 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe