kaleidoscope source code

Cette application permet de tester différents paramètres liés à la fonction noise() de Processing et de voir les résultats en temps réel.

Un homme averti en vaut deux (une femme aussi, d’ailleurs, à peu près dans les mêmes proportions)

A lire, relire, garder et relire de temps en temps.

http://www.commentcamarche.net/faq/32768-15-astuces-pour-ne-plus-se-faire-pieger-sur-le-net

So I built a solution with a few lines of code to add to Outlook.

This code verifies the reminder hour when a calendar item is saved. If it is set before a minimum hour (default 9am) or after a maximum hour (default 8pm), an alert proposes a new reminder time. The user can accept or deny the proposed value or cancel the closing in case he wants to set another value manually.

Installation

The following instructions are based on a french version of Outlook 2002, from which I try to translate for this english post. You may have some differences.

• From Outlook, open the Visual Basic Editor: menu Tools | Macro | Visual Basic Editor
• In the project pane, open Microsoft Outlook Objects then ThisOutlookSession
• In the script window, paste the following code (or adapt if you already have something)

Public WithEvents objCalendar As Outlook.Items

'The following in the Application_Startup
Public Sub Application_Startup()
   On Error GoTo ProcError
   Dim strProcName As String
   strProcName = "Application_Startup"

   ' Reference the items collection of the Calendar folder
   ' Because the objCalendar is dimensioned "WithEvents" (in Declararations section)
   ' the ItemAdd, Change and Remove events for this folder will fire and can be used for custom events.
   Set objCalendar = Outlook.Session.GetDefaultFolder(olFolderCalendar).Items

ProcExit:
   Exit Sub

ProcError:
   MsgBox "Unanticipated error " & Err.Number & " " & Err.Description & " In Procedure: " & strProcName
   'Stop
   Resume ProcExit
End Sub

Private Sub objCalendar_ItemAdd(ByVal Item As Object)
    verifyReminder Item
End Sub

Private Sub objCalendar_ItemChange(ByVal Item As Object)
    verifyReminder Item
End Sub

' Verify if reminder is set for sleep time and warn the user if necessary
' (c) Pierre Rossel http://www.prossel.com
Sub verifyReminder(ByVal Item As Object)
    On Error GoTo ProcError
    Dim strProcName As String
    strProcName = "verifyReminder"

    reminderMaxHour = 20
    reminderMinHour = 9

    Dim appitm As Outlook.AppointmentItem
    Set appitm = Item

    If appitm.ReminderSet Then
        Dim reminderDate As Date
        reminderDate = appitm.Start - appitm.ReminderMinutesBeforeStart / (24 * 60)
        reminderHour = (reminderDate - Int(reminderDate)) * 24

        tolerance = 0.01 ' avoid floating point small diffs (little bit less than a min)

        If reminderHour < reminderMinHour - tolerance Or reminderHour > reminderMaxHour + tolerance Then
            ' best guess, first try to advance to next minHour
            reminderDateSuggestion = reminderDate + (reminderMinHour - reminderHour) / 24
            ' verify if first guess is valid
            If reminderHour < reminderMinHour - tolerance And reminderDateSuggestion <= appitm.Start Then
                ' OK, first guess is valid, keep it
            ElseIf reminderHour > reminderMaxHour Then
                ' go back to max hour (same day)
                reminderDateSuggestion = reminderDate - (reminderHour - reminderMaxHour) / 24
            Else
                ' go back to max hour (previous day)
                reminderDateSuggestion = reminderDate - (reminderHour + 24 - reminderMaxHour) / 24
            End If

            rep = MsgBox("Le rappel est défini actuellement à une heure en dehors de la plage de confort. Voulez vous remplacer l'heure de rappel ?" & vbCrLf & vbCrLf & _
                         vbTab & reminderDateSuggestion & vbCrLf & _
                         "au lieu de " & vbCrLf & _
                         vbTab & reminderDate, vbQuestion + vbYesNoCancel)

            If rep = vbCancel Then
                appitm.Display
            ElseIf rep = vbYes Then
                appitm.ReminderMinutesBeforeStart = (appitm.Start - reminderDateSuggestion) * 24 * 60
                appitm.Save
            End If

        End If
    End If

ProcExit:
    Exit Sub

ProcError:
    MsgBox "Unanticipated error " & Err.Number & " " & Err.Description & vbCrLf & "In procedure: " & strProcName
    GoTo ProcExit
End Sub

• Search for the following lines and modify the min and max hours you accept to be reminded

reminderMaxHour = 20
reminderMinHour = 9

• Save and restart Outlook
• create or edit a appointment in the calendar and save it
• try with different reminder values and see how the alert fixes the reminder when you save

Il se trouve que j’utilise encore une “vieille” version d’Outlook qui semble souffrir d’un bug et que Microsoft ne soit pas vraiment disposé à le reconnaître et à le corriger. Serait-ce pour m’inciter à acheter les nouvelles versions qui, elles, ont corrigé ce bug ?

Voici un exemple (extrait) de ce que je vois:

Return-Path: xyz@domain.com
Received: from mta-mr2.xyz.ch (mta-mr2.xyz.ch [xyz.16.68.107])
by mda85.xyz.ch (8.14.2/8.14.2) with ESMTP id oBL9uovx005953
for
; Tue, 21 Dec 2010 10:56:51 +0100
Received: from mta-gw2.xyz.ch (mta-gw2.xyz.ch [xyz.16.68.87])
by mta-mr2.xyz.ch (8.14.2/8.14.2) with ESMTP id oBL9uoJN025546
for
; Tue, 21 Dec 2010 10:56:50 +0100
Received: from smtp165.xyz.xyz.com (smtp165.xyz.xyz.com [xyz.97.245.165])
by mta-gw2.xyz.ch (8.14.2/8.14.2) with ESMTP id oBL9unYV014547
(version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO)
for
; Tue, 21 Dec 2010 10:56:50 +0100
Received: from localhost (localhost.localdomain [127.0.0.1])
by smtp46.relay.iad1a.xyz.com (SMTP Server) with ESMTP id B9417E8BB6;
Tue, 21 Dec 2010 04:56:46 -0500 (EST)
X-Virus-Scanned: OK
Received: by smtp46.relay.iad1a.xyz.com (Authenticated sender: valerie.xyz-AT-xyz.org) with ESMTPSA id 73928E8E54;
Tue, 21 Dec 2010 04:46:14 -0500 (EST)
Message-ID: <4D107763.1000200@xyz.org>
Date: Tue, 21 Dec 2010 10:46:11 +0100


La cause de ce problème est que l’email envoyé n’a pas de destinataire direct (A ou TO) ou en copie (CC). Dans ce genre d’email, tous les destinataire sont en copie invisible, généralement quand ils sont envoyés à un grand nombre de destinataire qui ne se connaissent pas. Ce qui est d’ailleurs une très bonne chose, pour préserver la confidentialité des adresses emails.

Quelle solution alors ?

Il suffit simplement que l’expéditeur qui désire envoyer un email à plusieurs personnes en copie invisible s’ajoute lui-même comme destinataire principal de l’email. Son adresse figure déjà comme expéditeur, ça n’a donc aucune conséquence négative. L’immense avantage est que tout le monde pourra lire correctement l’email reçu.

Les critères principaux d’une bonne police pour le développement sont:

• monospace pour pouvoir aligner facilement les commentaires et autres blocs de code
• pouvoir distinguer facilement les o, O et 0 (zéro) ainsi que les i, I et l et L
• que les {} soient bien lisibles, par rapport aux [] et ()

J’en reviens toujours à Courrier New, mais chacun peut se faire rapidement une idée de ce que donnent les alternatives sur cette page: http://www.codeproject.com/KB/work/FontSurvey.aspx

Si vous avez, comme moi une collection de liens sur localhost, le changement manuel de localhost en ma-machine dans l’url est pénible. Ce bookmarklet (localhost<->ma-machine) le fait automatiquement. Il suffit de le glisser dans une barre de favoris, puis de l’éditer et changer le nom “ma-machine” par celui de votre machine.

Lorsque vous voulez changer l’url de la page courante de http://localhost/ma-page.php en http://ma-machine/ma-page.php, il suffit de cliquer sur le bookmarklet de votre barre d’outils.

Au passage, j’ai testé le plugin qui permet de debugger avec xDebug dans Notepad++ et là vraiment ça fonctionne très bien et c’est super rapide.

Pour plus d’infos et une table de comparaison entre les principales solution, voir (en anglais):
http://www.smashingmagazine.com/2009/02/11/the-big-php-ides-test-why-use-oneand-which-to-choose/

Pratique d’ActionScript 3