Excel VBA - Jak wysłać maile do wielu adresów z kolumny A?

Question

Stworzyłem procedurę która wysyła na adresy zawarte w excelu w kolumnie A maile z outlooka i wszystko działa tylko dla jednej komórki .to=range(a1), nie wiem jak zrobić żeby działał na wszystkie niepuste komórki z kolumny A czy ktoś ma jakiś pomysł? I jeszcze jeden problem... z VBA jestem...

cbrman · Accepted Answer

To trzeba było tak od razu pisać. Jak ma być jedna zbiorcza wiadomość to wystarczy poniższy kod. Przykład dla adresów wpisanych w kolumnie A. Kod funkcji (Private Function...) możesz sobie skopiować na sam koniec Twojego modułu pod główną procedurą (pod End Sub). Kod: textZaloguj się, aby zobaczyć kod

cbrman · Answer

Zastosuj pętlę, np: for/next Kod: textZaloguj się, aby zobaczyć kod

tok13 · Answer

Chyba właśnie o to chodziło, tylko w które miejsce mam to wkleić żeby działało? Kod: textZaloguj się, aby zobaczyć kod

tok13 · Answer

Jak podstawie do pętli to wysyła mi do każdego adresata osobną wiadomość a nie jedną zbiorczą, natomiast jak zrobić żeby wynikiem tej pętli była zmienna adresy z mailami oddzielonymi średnikami?

tok13 · Answer

Bardzo bardzo dziękuję o to chodziło.... I nawet działa

tok13 · Answer

niestety pojawił sie kolejny mały problem
otóż gdy wyfiltruje kolumnę to maile wysyła do tych wyfiltrowanych oraz niestety to tych którzy są przed osobą będącą kryterium filtru
czyli jeżeli filtruje po nazwisku i filtruje np nazwiko kowalski, to wysyła do wszystkich kowalskich oraz do wszysstkich osób które znajduja sie przed kowalskimi

cbrman · Answer

Tym razem jednak rozwiązanie z pętlą: Kod: textZaloguj się, aby zobaczyć kod

tok13 · Answer

I znowu nie pozostaje mi nić innego tylko serdecznie podziękować i przychylić czoła przed mistrzem, bardzo dziękuje strzał w dziesiątkę o to chodziło.
jest tylko jeszcze jeden mam nadzieję że ostatni problemik, otóż otwiera się okno nowej wiadomości, wpisują się adresy oddzielone średnikami, oczywiście temat i treść, można to od razu wysłać ale nie wysyła się tylko wskakuje do skrzynki nadawczej bo nie jest otwarty cały outlook , jak zrobić żeby otwierało się nie tylko okno nowej wiadomości ale również outlook jako aplikacja?

adamas_nt · Answer

Jeśli masz referencje do Outlook'a, to odwołaj się do obiektu / CreateObject("Outlook.Application")

Edit: Widzę, że masz

nie doczytałem. Ustaw
oApp.Visible= True.

P.S. Obiekt oEmail ma własność Send, więc możesz wysłać z poziomu Excela...

jarazz · Answer

Witam, jeśli można podepnę się pod temat i skorzystam z wiedzy mistrza. Wykorzystałem sposób z pętlą, ale okazuje się że mogę wysłać maila do max 25 odbiorców, takie ograniczenie serwera. potrafię policzyć ile jest adresów na posortowanej liście ileAdresow = Application.CountA(ws.Columns(E).SpecialCells(xlCellTypeVisible)) - 1 ale nie mam pomysłu co dalej, aby skrypt dzielił je na grupy po 25 i generował kolejną wiadomość jeśli liczba kontaktów przekroczy 25 i kolejną do następnych 25-ciu Proszę o pomoc

JRV · Answer

Witaj fragment: Kod: textZaloguj się, aby zobaczyć kod

jarazz · Answer

Wielkie dzięki kolego, troszkę musiałem pokombinować, bo na początku pętla liczyła do 25 i wysyłała, a jak zostało mniej niż 25, to już nie. Okazało się, że dodanie poniżej pętli tego fragmentu odpowiedzialnego za wysyłkę rozwiązało problem. W całości wygląda to tak : Kod: textZaloguj się, aby zobaczyć kod

JRV · Answer

Dla zmniejszenia kodu wyzwanie Outlook zrobić oddzielne procedury i przekazać parametr 'adresy'

jarazz · Answer

Pokombinowałem, oddzieliłem procedurę wysyłania i wyszło mi coś takiego : Kod: textZaloguj się, aby zobaczyć kod

Excel VBA - Jak wysłać maile do wielu adresów z kolumny A?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Post #14

Post #15

Podsumowanie tematu