Send email

[Wayne]

I have a number of reports that are used by multiple
users. Within the report there is a facility to create
an email, auto-populate it and information, the code is
as follows:

Dim s As Object, db As Object, doc As Object

mytopic = TextBox2.Text
mailto = "email address"

Set s = CreateObject("Notes.notessession") 'creates
notes session
Set db = s.getdatabase("", "") 'sets db to
database not yet named
Call db.openmail 'set database to
default mail database
Set doc =
db.createdocument 'notesdocument '.new '(db)
Call doc.replaceitemvalue("Sendto", "email
address") 'actual mail address
Call doc.replaceitemvalue("Subject", mysubject) 'the
subject title of the mail
Call doc.replaceitemvalue("Body", mytopic) 'the
contents of the mail
Call doc.send(False) 'send the
mail
Set s = Nothing
Set bd = Nothing
Set doc = Nothing

As you can see the email facility in use is a lotus notes
domino server. My quandry is that we will soon be
migrating to Microsoft Outlook Express, therefore I
believe the code will no longer work. I want to amend
the code in my master copy so that I can send the updated
report to all users as soom as we migrate. What code do
I need to use to do this?

Thanks