» Poradna » Programy

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

 |   |  Microsoft Windows 10 Chrome 44.0.2403.155  |  [193.86.90.---]

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: Item, Lines, Field



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



Aktuální číslo časopisu Computer

26 procesorů v důkladném testu

Zhodnotili jsme 18 bezdrátových reproduktorů

Jak fungují cash back služby?

Pohlídejte své děti na internetu