24 settembre 2006
Is there a speed or stride where running is more efficient? | The Register
Ok. Let's have a beer.
23 settembre 2006
Et in terra pax hominibus bonae voluntatis.
An excerpt from a christian prayer: "Gloria in excelsis Deo". The leitmotiv of personal productivity is "Effort doesn't count. Just results."
I can't agree. Efforts count regardless of results: you can obtain peace on earth by mean of your good will. And this is quite a result (no pun intended).
P.S.: In the english version of the "Gloria", they lost the meaning of this verse: "Peace to His people on earth" is less... ecumenic than "on earth peace to men of good will".
Powered by Qumana
17 settembre 2006
Jung Typology Test
From Guy Kawasaki's blog I noticed a comment by an italian reader, Nicola Mattina. Browsing his profile from his website, I found the word iNFj.
At a first glance, I thought it was a typo: few seconds after, I was compiling this test. I am an iNFj too. I took the test two more times just to be sure the result is not ever the same independently from your answer, and seems to be genuine.
If you have two spare minutes, take it. It's fun, and it's free (usually this kind of tests are not).
Powered by Qumana
16 settembre 2006
Presentazioni dall'iPod
Ecco la risposta alla domanda "come fare una presentazione su
proiettore dall'iPod".
09 settembre 2006
Promemoria allegati per Outlook - aggiornamento
Sulla scia del suggerimento di djfede ripubblico il codice aggiornato per Outlook. Con la modifica, viene segnalato un avviso nel caso in cui non sia presente un allegato ma nel corpo della mail ci sia la radice "alleg" o "attach".
Il post originale, comprensivo di citazione per l'autore della macro (no, non sono io), è qui.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim m As Variant
Dim strBody As String
Dim intIn As Integer, intAttachCount As Integer
Dim x As Integer
On Error GoTo handleError
intAttachCount = 0
strBody = LCase(Item.Body)
intIn = InStr(1, strBody, "original message")
If intIn = 0 Then intIn = Len(strBody)
intIn = InStr(1, Left(strBody, intIn), "alleg") + InStr(1, Left(strBody, intIn), "attach")
If intIn > 0 Then
For x = 1 To Item.Attachments.Count
If LCase(Item.Attachments.Item(x).DisplayName) <> "picture (metafile)" Then
intAttachCount = intAttachCount + 1
End If
Next
If intAttachCount = 0 Then
m = MsgBox("Sembra proprio che tu voglia mandare un allegato," & vbCrLf & "ma non ci sono allegati in questo messaggio." & vbCrLf & vbCrLf & "Desideri inviarlo comunque?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
If m = vbNo Then Cancel = True
End If
End If
handleError:
If Err.Number <> 0 Then
MsgBox "Outlook Attachment Reminder Error: " & Err.Description, vbExclamation, "Outlook Attachment Reminder Error"
End If
End Sub
Powered by Qumana