Export Groups With InternetAddress for each person in Groups

I was looking for some information on web few months ago and saw DB sample that would let you verify users in a groups done by David Jamieson.

Knowing that i had a project coming up where i needed to export groups from Domino address book into AD I downloaded the db. I modifyd the script to get the Internet address email address into txt file along with Type Group

Davids DB is here:

SAMPLE TXT OUTPUT
“[Mail Only]“,”GROUPNAME”,”INTERNET ADDRESS”

Thanks David for your sample db.

Enjoy
Sub Click(Source As Button)

Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As New NotesDatabase( “”, “” )
Dim GroupView As NotesView
Dim PersonView As NotesView
Dim GroupDoc As NotesDocument
Dim PersonDoc As NotesDocument
Dim uidoc As NotesUIDocument
Dim inetnetadd As String
Dim rtitem As Variant

Dim txtServer As String
Dim txtFilename As String
Dim Nam As NotesName

‘ Get the Server of the Address Book
Dim s As New NotesSession
Forall book In s.AddressBooks
book.open “”, “”
If Book.Server”" Then
tmpServer=Book.Server
tmpFileName=Book.FileName
Exit Forall
End If
End Forall

‘ Prompt user to confirm server name and filename
txtServer = workspace.Prompt (PROMPT_OKCANCELEDIT, “Server Name”, “Server to check.”, tmpServer)
If Isempty (txtServer) Then
Exit Sub
End If

txtFilename = workspace.Prompt (PROMPT_OKCANCELEDIT, “Address Book”, “Filename on “+txtServer+”?”, tmpFilename)
If Isempty (txtFilename) Then
Exit Sub
End If

‘ Attempt to Open the server address book
If Not db.Open(txtServer, txtFilename ) Then
Msgbox “Failed to Open the Address Book”,16,”Warning”
Exit Sub
End If

‘ Get List of People
Set uidoc = workspace.CurrentDocument

‘ Work Through Groups

Set GroupView=db.GetView(“Groups”)
Set GroupDoc=GroupView.GetFirstDocument
While Not GroupDoc Is Nothing

‘ Get Group Type
Select Case GroupDoc.GroupType(0)
Case “0″ : tmpGroupType=”[Multipurpose]“
Case “1″ : tmpGroupType=”[Mail Only]“
Case “2″: tmpGroupType=”[Access Control List Only]“
Case “3″ : tmpGroupType=”[Deny List Only]“
Case “4″ : tmpGroupType=”[Servers Only]“
End Select

PeopleCount=0
Set PersonView=db.GetView(“People”)
Set PersonDoc=PersonView.GetFirstDocument
While Not PersonDoc Is Nothing
PeopleCount=PeopleCount+1
Redim Preserve PeopleList(PeopleCount)
ListName = groupDoc.ListName(0)

PeopleList(PeopleCount)=PersonDoc.FullName(0)
inetnetadd = PersonDoc.Internetaddress(0)
fileNum% = Freefile()
fileName$ = “C:\Users\Public\Documents\InternetAddressFromGroupsMembers.txt”
Open FileName$ For Append As fileNum%
Write #fileNum% , tmpGroupType, ListName ,inetnetadd
Close fileNum%
Set PersonDoc=PersonView.GetNextDocument(PersonDoc)

Wend
Set GroupDoc=GroupView.GetNextDocument(GroupDoc)
Wend
End Sub

Xpage : Hide but using getQueryString

Hi everyone

Am using getQueryString as a  KEY to fill in some information on the form. I really don´t want to use CSS to hide this Field . I have tried to use the CORE hide( see picture)

here is the getQueryString(); CODE.

q = facesContext.getExternalContext().getRequest().getQueryString();
k = “input”;
if (q.indexOf(k+”=”)>-1) {
v = q.substring(q.indexOf(k+”=”)+k.length()+1, q.length());
v = (v.indexOf(“&”)>-1?v.substring(0,v.indexOf(“&”)):v);
}

Any ideas ?

Hitler switches to Lotus Notes

Now we know why Adolf Hitler toke his life

Sandy Carter IBM Vice President, Social Business Sales in Iceland

Sandy Carter, IBM Vice President, Social Business Sales and evangelism

Will discuss why social media is important to the future, at the University of Reykjavik on Wednesday 8th February at 12:10 to 13:00.

• Why it is important to harness the power of social media inside companies and institutions?
• How can companies utilize social media to achieve a competitive advantage?
• Why social media the next leap in the development of information technology?

 

Another win for MS – Icelandair Group

Icelandair Group is in the first steps of  implementation of the Microsoft solution for mail and groupware. Icelandair Group is a group of 2,500 people. Icelandair Group  was one of the biggest Lotus Notes users in Iceland. They will be using  Microsoft Office, Outlook, Exchange, SharePoint og Lync.

Happy New Year everyone / LS2012

2011 was in part a heavy year,  both at work and making ends meet, I have been very fortune to have kept my job for last four year.Now as we are seeing changes in the Economy Im hoping that telling us that 2012 going to be alot better than the year 2011. There are also other changes in the air that may affect my work . I will post later on that topic.   I will not be going to LS2012 and part of me is relieved  as you all know that have been there.  its HARD work for 5 full days and you will come home very tired but with lots of good ideas and inspired by lot of good people and I will miss that and the change to see everyone. But I will be on the sideline and read every post / feed that comes out of LS2012.

 

if you are awake at 00:00 Greenwich time you can see the most spectacular fireworks ever by clicking on this link and watch it live. At midnight Icelanders will go crazy with fireworks

http://eldgos.mila.is/newyears/

 

Happy new year everyone

 

 

  http://w

Update – see what Kiefer Sutherland  says about our fireworks -   http://kvikmynd.is/mynd/?v=3718  or  ww.inspiredbyiceland.com/

 

Drag and drop into Workingset

To my surprise i found out that you can open up designer , then open up file explorer, navigate to Data folder , there you can pick ether template or database then drag and drop them into sidebar in workingset . if you pick more than one then you will be asked for each one what workingset you like to place them into , very nice.