Best Blogging Tips and Templates,Windows Hacks: “Macro for Outlook Attachment Reminder” plus 1 more

Link to Blogger Tips and Hacks | Best Blogger Templates | SEO Tips and Tricks

Posted: 23 Jun 2010 03:57 AM PDT

We have just seen a macro for Black Subject Line Warning for Outlook 2007. Now we will see another Macro for Outlook Attachment Reminder.

Microsoft Outlook 2007

This Outlook macro will remind you to attach a file if it finds the word "attached", "attachment" or any where presence of word "attach" in your email and no actual file is attached.

Outlook counts files used in Signatures as attachments. If your signature uses one or more files, find the line intStandardAttachCount = 0 and make it equal the number of files in your signature.

Steps to Add Macro for Outlook Attachment Reminder

1. Go to Tools -> Macro -> Visual Basic Editor. Or directly press Alt + F11.

Tools_Macro_Visual_Basic_Editor_alt_F11

2. Now Visual Basic editor window gets opened.

3. On the Left Pane, You can see Microsoft Outlook Objects or Project1, expand this. Now you can see the ThisOutLookSession.

Project1_Office_Outlook_Object_ThisOutlookSession

Project1_Office_Outlook_Object_ThisOutlookSession

4. Double click on ThisOutLookSession. It will open up a code pane.

5. Copy and paste the following code in the code pane:

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

Now, just save the project.

One more setting you need to do and that is to enable macro.

Go to Tools->Macro->Security. A dialog window gets opened. Select Warning for all macro option.

Macro Warnings

Close your Outlook and open it again. You will be asked regarding the security concern. See the image below.

Enable Macros

Click on Enable Macros.

Now try to send an mail with empty subject line. It validates.. Enjoy....
Note: Outlook Express doesn't support macros

Macro: Blank Subject Line Warning for Outlook 2007

Posted: 23 Jun 2010 03:15 AM PDT

By default Microsoft Office Outlook does not validate for empty subject line before sending mails. There is a simple Macro Code which can validate blank subject line and warn user for the same in Outlook 2007

Nowadays, in the professional world, Outlook is used as the email client. Subject line is a very important part of any email. A good subject line can drive the attention of the email reader. How many times has it happened with you that you have sent an email through Outlook without a subject line. After clicking the send button, you realize that you have made a mistake. Are you forgetting to include the subject line? Outlook does not validate for empty subject line.

Steps to validate the empty subject line for Outlook 2007

1. Go to Tools -> Macro -> Visual Basic Editor. Or directly press Alt + F11.

Tools_Macro_Visual_Basic_Editor_alt_F11

4. Double click on ThisOutLookSession. It will open up a code pane.

5. Copy and paste the following code in the code pane:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
strSubject = Item.Subject
If Len(Trim(strSubject)) = 0 Then
    Prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"
   If MsgBox(Prompt$, vbYesNo + vbQuestion + _
vbMsgBoxSetForeground, "Check for Subject") = vbNo Then
     Cancel = True
   End If
End If
End Sub

Close your Outlook and open it again. You will be asked regarding the security concern. See the image below.

Enable Macros

Click on Enable Macros.

Now try to send an mail with empty subject line. It validates.. Enjoy....
Note: Outlook Express doesn't support macros
Credit: http://virendrablogs.blogspot.com