{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["Úvod","Test Email"],"not_rendered":{"charts":0,"images":4,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Úvod","index":0,"n_rows":26,"n_cols":8,"rows_kept":26,"cut":false,"hidden":false,"merged":[[1,2,1,9],[10,2,11,6],[13,3,14,6],[14,7,14,9],[25,1,25,11]]}
[]
[null,null,"Jak na Excel "]
[]
[]
[null,null,null,"Obsah cvičení"]
[null,null,null,null,"Test posilání emailu"]
[]
[]
[]
[]
[null,null,"Pavel Lasák"]
[]
[]
[null,null,null,"Lektor, expert na Microsoft Excel, držitel prestižního ocenění Microsoftu MVP v České republice"]
[null,null,null,null,null,null,null,5002722]
[]
[]
[]
[]
[null,null,null,"Další informace ke cvičení:"]
[]
[]
[]
[]
[]
[null,"Copyright, Pavel Lasák 2017, 2021"]

{"sheet":"Test Email","index":1,"n_rows":56,"n_cols":3,"rows_kept":56,"cut":false,"hidden":false,"merged":[[0,0,0,2]]}
["Test Email"]
["kam:","example@gmail.com","<<< zde zadejte svou emailovou adresu"]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
[]
["Kódy pokud někoho zajíma :)"]
[null,"Poslání emailu SendMail"]
[]
[null,"EmailPokus = Range(\"B2\").Value"]
[null,"ActiveWorkbook.SendMail _"]
[null,"Recipients:=EmailPokus, _"]
[null,"Subject:=\"Test email 1\""]
[]
[]
[]
[]
[null,"Poslání emailu přes aplikaci Outlook"]
[null,"    Dim OutApp As Object"]
[null,"    Dim OutMail As Object"]
[]
[null,"    Set OutApp = CreateObject(\"Outlook.Application\")"]
[null,"    Set OutMail = OutApp.CreateItem(0)"]
[null,"    EmailPokus = Range(\"B2\").Value"]
[null,"    "]
[null,"    On Error Resume Next"]
[null,"    With OutMail"]
[null,"        .to = EmailPokus"]
[null,"        .CC = \"\""]
[null,"        .BCC = \"\""]
[null,"        .Subject = \"Email test Excel 2\""]
[null,"        .Body = \"Ahoj tohle je pokus\""]
[null,"        .Attachments.Add ActiveWorkbook.FullName"]
[null,"        ' přidat přílohu"]
[null,"        '.Attachments.Add (\"C:\\test.txt\")"]
[null,"        .Send"]
[null,"    End With"]
[null,"    On Error GoTo 0"]
[]
[null,"    Set OutMail = Nothing"]
[null,"    Set OutApp = Nothing"]
[]
[]
[null,"Více informací"]
[null,"http://www.rondebruin.nl/mac/section2.htm"]