I was wondering if there’s a way to retain this code between sessions. Something like a start-up batch that attaches this code to the current outlook session? What happens if i restart my system or something?

If I understand correctly, you don’t want to trigger on embedded (OLE) attachments. Once you detect that the attachment count is > 0 you would have to step through each attachment to see if it is OLE vs. something else. You could re-use some of the code in the Outlook attachment stripper to check this. Look for lines like “If objAttachments.Item(1).Type <> olOLE Then”

You might want to also alter the order of your checks in that case (check for attachments > 0 first, then check to see if “[SD]” is missing, then (if missing) step through the attachments.

Hope that helps!

-Carl

I think you can do this, and it would be a nice enhancement to the macro. You can probably detect (and ignore) your own signature attachment using the attachment size, type (OLE, etc.), or exact filename. If you look at my code for the Outlook attachment stripper, you will see some examples of how to check for these parameters. For example, I look for an attachment named “Attachments Removed” in that macro and skip the message if I find it.

-Carl

-Carl

strBody = LCase(Item.Subject) & LCase(Item.Body)

to:

strBody = LCase(Item.Subject)

and remove the next few lines that are looking for the word “from:” in the body. Then, remove the other word checks that are looking for “file”, “attach”, etc. and just have one that contains your string:

If intIn = 0 Then intIn = InStr(1, strBody, “298″)

With this logic, a value of 0 should trigger a message, so change:

If intIn > 0 And intAttachCount <= intStandardAttachCount Then

to this:

If intIn = 0 Then

Note that you can remove the references to attachment counts if you are not using them.

There may be a few other changes required as well, but what you are asking can definitely be done. The best way to learn is to do some hands-on experiments Hope that helps!

-Carl

-Carl

Dim strSubject As String
strSubject = Item.Subject

Dim intAttachCount As Integer
intAttachCount = Item.Attachments.Count

If intAttachCount > 0 Then

If InStr(strSubject, “[SD]“) = 0 Then
Prompt$ = “Email has an attachment and is not being sent via Secure Delivery. Are you sure you want to send the email?”
If MsgBox(Prompt$, vbYesNo + vbCritical + vbMsgBoxSetForeground, “Secure Delivery Check”) = vbNo Then
Cancel = True
End If
End If
End If
End Sub

Is there any way by which the Macro can detect whether my signature contains an image or not.
I don’t want to keep on changing the attachment count in macro based on scenario.

Also some people may or may not have attachments while replying. So is there a way that can work for all sort of scenarios.

Is there anyway when a pop up box comes up and you wish to cancel sending the e-mail to have the draft e-mail open on the desktop? it always gets minimized to the toolbar and I have to re-click to open

Small complaint I know

can anyone plz help me!!!!!!

Thanks for sharing this… If I understand this correctly, you are trying to prevent a “false positive” trigger caused by text in a reply/forward subject. For example, if someone sends you an attached file with a subject like “Here’s the file”, and you reply back with a simple “Thanks!”, Check #2 would have triggered on your reply with a subject of “RE: Here’s the file”. With the new code, the subject line is not included in the check.

The risk, however, is that if you use a colon “:” elsewhere in your subject line on a regular message (non-forward/non-reply) the extra code could produce some unexpected results. (I didn’t test this). If that’s the case, I would rather live with the occasional false positive since the cost is extremely low (i.e. a pop-up asking if I’m sure I want to send).

Just my two cents.

-Carl

strBody = LCase(Item.Subject) & LCase(Item.Body)

to

strBody = LCase(Left(Item.Subject, (Len(Item.Subject) * Abs((InStr(2, Item.Subject, “:”) 3))))) _
& LCase(Item.Body)

In the Attachment check (#2) it won’t check the Subject Line for replies/forwards (assumes a “:” in third character indicates this)

Nice addition – thanks for sharing! I think Outlook allows this because sometimes people want to send out messages to large groups but not disclose the recipients. In that case you would put everyone in the BCC line and nobody in the TO line. Of course, you could use logic in the check to warn the user but then give them the option to send or cancel.

-Carl

I have been using the macro with Outlook 2010 for ~8 months now and I haven’t had any issues. Note that for replies & forwards, Check #2 will only look at text that is above the “From:” line. The reason is that if someone sends you a mail with an attachment with a message like “Here is the file”, and you send a short reply like “Thanks” (with no attachment) you don’t want the macro to trigger and give you a pop-up. It should only trigger if the word “file” is in your response (i.e. above the “From:” line).

By the way, for OL2010, you can delete or disable Check #3 since OL2010 now has this check built in.

I also added a Check #4 for Outlook 2010 since when I forward a meeting invite to someone I don’t always want to send a notification to the original meeting owner. Outlook 2010 normally does this automatically without your consent (check your Sent Items after forwarding a meeting invite!). I will post an updated macro with Check #4 when I get a chance.

-Carl

The Task body in Outlook is a little tricky to modify using VBA since it is in RTF format. I’m not sure why Microsoft decided to make tasks different in that regard from the other common objects in Outlook. Having said that, you can definitely add attachments manually via drag & drop.

-Carl

Those will likely show up as different attachment types. I have another macro to actually remove attachments (see this post). You will notice in that macro there are several lines that check the attachment type, such as “If objAttachments.Item(1).Type <> olOLE Then…” You could use similar logic for your application.

-Carl

One additional check I particularly like using is to prevent sending emails without any values in the “TO” field.

I recently changed jobs. The previous company I worked for had Outlook configured that way as a default, but in the new company Outlook allows me to send emails without anyone on the “TO” field which really annoys me…
If any one knows of a way of preventing this by Outlook configuration please let me know. In the meantime I have achieved the goal via this additional check on the macro:

‘CHECK #4: Check for an empty “TO” parameter
If Item.To = “” Then
‘Extra spaces added to the messages just to
‘keep them centered and pretty
m = MsgBox(“There are no recipients defined for this email, please enter a valid recipient”, _
vbOK + vbDefaultButton1 + vbExclamation + vbMsgBoxSetForeground, “Blank Recipient”)
Cancel = True
GoTo ExitSub
End If

This was working great for me for several years on 2003 and 2007. I recently upgraded to Outlook 2010 and Check #2 for the attachments is not working properly. If I have a brand new email it works find. However, if I reply to/forward someone’s email, the check is not working properly for me. I have had several instances where I was replying with an attached file but forgot to attach the file.

I am such a newbie when it comes to the VBA code, I don’t know what to edit to ensure this check starts working again.

Thanks,
Keith

Have you ever tried to change the tabs and add macros to the outlook task? I use task and shared tasks a lot and I added few more tabs which will cover the meeting notes, communications and history. But my main issue is to add/insert the files/attachements and ability to put some macros in place to do the calculations for budget or time lines. appreciate any suggestions.
Take care,
Rose

Many thanks,

Is there a difference between files that you attach and files (images) attached in body message?

I have to discard files attached in body message or to know when I attach a file that not belong to he message history.

Thanks in advance.

Best Regards.

Manuel

Thanks for sharing important tips .
Now I figured out where I was committing mistake. Now the macro is working according to my wish . Again Thanks a ton !!

have a nice day

I just tested it to be sure, and I was able to get this to work in OL2010 with no problems. I used the signature block “My legal team makes me talk about attachments in my signature block.” The modified macro only checked up to the signature block and did not check the signature block itself.

A few tips…

(1) Note that the strBody variable is what gets searched, and everything is converted to lower case. That means the following line with the InStr() function needs to search for lower case.

(2) Rather than just searching for the word “attachments”, you should search for a longer phrase that indicates the beginning of your signature block. In the example above, I searched for the phrase “my legal team makes me”.

(3) Insert a MsgBox intLength line to debug the macro immediately after intLength is assigned and see what value is assigned to intLength when the macro runs. If it is zero, then it is scanning the whole message (including signature blocks).

(4) The order of how you assign intLength matters since it is being overwritten. You can try swapping the order, or to be absolutely sure you can use separate variables (and keep the smaller one) as I suggested in my previous comment.

Hope that helps.

-Carl

intLength = InStr(1, strBody, “this is how my signature block starts”)
intLength = InStr(1, strBody, “from:”)

If you are using your signature block on replies and forwards it will get a little more complicated since you want to make sure that the smaller of the two numbers gets assigned to intLength. You could do something like:

intLength1 = InStr(1, strBody, “this is how my signature block starts”)
intLength2 = InStr(1, strBody, “from:”)

…and then compare them and assign the smaller one to intLength. You should also add any new variables to the declaration block at the top of the macro.

Hope that helps.

-Carl

Suppose if my email signature contains the word “attachments” then how I can modify above macro to suit my problem ??

-Carl

I use my outlook 2007 for work, uni and personal email and sometimes forget to change the ‘from’ line of my emails. Could you please give advice on how to write a macro so it will remind me each time I want to send an email as to whether I want to put one in? I’ve tried editing existing code like yours above, but can’t get it to work. (I’m not that great at programming) Any help would be gratefully received, thanks so much.

Harry

First of all, if there are individual entries in your auto-complete addresses that you don’t want, you can remove them. Start typing in the “To” field until the unwanted name shows up. Then, highlight it (without clicking) and press the delete key.

You can also check domains for each outgoing message by modifying the macro. For example, to display the domains you could add code like:

If Item.Class = olMail Then
MsgBox Item.To & vbCrLf & Item.CC
End If

You can use the InStr command to check those fields for certain strings and trigger the popup based on that.

Happy coding!

-Carl

Great Macro thanks.

Can you propose a way to help with the following
Due to the Outlook Auto Complete feature, I sometimes send an email to the wrong contact
And It can be very problematic at times…

I would like to write a macro that will do:
pop up a warning with a list of domains that the mail is sent to

or check that the mail is sent to an external domain (not my company domain name)

Thanks,
Amit

-Carl

Thanks for a great code. This was working on my Outlook for a few days, and then all the sudden stopped working. Nothing pops up at all. I’ve brought my security level down to Low, tried deleting and re-programming the macro, and nothing seems to work. Any words of wisdom? I have Outlook 2003.

Thanks!

-Carl

I’ve tried the self-signing above; but no improvement there.

Any ideas?

-Carl

Awesome macro, thanks! One issue, it works fine during my session. But when I close Outlook and reopen it, the macro doesn’t work until I actually go into VB and look at it, then it starts working again.

Do you have any idea why this would be?

Thanks in advance.

Regarding the +vbMsgBoxSetForeground setting, I just updated it for the three checks in the macro. This is based on my comment above from 25 Nov 08, but now it is in the base code. Thanks for the suggestion!

-Carl

1.Please add ‘ + vbMsgBoxSetForeground’ in your code itself, so that we’ll get the prompt in the foregroud.
2.Please add the steps for signing a macro with selfsign utility.This will avoid the macro security issue.
http://msdn.microsoft.com/en-us/library/aa155754(office.10).aspx

You were right! The problem was related to macro security settings.

I have disabled the security selecting the option “No security check for all macros” and it worked.

Then, I have certificate the macro and selected the option “Warnings for signed macros; all unsigned macros disable”. At first Outlook run and first macro warning I choose to trust all macros signed by me. And that’s it, macro is working and no more security warnings.

Thank you for your help.
Regards,
José

No problem, people have called me much worse things! A few more things you can try:

[1] It might be related to your macro security setting. Try moving down to medium to see if it fixes the issue. I think that is in “Tools > Trust Center” for OL2007. You have to *completely* shut down Outlook and restart it after changing the security level for it to stay.

If you don’t want to leave the setting at medium, there are instructions here, here, and elsewhere online that show you how to certify your macro so it will run even when the security level is high.

[2] Try running some very basic macros and launching them manually (not automatically). Here is an example:
Sub HelloWorld()
MsgBox “Hola mundo”
End Sub

[3] If that works manually, now try getting it to trigger from the message send event. Note that you can only have one macro with this title in your “ThisOutlookSession” module, so you will have to remove the other one before testing this one:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
MsgBox “Hola mundo”
End Sub

[4] It shouldn’t matter, but try deleting the “Private” qualifier on the first line of the macro.

Good luck, please post a note here if you figure it out.

-Carl

No I don’t see any error messages. All messages pass without warnings. I have tried to change the code using the “vbMsgBoxSetForeground” or “vbSystemModal” options but the behaviour is the same.

And no, I don’t have any other macros.

I even have try this on other computer with Outlook 2007 and the behaviour is exactly the same. All messages pass without warnings after rebooting.

Thank for your help.

When you say the macro stopped working, what do you mean exactly? Do you see error messages, or does it just let all messages pass without warning? Do you have other macros that are working, or do all of your macros stop working?

-Carl

I have tried your macro with Outlook 2007 SP2 and it only worked once. After rebooting the PC, the macro stopped working.

I can make the macro work again by deleting the VbaProject.OTM at %appdata%\Microsoft\Outlook and make again the macro, but after rebooting it won’t work any more .

It is only working on the current session. If I restart the PC the macro does not work.

Any idea what’s happening?

Thank you.

-Carl

-Carl

strBody = LCase(Item.Subject) & LCase(Item.Body)

Thanks!
-Carl

-Carl

vbYesNo + vbExclamation, “Attachment Missing?”)

Would be changed to

vbYesNo + vbExclamation + vbMsgBoxSetForeground, “Attachment Missing?”)

Please post a comment back here and let me know if it helped. Good luck!

-Carl

Outlook Etiquette Check VBA Code

The macro above does not recall messages or use the Outlook recall message feature. It stops messages before they are sent in case you want to correct any of the missing items. The time stamp will still be whatever time you finally send the message.

Does that answer your question?

-Carl