» Poradna » Programy

Excel - Odeslání emailu pomocí tlačítka

 |   |  Microsoft Windows 10 Chrome 44.0.2403.155

Dobrý den, prosím Vás, zvládl by mi někdo upravit zdroják ve kterém bych potřeboval aby se mi pomocí tlačítka (kliknutí) odeslal email?Mám jedinný problém když mám zamknutý list ale buňky A4 a A5 (v buňkách je text Echo) 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 buňky 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.SendEnd WithEnd SubNeví někdo jak to obejít aby mi to odeslalo i přes zamknutý list?Děkuji za rady


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




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

Pojďme programovat elektroniku: Jak vlastně funguje akcelerometr a gyroskop nejen ve vašem telefonu

Pojďme programovat elektroniku: Jak vlastně funguje akcelerometr a gyroskop nejen ve vašem telefonu

** Každý současný vybavený mobil má akcelerometr a gyroskop ** Jenže co každé z těchto čidel vlastně dělá a jak vypadá? ** Dnes si to vysvětlíme a do hry zapojíme i Airbus A380 a Arduino

Jakub Čížek | 11

Vyzkoušeli jsme eObčanku a přihlásili se s ní na weby úřadů. Vážně to funguje!

Vyzkoušeli jsme eObčanku a přihlásili se s ní na weby úřadů. Vážně to funguje!

** Máme eObčanku, máme čtečku, vyzkoušeli jsme přihlášení na weby úřadů. ** Objevily se drobné problémy, podařilo se nám je vyřešit. ** Používání eObčanky pro online identifikaci je velmi pohodlné.

Marek Lutonský | 35

Na Zemi je nejtepleji za posledních více než 100 tisíc let. Co nám hrozí?

Na Zemi je nejtepleji za posledních více než 100 tisíc let. Co nám hrozí?

** Letošní červenec byl třetím nejteplejším měsícem od roku 1880 ** Teplota naší planety roste raketovým tempem ** Co lidstvu hrozí v období, které v minulosti nemá obdoby?

Karel Kilián | 70

Musk pošle lidi na oblet Měsíce. Japonský podnikatel Maezawa vezme na cestu až osm umělců

Musk pošle lidi na oblet Měsíce. Japonský podnikatel Maezawa vezme na cestu až osm umělců

** SpaceX chce nejdříve v roce 2023 vyslat lidi na oblet Měsíce ** Hlavním pasažérem bude japonský podnikatel Jusaku Maezawa, který vezme na cestu až 8 umělců ** Pětidenní cesta proběhne v chystané lodi BFS

Petr Kubala | 14

Lenovo přivezlo na IFA 2018 skutečné inovace. Tyto tři notebooky stojí za to

Lenovo přivezlo na IFA 2018 skutečné inovace. Tyto tři notebooky stojí za to

** Yoga C930 nabídne revoluční reproduktor v kloubu displeje ** Yoga Book C930 představuje zdařilý reparát podivného Yoga Booku ** ThinkPad X1 Extreme se může pochlubit extrémní výbavou v tenkém těle

Tomáš Holčík | 16


Aktuální číslo časopisu Computer

Jak vytvořit a spravovat vlastní web

Velký test herních klávesnic a DVB-T2 tunerů

Vše o formátu RAW

Vybíráme nejlepší základní desku