Outlook Calendar.ahk

#Include <default_Settings> ;RAlt::
global Obj:=[] ;Creates obj holder for variables
;~  https://autohotkey.com/board/topic/117747-calculating-difference-between-gmt-and-local-time/
;~  FormatTime, UTC, % A_NowUTC, yyyyMMddT HH:mm
Gui, Add, MonthCal, vMyCalendar
gui,Show
MsgBox % A_NowUTC
FormatTime, UTC, % A_NowUTC, yyyyMMddTHHmmssZ
MsgBox, %UTC% `n20180714T170000Z


FormatTime, UTC, % A_NowUTC, HH:mm
MsgBox % "UTC (Coordinated Universal Time) is " . UTC
;~  Run, http://www.timeanddate.com/worldclock/custom.html?sort=1

return

Title:="AutoHotkey Webinar"
URL:=Location:="https://zoom.us/j/XXXXXXXXXXXXX"

Message =
( LTrim Join`n
Hi there,

Joe Glines is inviting you to an AutoHotkey webimar.
Join from PC, Mac, Linux, iOS or Android: %URL%

)
message:=UriEncode(message)
MsgBox % this message needs to be truncatd @75 charachters and have the next line Space/tab indented
SciTE_Output(message) ;Text,Clear=1,LineBreak=1,Exit=0
return
;************************************************************
Month_Day:="0919" , Year:="2017"
Google_Cal:="https://www.google.com/calendar/render?action=TEMPLATE&text=" %Title%
 . "&dates=" Year Month_Day "T200000Z%2F" Year Month_Day "T220000Z"
 . "&details=Hi%20there%2C%20%0D%0A%0D%0AJoe%20Glines%20is%20inviting%20you%20to%20a%20scheduled%20Zoom%20meeting.%20%0D%0A%0D%0AJoin%20from%20PC%2C%20Mac%2C%20Linux%2C%20iOS%20or%20Android%3A%20" %Location% "%0D%0A%0D%0AOr%20iPhone%20one-tap%20%28US%20Toll%29%3A%20%20%2B16465588656%2C693773857%23%20or%20%2B14086380968%2C693773857%23%0D%0A%0D%0AOr%20Telephone%3A%0D%0A%20%20%20%20Dial%3A%20%2B1%20646%20558%208656%20%28US%20Toll%29%20or%20%2B1%20408%20638%200968%20%28US%20Toll%29%0D%0A%20%20%20%20Meeting%20ID%3A%20693%20773%20857%0D%0A%20%20%20%20International%20numbers%20available%3A%20https%3A%2F%2Fzoom.us%2Fzoomconference%3Fm%3DqegpzRkANfXfptUGhtHIXhqKjJv-Whgs%0D%0A%0D%0A"
 . "&location=" %Location% "&trp=false&sprop=https%3A%2F%2Fzoom.us&sprop=name%3AZoom&pli=1&sf=true&output=xml"

Yahoo_Cal:="http://calendar.yahoo.com/?v=60&VIEW=d&TITLE=" %Title% "&in_loc=" %Location% "&URL=" %Location%
 . "&ST=" Year Month_Day "T200000Z&DUR=0200"
 . "&DESC=Hi%20there%2C%20%0D%0A%0D%0AJoe%20Glines%20is%20inviting%20you%20to%20a%20scheduled%20Zoom%20meeting.%20%0D%0A%0D%0AJoin%20from%20PC%2C%20Mac%2C%20Linux%2C%20iOS%20or%20Android%3A%20" %Location%    "%0D%0A%0D%0AOr%20iPhone%20one-tap%20%28US%20Toll%29%3A%20%20%2B16465588656%2C693773857%23%20or%20%2B14086380968%2C693773857%23%0D%0A%0D%0AOr%20Telephone%3A%0D%0A%20%20%20%20Dial%3A%20%2B1%20646%20558%208656%20%28US%20Toll%29%20or%20%2B1%20408%20638%200968%20%28US%20Toll%29%0D%0A%20%20%20%20Meeting%20ID%3A%20693%20773%20857%0D%0A%20%20%20%20International%20numbers%20available%3A%20https%3A%2F%2Fzoom.us%2Fzoomconference%3Fm%3DqegpzRkANfXfptUGhtHIXhqKjJv-Whgs%0D%0A%0D%0A"

;***********2016 outlook issue  https://answers.microsoft.com/en-us/msoffice/forum/msoffice_outlook/outlook-2016-ics-description-shows-no-html/08d06cba-bfe4-4757-a052-adab64ea75a2*******************
;***********2016-If Description present, will use it instead of X-ALT-DESC;FMTTYPE=text/html:*******************
;~  https://www.w3.org/2000/01/foo
;~  https://en.wikipedia.org/wiki/ICalendar
;~  https://tools.ietf.org/html/rfc5545
;~  https://stackoverflow.com/questions/45067967/alloy-model-of-unfolding-icalendar-documents
;~  1) An iCalendar file consists of a series of lines. Each line cannot be longer than 75 characters
;~  2) If a line exceeds that length, the line must be “folded” onto the next line. A space /Tab character at the start of a line indicates that it is a continuation of the previous line.
;~  3) first Line must be BEGIN:VCALENDAR
;~  4) last line must be: END:VCALENDAR
;~  5) icalendar should not have blank Lines
;~  6) https://www.cl.cam.ac.uk/~mgk25/iso-time.html  Without any further additions, a date and time as written above is assumed to be in some local time zone. In order to indicate that a time is measured in Universal Time (UTC), you can append a capital letter Z to a time as in 23:59:59Z or 2359Z
/*
 ,=%2C
 Space=%20
 Carriage return=%0D
 line feed = %0A
*/



;*********************URI Encode data*****************
UriEncode(Uri, RE="[0-9A-Za-z]"){
	VarSetCapacity(Var,StrPut(Uri,"UTF-8"),0),StrPut(Uri,&Var,"UTF-8")
	While Code:=NumGet(Var,A_Index-1,"UChar")
		Res.=(Chr:=Chr(Code))~=RE?Chr:Format("%{:02X}",Code)
	Return,Res   TO
}