Help writing code to set a preference in Notes Calendar

[flipperc]

I am not really good at writing code & I'm not sure this is the correct forum for this.
Can someone tell me how to make a button that does this:
Inbox--> Tools--> Preferences-->
Calendar tab--> Autoprocess tab-->
place "x" in "Remove Meeting invitations from my Inbox after I respond to them" box.

Many thanks (& maybe $$$) to anyone who can help

PhillipC

 

[tenniseewalker]

Try this.

Sub Click(Source As Button)

Dim doc As NotesDocument

server = Evaluate({@Subset( @MaildbName; 1 )})
dbname = Evaluate({@Subset( @MaildbName; -1 )})
Dim maildb As New NotesDatabase(server(0), dbname(0))
Set doc = maildb.GetProfileDocument("CalendarProfile&quot
doc.AutoRemoveFromInbox = "1"
Call doc.Save(True, False)

End Sub

 

[flipperc]

That worked perfectly!
Now I see what I was doing wrong.

Thanks alot! A couple stars for you!