Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Mozilla zamiast MS Office Outlook

Mireczek · Starszy Forumowicz **Pomógł:** 2 razy Posty: 57

Witam

Cytat:

Mam plik excela z wykazem połączeń dla poszczególnych numerów telefonicznych.

Ten temat był już poruszny na forum ( edycja Billingu) i z powodzeniem dzięki pomocy Trebora mój problem został rozwiązany.
W pliku tym makro wysyła do poszczególnych użytkowników wykazy połączeń w postaci załączników exela za pomocą programu pocztowego MS Office Outlook.
Pytanie moje dotyczy tego, czy można było by tak dopasować makro, żeby wysyłka załączników była realizowana za pomocą programu pocztowego Mozilla Thunderbird ?
Dodaję załącznik przykładowego pliku.

Pozdrawiam

Billing.zip

Pobierz Plik ściągnięto 683 raz(y) 73.84 KB

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Hej
Czy Mozilla Thunderbird to Twój domyślny program pocztowy?
Pozdrawiam

Mireczek · Starszy Forumowicz **Pomógł:** 2 razy Posty: 57

Witam

Nie.., ale gdyby było to warunkiem działania makra w powiązaniu z tym programem, to stanie się na potrzebny czas domyślnym programem pocztowym. :-P

Pozdrawiam

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Ponieważ muszę oddać komputer w inne ręce nie miałem czasu sprawdzić poprawności działania kodu. Nie posiadam też takiego programu pocztowego jak Twój. Sprawdź czy to w ogóle działa.

Pozdrawiam

Billing.zip

Pobierz Plik ściągnięto 719 raz(y) 77.81 KB

Mireczek · Starszy Forumowicz **Pomógł:** 2 razy Posty: 57

Witam

Działa rewelacyjnie, trochę inaczej niż poprzednie. Można nawet powiedzieć, że duzo lepiej. E-maile od razu są wysyłane, a nie jak w poprzednim makrze tworzone i zanim je ręcznie wysłałem, na pasku miałem kaskadę listów ( ponad 70 ) do wysłania.
Tak z ciekawości jeszcze mam jedno pytanie. W poprzednim makrze pliki załączników były tworzone i kopiowane do folderu z plikiem głównym, i zostawały tam do czasu ręcznego skasowania. W tym przypadku zastanawia mnie gdzie się te pliki podziały, czy są tworzone w pamięci i dostępne potem jedynie jako załączniki w e-mailach wysłanych, czy może gdzieś się domyśnie kopiują? Ja ich w każdym razie nie znalazłem. :?:

A co do makra - JEST ŚWIETNE ;-)

Dziękuję i Pozdrawiam

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Ta linia robi z nimi porządek

Kod:

Kill ThisWorkbook.Path & "\" & .Cells(a, 11).Text & ".xls"

Poprzednie makro również mogło wysyłać bez czekania. Była tam zablokowana linia
'Send

Można jeszcze usunąć arkusze które są tworzone w pliku głównym.

Pozdrawiam

Mireczek · Starszy Forumowicz **Pomógł:** 2 razy Posty: 57

Witam

Gdyby to nie był problem, to powiedz ja usunąć te arkusze. I jeszcze jedna sprawa, w tamtym makrze był w listach wypisywany standartowy tekst oprócz tematu e-maila. Gdybyś mógł jeszcze napisać jak dodać taką opcję do makra.

Pozdrawiam :->

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

W tej metodzie nie jest przwidziana taka opcja (body) albo nie wiem jak się za to zabrać.
W załączniku zmienione makro (usuwa utworzone arkusze).

Pozdrawiam

Billing.zip

Pobierz Plik ściągnięto 811 raz(y) 14.88 KB

Mireczek · Starszy Forumowicz **Pomógł:** 2 razy Posty: 57

Witam

Dzięki za obcję usuwania arkuszy, co do tekstu w listach, jest to szczegół, nie wart większego zachodu :-P

. Z tego co zdążyłem jeszcze zauważyć makro działa z każdym domyślnym programem pocztowym - czyli jest superfajowe. ;-)

Jeszcze raz dziękuję i Pozdrawiam

Mireczek · Starszy Forumowicz **Pomógł:** 2 razy Posty: 57

Witam

Mam jeszcze pytanie dotyczące tworzonych załączników excela z pliku głównego, które są następnie wysyłane do użytkowników. Czy jest taka możliwość, żeby na końcu kolumny "I" dotyczącej cen netto za połączenia była wpisywana suma za te połączenia.

Pozdrawiam

Mireczek · Starszy Forumowicz **Pomógł:** 2 razy Posty: 57

Witam

Pozdrawiam

Tajan · **Pomógł:** 5591 razy Posty: 12114

Zmień fragment:

Kod:

'przepisanie wartości do odpowiednich arkuszy
For a = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
.Range(.Cells(a, 2), .Cells(a, 9)).Copy Sheets(.Cells(a, 2).Text).Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
Sheets(.Cells(a, 2).Text).Cells(Rows.Count, 2).End(xlUp).Offset(0, -1) = "=row() - 1"
Next a

na:

Kod:

'przepisanie wartości do odpowiednich arkuszy
For a = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
.Range(.Cells(a, 2), .Cells(a, 9)).Copy Sheets(.Cells(a, 2).Text).Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
With Sheets(.Cells(a, 2).Text).Cells(Rows.Count, 2).End(xlUp)
.Offset(0, -1) = "=row() - 1"
.Offset(1, 7).Formula = "=SUM($I$2:" & .Offset(0, 7).Address & ")"
End With
Next a

Mireczek · Starszy Forumowicz **Pomógł:** 2 razy Posty: 57

Witam

Już myślałem, że nie da się tego zrobić :-/

.Dziękuję. Działa oczywiście bez zarzutu.
Gdybyś Miał jeszcze kiedyś chwilkę wolnego czasu, Napisałbyś jak taką komórkę z sumą pogrubić i wyśrodkować. Nie pisałem o tym od razu, bo nie byłem pewny czy da się coś z tym zrobić.

Pozdrawiam

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Hej
Do tego co dopisał Tajan przed End With dopisz dwie linie

Kod:

.Offset(1, 7).Font.Bold = True
.Offset(1, 7).HorizontalAlignment = xlCenter

Pozdrawiam

Mireczek · Starszy Forumowicz **Pomógł:** 2 razy Posty: 57

Witam

Dziękuję Trebor .... Już myślałem, że pojechałeś na urlop. ;-)

Pozdrawiam :->