Android Question [Solved] Add event in calendar using intent

[asales]

I use the Calendar lib to put an event in the calendar, but I got a warning from Google about the use of the READ_CALENDAR and READ_CONTACTS permissions:

App permissions best practices | Privacy | Android Developers

This document provides tips on achieving app functionality without excessive permission requests and discusses considerations for handling runtime permissions in Android 6.0+ to protect sensitive user information.

developer.android.com

I want to remove the lib, the permissions and using an intent to put the entry in the calendar:

Dim it As Intent
it.Initialize(it.ACTION_EDIT, "")
it.SetType("vnd.android.cursor.item/event")

it.putExtra("Events.TITLE", "New Event Title")
it.putExtra("Events.ALL_DAY", "True")
it.putExtra("Events.DESCRIPTION","Event Description")
it.putExtra("CalendarContract.EXTRA_EVENT_BEGIN_TIME", DateTime.Add(DateTime.Now, 0, 0, 1))
it.putExtra("CalendarContract.EXTRA_EVENT_END_TIME", DateTime.Add(DateTime.Now, 0, 0, 1))
StartActivity(it)

The calendar is opened to edit, but the options in putExtra don't work.

I based in this links:

Intents comuns | App architecture | Android Developers

Uma intent permite iniciar uma atividade em outro app descrevendo uma ação que você quer realizar (como "ver um mapa" ou "tirar uma foto") em um objeto de intent. Esse tipo de intent é chamada de intent implícita porque...

developer.android.com

insert event to calendar using intent

I know this has been asked previously in this forum, but I tried everything written here and still nothing works for me. What I want to do is to insert an event to the calendar. Since there are sev...

stackoverflow.com

Is possible to add the entry in calendar using this intent?

Thanks in advance for any tips to fix it.

 

[asales]

Solution here:

Add event in calendar using intent

Dim i As Intent i.Initialize(i.ACTION_EDIT, "content://com.android.calendar/events") 'The title of the event. i.PutExtra("title", "Team reunion") 'The description of the event i.PutExtra("description", "Project Discussion") 'Where the event takes place. i.PutExtra("eventLocation", "Conference...

www.b4x.com