» Poradna » Programy

Excel tlačítko pro odeslání Emailu

 |   |  Microsoft Windows 7 Chrome 43.0.2357.130

Dobrý den, prosím Vás, dalo by se přes VB naprogramovat tlačítko, po kliknutí aby mi to odeslalo email s určitým textem ?Mám jedinný problém když mám zamknutý list ale buňky A4 a A5 odemčené tak mi to pořád píše, že chce odeslat ale brání mu v tom ten zamknutý list přitom sem zúžil rozsah jen na tyhle 2 bunky z aktivního listu které zůstávají odemčené. nevím prostě jak obejít to heslo na listu, to tam prostě být musí.Mám tohle: Sub Send_Range() ' Select the range of cells on the active worksheet. ActiveSheet.Range("A4:A5").Select ' Show the envelope on the ActiveWorkbook. ActiveWorkbook.EnvelopeVisible = True ' Set the optional introduction field thats adds ' some header text to the email body. It also sets ' the To and Subject lines. Finally the message ' is sent. With ActiveSheet.MailEnvelope .Introduction = "Přijď." .Item.To = "email@email.cz" .Item.Subject = "Přijď :)" .Item.Send End WithEnd SubNeví někdo jak to obejít aby mi to odeslalo i přes zamknutý list? Děkuji

Odpovědi na otázku

 |   |  Microsoft Windows 10 Chrome 42.0.2311.135

nikdo neví?

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Odeslání, Item, Sets, Lines, Field




Určitě si přečtěte

Nejlepší služby pro streamovanou hudbu: Není jen Spotify

Nejlepší služby pro streamovanou hudbu: Není jen Spotify

** Za měsíční předplatné je dnes možné získat přístup k desítkám milionů skladeb ** S některými méně známými interprety je ale stále problém ** Cena předplatného může být i jen pár desítek korun

Vladislav Kluska | 45

Qualcomm se chlubí, že se mu podařilo téměř nemožné: Vyrobil první mobilní anténu pro 5G

Qualcomm se chlubí, že se mu podařilo téměř nemožné: Vyrobil první mobilní anténu pro 5G

** Za dveřmi je 5G – nová generace mobilních telekomunikací ** Jednou z jeho specialit jsou nové kmitočty, tzv. mmWave ** Jenže signál o mnoha desítkách GHz přináší hromadu překážek

Jakub Čížek | 22

Tesla je stále ve ztrátě, ale elektromobily Model 3 se prodávají neuvěřitelně dobře

Tesla je stále ve ztrátě, ale elektromobily Model 3 se prodávají neuvěřitelně dobře

** Tesla má rekordní příjem, je ale ve ztrátě ** Objem výroby se zvyšuje, dochází ale baterie ** Pomoci mají nové továrny Gigafactory

Karel Javůrek | 91

Jak a proč používat alternativní DNS: Zrychlí internet a odblokuje weby

Jak a proč používat alternativní DNS: Zrychlí internet a odblokuje weby

** Alternativní DNS servery mohou zpříjemnit surfování na internetu ** Existuje několik ověřených alternativ, nejen známé DNS od Googlu ** Alternativní DNS však mají i své nevýhody, pozor na ně

Petr Březina | 31


Aktuální číslo časopisu Computer

Jak mobily určují svoji polohu?

Velký test notebooků pro studenty

Nejlepší reproduktory na párty

Služby a aplikace pro výuku angličtiny