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

Advertisements

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s