Help with macro to create new message

[Steven M (remove dirt to reply)]

I have a macro in Outlook 2000 that automatically opens a spam
complaint message. A simplified version is included at the bottom of
this message.

The words "nanas" and " are for spam sightings posted via email
to the Usenet group, news.admin.net-abuse.sightings. The actual body
is much longer than this, and not relevant here.

I can't say I understand every detail, especially the first three
lines, but it works.

However, it could be better.

One, I send all spam complaints using a "From" address that is not my
default email. How can I set up the new message that is being
created, to use a different "From:" address? Several times I've
finished writing my complaint and pressed Send, using my default
address, and accidentally exposing that address to spammers.

Two, the default message that is created with this macro is in RTF
format. I try to send using Plain Text, but I have not been able to
get the macro to convert the new message to that format before sending

Thanks for any suggestions.


' ================================================
Sub NewLart()

Dim myOLApp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
Set myOLItem = myOLApp.CreateItem(olMailItem)
With myOLItem
.To = "nanas"
.Subject = "[Email] "
.Body = "The message below is unsolicited advertising email."
End With
myOLItem.Display

End Sub
' ================================================

 

[Leon Mayne]

Two, the default message that is created with this macro is in RTF
format. I try to send using Plain Text, but I have not been able to
get the macro to convert the new message to that format before sending

If you are using Office XP/2003 then you can put:
..BodyFormat = olFormatPlain
In your with statement. Otherwise you'll have to change your default message
format to plain text