The Size Of Our World
Just in case you forgot how insignificant we are. Vanitas vanitatum, et omnia vanitas.
27 giugno 2006
21 giugno 2006
Promemoria per allegati con Outlook
mark.bird - Outlook Attachment Reminder
Promemoria per allegati con Outlook (traduzione in italiano dell'articolo di Mark Bird)
Questa Macro di Outlook ti ricorderà in maniera discreta di allegare un file se trova la radice "alleg" in una mail che stai per spedire e nessun file realmente allegato alla mail. [sfortunatamente, la macro dipende dal linguaggio che usi: ecco il motivo della traduzione in italiano].
Aggiungere una macro in Outlook è facile. Basta copiare il testo sotto riportato che inizia con "Private Sub" e finisce con "End Sub". In Outlook, seleziona il menu Strumenti|Macro|Visual Basic Editor. Poi si espande il progetto cliccando sul segno di fianco a Progetto1 fino a mostrare ThisOutlookSession, e facendo su questa doppio clic. Clicca nella pagina bianca e scegli "Incolla".
In calce c'è un immagine che mostra come dovrebbe apparire l'editor con il codice.
Clicca "Salva" e sei in fondo. Se avete disabilitato le macro dovrete ri-abilitarle.
*Nota: Outlook Express non supporta le Macro.
Copia e incolla quanto segue:
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
Brought from Mark Bird through LifeHacker.
Promemoria per allegati con Outlook (traduzione in italiano dell'articolo di Mark Bird)
Questa Macro di Outlook ti ricorderà in maniera discreta di allegare un file se trova la radice "alleg" in una mail che stai per spedire e nessun file realmente allegato alla mail. [sfortunatamente, la macro dipende dal linguaggio che usi: ecco il motivo della traduzione in italiano].
Aggiungere una macro in Outlook è facile. Basta copiare il testo sotto riportato che inizia con "Private Sub" e finisce con "End Sub". In Outlook, seleziona il menu Strumenti|Macro|Visual Basic Editor. Poi si espande il progetto cliccando sul segno di fianco a Progetto1 fino a mostrare ThisOutlookSession, e facendo su questa doppio clic. Clicca nella pagina bianca e scegli "Incolla".
In calce c'è un immagine che mostra come dovrebbe apparire l'editor con il codice.
Clicca "Salva" e sei in fondo. Se avete disabilitato le macro dovrete ri-abilitarle.
*Nota: Outlook Express non supporta le Macro.
Copia e incolla quanto segue:
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
Brought from Mark Bird through LifeHacker.
NaCl
SS64.com
Not another Command list.
I know, as acronym would require all capital letters, but chemistry calls.
This link brings to an awesome collection of command for Windows, MacOSX, Linux and Oracle (Win the Giant, Mac the Elf, Tux the Dwarf and Orl the Orc).
Precious quote at the bottom of each page, e.g.
"Whom the gods love dies young" - Menander 300 BC after the "kill" command.
I like it very much.
Not another Command list.
I know, as acronym would require all capital letters, but chemistry calls.
This link brings to an awesome collection of command for Windows, MacOSX, Linux and Oracle (Win the Giant, Mac the Elf, Tux the Dwarf and Orl the Orc).
Precious quote at the bottom of each page, e.g.
"Whom the gods love dies young" - Menander 300 BC after the "kill" command.
I like it very much.
16 giugno 2006
13 giugno 2006
How is your hearing?
ochen k.
This is weird: some old fart create a tone to keep the youngsters outside, and this turn out as a ringtone unhearable by the old farts.
So, what is the highest frequency you can hear? Follow the link. Be careful not to thread too long in the "silent" region, is it likely to give you nausea.
P.S.: I hear clearly 15000 Hz, a bit less 16000 Hz, nothing at all from 17000 Hz and up.
P.S. #2: if 440 Hz is the frequency of a diapason (La3 or La4, depending by your side of the Atlantic Ocean), so 3520 Hz is the last La of a piano keyboard. We can assume no music plays above 14000 Hz.
This is weird: some old fart create a tone to keep the youngsters outside, and this turn out as a ringtone unhearable by the old farts.
So, what is the highest frequency you can hear? Follow the link. Be careful not to thread too long in the "silent" region, is it likely to give you nausea.
P.S.: I hear clearly 15000 Hz, a bit less 16000 Hz, nothing at all from 17000 Hz and up.
P.S. #2: if 440 Hz is the frequency of a diapason (La3 or La4, depending by your side of the Atlantic Ocean), so 3520 Hz is the last La of a piano keyboard. We can assume no music plays above 14000 Hz.
11 giugno 2006
Once were warriors
Media Orchard, by the Idea Grove
To think about it: Italy is like Greece or Egypt, centuries apart from her last world-span victory.
Two citations:
Some say Europeans are less energetic, but I don't believe it. I think the problem with Europe is not that they lack balls, but that they lack examples. (Paul Graham)
Virtue versus fury will take up arms
And the battle will be short
For the ancient valor in the italic hearts
Is not yet dead. (Nicolò Machiavelli)
To think about it: Italy is like Greece or Egypt, centuries apart from her last world-span victory.
Two citations:
Some say Europeans are less energetic, but I don't believe it. I think the problem with Europe is not that they lack balls, but that they lack examples. (Paul Graham)
Virtue versus fury will take up arms
And the battle will be short
For the ancient valor in the italic hearts
Is not yet dead. (Nicolò Machiavelli)
04 giugno 2006
Cell phone radiation chart - CNET reviews
Cell phone radiation chart - CNET reviews
Occhio al pingo pango!
Seguendo il link si arriva in una pagina in cui sono riportati i livelli di emissione dei telefoni cellulari (americani, ok, ma un sacco di modelli corrispondono a quelli europei); emergono cose interessanti, tipo:
- i telefoni più "emissivi" sono i Motorola.
- il limite americano è l'80% di quello europeo (ovvero noi europei siamo il 25% più quaglioni?)
Occhio al pingo pango!
Seguendo il link si arriva in una pagina in cui sono riportati i livelli di emissione dei telefoni cellulari (americani, ok, ma un sacco di modelli corrispondono a quelli europei); emergono cose interessanti, tipo:
- i telefoni più "emissivi" sono i Motorola.
- il limite americano è l'80% di quello europeo (ovvero noi europei siamo il 25% più quaglioni?)
Iscriviti a:
Post (Atom)