Forwarding Message With Full Headers

[Spender]

I have never done any VBA programming for Outlook so I'm hoping someone can
help me. What I want to do is forward certain messages, including the full
headers, to my ISP's spamblocking service.

What I currently do is:

1. Right click on the message, choose Options, and copy the full headers.

2. Select the message, click Forward, add the recipient, paste in the full
headers, and send it off.

Doesn't seem like much. But it's a chore on days when I get a lot of spam.

Is there some way I can automate this process? Preferably just by
right-clicking on a message (or better yet, multiple messages) and
selecting "Send to SpamBlock" or some such thing.

Thanks to anyone that can help!

 

[Ken Slovak - [MVP - Outlook]]

What version of Outlook?

For versions earlier than Outlook 2007 you have to use an alternate API to
get at the message headers. An example using CDO 1.21 (an optional
installation for versions earlier than 2007) is at
http://www.slovaktech.com/code_samples.htm#InternetHeaders. However, you
will get the security warnings using CDO. You wouldn't with Extended MAPI
but that can only be programmed using C++ or Delphi. An alternative is
Redemption (www.dimastr.com/redemption), free for personal use, and working
with PR_TRANSPORT_MESSAGE_HEADERS. There's an example of that on the
Redemption Web site.

Using a right-click menu is a hack for versions before Outlook 2007 and
won't tell you what was clicked on.