The coal : Prompt user if the Email address he/she  puts in his/her  calendar profile is True

runs on : Before Mail arrives

CODE:

Sub Initialize
Dim Session As NotesSession
Dim DB As NotesDatabase
Dim doc As NotesDocument
Dim docProfile As NotesDocument
Dim strAction As String
Dim strFolder As String
Set Session = New NotesSession
Set doc = Session.DocumentContext
Dim ErrorHandler As Variant

‘If doc.HasItem(“SMTPOriginator”) Then
Set DB = Session.CurrentDatabase

Set docProfile = db.GetProfileDocument(“CalendarProfile”)
strAction = UCase(docProfile.EmailToCheck(0))
If Not docProfile Is Nothing Then
If Not Isname(db, doc, docProfile,strAction) Then
End If
End If

End Sub

Function IsName(DB As NotesDatabase, Doc As NotesDocument, docProfile As NotesDocument,strAction As string) As Integer

Isname = False

Dim docWhiteList As NotesDocument
Dim strFrom As String
Dim strTemp As String
Dim ws As New NotesUIWorkspace
On Error GoTo ErrorHandler
If doc.From(0) <> “” Then
strFrom = UCase(doc.From(0))
Print strFrom
Else
Exit Function
End If

If strFrom = “” Then
If doc.From(0) <> “” Then
strFrom = UCase(doc.From(0))
Print strFrom
Else
Exit Function
End If
End If

If strAction <> strFrom Then
GoTo bailout
End If

Dim workspace As New NotesUIWorkspace
Call workspace.DialogBox( “GotEmail”, True, True, True, True,    False, False, “Email you need to read”,”" )
‘ OR this us this

‘Call ws.Prompt(PROMPT_YESNO,”Urgent email”, “Email you need to read.”)

ErrorHandler:
Print CStr(Err) + ” – ” + Error + ” – ” + CStr(Erl)

bailout:

End Function

Source http://www.macrumors.com/2011/09/16/apple-thunderbolt-display-with-multiple-monitors/

So shame on you IBM.

Karl , I will take your code and add some code to it .  Send me an email to palmi at lord dot is  and i vill send you the code (db) for testing. then we can add this to OpenNTF. Game ? 

Nice job

My take on the ODC . There are some really great samples  that should have been part of Xpages from start , don´t get me wrong, I really appreciated the effort and time they put into it . Thank you.

Here are some of the plugins that I belive is going to be fighting for the 1st price.

• ZK Spreadsheet Control By: Dennis Chen
• Asynch Files Upload Control By: Ferry Kranenberg
• Calendar Plan Controls By: Kateryna Czerniachowska
• JQuery Library Control By: Declan Lynch
• Search and TagCloud Control By: Frank van der Linden

Great job guys.

More Here  >>>>>>>  link

The University of Nebraska is scrapping Lotus Notes for a cloud-based system, and was trying to decide whether to go with Google Apps or Microsoft’s recently launched competitor, Office 365.

The University chose Microsoft’s product — and told InformationWeek that Microsoft gave them $250,000 for making that choice.

Read more: http://www.businessinsider.com/microsoft-gave-customer-250000-to-choose-office-365-over-google-apps-2011-7#ixzz1RKjjcd5d