PhoneMeeting in Calender entry

I thought i shear this with you

Now days online meetings are more and more being used. I have made a button for our users to press to create all the necessary information for the user to log in to the meeting. And its simple for our users to create. Our System use the person that sends out the invite phone number (four digits) to hold the meeting.

1. Create button in “_Calender Entry” form
2. paste the code from below into a new button.
3. Change the text to reflect your company information
5. test it

Sub Click(Source As Button)
‘————————————————————
‘  Gert af PHL  2010 Nóv 05
‘   Tilgangur – að setja inn upplýsingar um að þetta sé símafundur
‘————————————————————-
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As notesuidocument
Dim view As NotesView
Dim doc As NotesDocument
Dim user As String
Dim strCompanyPhonenumber As Variant
Dim continue As Variant
Dim GetPerson As Variant
Dim db As NotesDatabase
Dim nab As NotesDatabase
Set db = session.CurrentDatabase
Dim Textt As String
Dim vTextt  As Variant
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Newline = Chr$(10)
Call getCompanyName(strCompanyPhonenumber,doc)
Textt = “Teleconference: Call +XXX XXX XXXX, Meeting no: XXX ” +Right(strCompanyPhonenumber,4)+ “, access code: XXXXXX ”
Textt2 = “If calling from abroad: Call +xxx xxx XXXX, then press ( Meeting no): 888 “+Right(strCompanyPhonenumber,4)+” , access code: XXXX ” +newline+ “There are max 6 parties that can dial in at a time. If the meeting is filled to capacity, please contact your conference call coordinator for assistant.”+newline+”If calling from Denmark please call XXXXXXX and meeting no XXXX “+Right(strCompanyPhonenumber,4)+” and access code XXXXXX.”
Call uidoc.FieldSetText  (“Location”,Textt)
Call uidoc.FieldSetText  (“Body”,Textt2)

End Sub

Function getCompanyname( strCompanyPhonenumber As Variant,doc As notesdocument) As NotesDatabase

Dim session As New NotesSession
Dim dc As NotesDocumentCollection
Dim view As NotesView
Dim ws As New NotesUIWorkspace
Dim user As String
Dim strCompanyName As String
Dim continue As Variant
Dim GetPerson As Variant
Dim db As NotesDatabase
Dim nab As NotesDatabase
Set db = session.CurrentDatabase
Set nab = New NotesDatabase(db.server , “names.nsf” )
Set view = nab.GetView( “($Users)”)
user = session.UserName
Set Getperson = view.getDocumentByKey(user, True )
If Not GetPerson Is Nothing Then
strCompanyName = GetPerson.GetItemValue(“OfficePhoneNumber”)(0)
strCompanyPhonenumber = strCompanyName
Else
continue = False
End If
End Function

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