Can anyone recommend a way to add an address to the IgnoreFromList on everyone’s Out of Office /calendar profile?
I cannot access a the Out of Office profile from the mail template via the UI because I am not the mail file owner.
How do I go about setting this on the back end?
Subject: Out of Office Agent - IgnoreFromList
You can put the code behind a button and send it to all users. you can handle to the profile doc via:Dim s as New NotesSession
Dim db as NotesDatabase
Dim doc as NotesDocument
Set db = s.CurrentDatabase
Set doc = db.GetProfileDocument(“OutOfOfficeProfile”)
Subject: Out of Office Agent - IgnoreFromList
If you have an ID that has access to all mail files you can run an agent on the server to add it. Just loop through all mail users in your domino directory to get each mail file then use GetProfileDocument and append to the field.
Subject: RE: Out of Office Agent - IgnoreFromList
Thanks, I will give it a shot!
Subject: RE: Out of Office Agent - IgnoreFromList
Forgot to update sooner…
I added the following agent to the mail template and let designer push it out to all the mailboxes with a schedule to run one evening.
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim item As NotesItem
Set db = s.CurrentDatabase
Set doc = db.GetProfileDocument("OutOfOfficeProfile")
Set item = doc.GetFirstItem( "IgnoreFromList" )
Call item.AppendToTextList( "AddressYouDontWanttoRespondTo@domainname.com" )
Call doc.Save( True, True)