{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["List1"],"not_rendered":{"charts":0,"images":2,"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":"List1","index":0,"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"]