VBA.Mania

vbamania.pl

Dziś jest sobota, 20 kwietnia 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Witam. Mam plik w którym są 4 arkusze dla 4 osób. Każda z osób nanosi swoje dane które póżniej się nanoszą w odpowiednie miejsca. Zrobiony jest przycisk do wysyłania maila w każdym arkuszu aby każda osoba po zrobieniu wysłała swój email z zaznaczonym zakresem. Problem jest taki że jak przypiszę kod vba dla osoby 1 to wyśle poprawnie ale ten sam kod jak użyją pozostałem osoby na innych czyli swoich arkuszach to wysyła ten pierwszy nie wiem jak to rozwiązać Dzięki otwarty rozpoczął: koczic postów: 2

napisał: Trebor postów: 1209 umieszczony: 21 września 2020 17:40 edytowany: 21 września 2020 17:47
	Witaj Gdzie umieściłeś kod? Jeśli w kodzie arkusza to każde polecenie w którym wprost nie wskażesz arkusza będzie się odnosić do arkusza w którym znajduje się kod. Nie mam outlooka więc jestem ograniczony w testowaniu. Możesz spróbować tak: With sheets(1).Range("A19:aq34").Parent.MailEnvelope .Introduction = "Urlop." .Item.To = "xxxxxxx@xxx.pl" .Item.Subject = "Urlop Imię i nazwisko" .Item.Send End With sugerowałem się kodem z tej strony:http://www.rondebruin.nl/win/s1/outlook/bmail3.htm

napisał: koczic postów: 1 umieszczony: 20 września 2020 20:37
	Sub Wyśli() ActiveSheet.Range("A19:aq34").Select ' envelope ActiveWorkbook.EnvelopeVisible = True ' opcje With ActiveSheet.MailEnvelope .Introduction = "Urlop." .Item.To = "xxxxxxx@xxx.pl" .Item.Subject = "Urlop Imię i nazwisko" .Item.Send End With End Sub

wstecz 1 dalej

wszystkich stron: 1