Tuesday, March 9, 2010

Just noticed a nice alert from Gmail.

If my composed mail has a sentence like “… find the attached …”, click on send button shows below:

gmail

3 comments:

  1. Yeah, it used to be a GMail Labs feature which you needed to turn on; but now I guess it has been promoted to the main product. Interesting one though...

    ReplyDelete
  2. You can turn this feature on outlook too. :)
    use this script

    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim m As Variant
    Dim strBody As String
    Dim intIn As Long
    Dim intAttachCount As Integer, intStandardAttachCount As Integer

    On Error GoTo handleError

    'Edit the following line if you have a signature on your email that includes images or other files. Make intStandardAttachCount equal the number of files in your signature.
    intStandardAttachCount = 0

    strBody = LCase(Item.Body)

    intIn = InStr(1, strBody, "original message")

    If intIn = 0 Then intIn = Len(strBody)

    intIn = InStr(1, Left(strBody, intIn), "attach")

    intAttachCount = Item.Attachments.Count

    If intIn > 0 And intAttachCount <= intStandardAttachCount Then

    m = MsgBox("It appears that you mean to send an attachment," & vbCrLf & "but there is no attachment to this message." & vbCrLf & vbCrLf & "Do you still want to send?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)

    If m = vbNo Then Cancel = True

    End If

    handleError:

    If Err.Number <> 0 Then
    MsgBox "Outlook Attachment Reminder Error: " & Err.Description, vbExclamation, "Outlook Attachment Reminder Error"
    End If

    End Sub

    ReplyDelete