Macro to email an attachment sending two copies

Hi, I've borrowed the following code from http://msdn.microsoft.com/en-us/libr...ffice.11).aspx, which is apparently meant to send an email to the specified address.
When I run it, however, it instead sends two copies, or, if I choose .Display instead of .Send, opens up two copies of the email with the attachment.

I'm sure the fix is really simple, but was wondering if anyone could shed any light on my problem?

Thanks in advance!

Please Login or Register  to view this content.

I'm calling this macro within another, which when commenting out this line, runs with no hitches. When I run the code on its own (without calling it from the other macro), it only sends the one copy. However, as soon as I run it within the other macro, I go back to getting two? I have no idea what's going on!

To call this code, I'm simply using

Please Login or Register  to view this content.

Hi,

Seems to work OK for me and only produces one email.

Are you sure you're not calling it from a loop which is running twice?