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.