Sub Send (msg As MailCreator)
Try
oauth2.GetAccessToken
Wait For OAuth2_AccessTokenAvailable (Success As Boolean, Token As String)
If Success = False Then
Log("Error accessing account.")
Return
End If
Dim j As HttpJob
j.Initialize("", Me)
j.PostString("https://www.googleapis.com/upload/gmail/v1/users/me/messages/send?uploadType=multipart", msg.ToString)
j.GetRequest.SetHeader("Authorization", "Bearer " & Token)
j.GetRequest.SetContentType("message/rfc822")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log("Mail sent successfully")
Log(j.GetString)
ToastMessageShow("Message sent", True)
Else
Log("Failed to send mail.")
End If
j.Release
Log("Done!!!")
Catch
Log("Error Sending Debug Log")
End Try
End Sub