Могу ли я использовать Goole Calender API с VBA (чтобы создать запись календаря из MS-Excel)

Question

Мне нравится создавать новую запись в календаре Google из Microsoft Excel 2016, как я могу это сделать?

Я попробовал следующий код, но получаю тайм-аут по адресу "xmlhttp.send ...".

Sub AddGoogleKalenderEntry()
    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
    xmlhttp.Open "POST", "https://www.google.com/accounts/ClientLogin", False
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlhttp.send "accountType=HOSTED_OR_GOOGLE&Email=<User>@gmail.com&Passwd=<PWD>" & "&source=Gulp-CalGulp-1.05&service=cl"

    Lines = Split(xmlhttp.responseText, vbLf)
    nvp = Split(Lines(2), "=")

    Set xmlhttp = Nothing

    calentry = "<?xml version='1.0' ?><entry xmlns='http://www.w3.org/2005/Atom' " _
    & "xmlns:gd='http://schemas.google.com/g/2005'>" _
    & "<category scheme='http://schemas.google.com/g/2005#kind' " _
    & "term='http://schemas.google.com/g/2005#event'></category>" _
    & "<title type='text'>Tennis with Beth</title>" _
    & "<content type='text'>Meet for a quick lesson.</content>" _
    & "<gd:transparency " _
    & "value='http://schemas.google.com/g/2005#event.opaque'>" _
    & "</gd:transparency>" _
    & "<gd:eventStatus " _
    & "value='http://schemas.google.com/g/2005#event.confirmed'>" _
    & "</gd:eventStatus>" _
    & "<gd:where valueString='Rolling Lawn Courts'></gd:where>" _
    & "<gd:when startTime='2010-01-22T15:00:00.000Z' " _
    & "endTime='2010-01-22T17:00:00.000Z'></gd:when>" _
    & "</entry>"

    url = "http://www.google.com/calendar/feeds/default/private/full"

    Call postEntry(url, nvp)


End Sub