Aha!
Tak jsem to poopravil na:
Private Sub CommandButton1_Click()
ActiveWorkbook.SendMail Recipients:=Range("K3").Text, Subject:=Range("A3:I3").Text, ReturnReceipt:=False
End Sub
Kde v K3 je mail.
Nicmene vysledkem bylo, ze mail odesel (ok), ale prisel mi cely sesit a vubec ne jen radek A3:I3.
A mel bych jeste prosbu.
Bude se jednat o seznam, kde budou postupne pribyvat polozky a k nim emaily. A mne by vyhovavlo, aby to odesilani bylo vic dynamicke. Mam na mysli.
Do K3 vyplnim email1, K4, email2, K5, email1 a postisku tlacitka1 odesle pouze radky pro email1, po stisku tlacitka2 pouze radky pro email2.
Druhy den doplnim K6 pro email2, stisknu tlacitko2 a odejdou opet vsechny radky pouze pro email2.
Diky za pomoc.