VB Send Email Automatically

[kmchong]

I use the following code to send email:

mps.SignOn
mpm.SessionID = mps.SessionID
mpm.Compose
mpm.RecipAddress = "[email protected]"
mpm.ResolveName
mpm.MsgSubject = "Subject"
mpm.MsgNoteText = " "
mpm.AttachmentIndex = 0
mpm.Send True

It works fine, except it will prompt out the outlook screen
and need me to press "Send" button.

1) Is there anyway to automatically send without press the button?

2) I am not sure whether the above code can work with Netscape,
I only tried with Outlook, does anybody can tell me whether it can work?

Thanks

If you are only using outlook you can use this:-

Dim objOutlook As New Outlook.Application
Dim ObjOutlookMag As Outlook.MailItem
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = Rst1!Email
.Subject = "test"
.Body = "Line1 "& vbNewLine & vbNewLine
.Body = .Body & "Line2" & vbNewLine
.Body = .Body & "Line3" & vbNewLine & vbNewLine
.Send
End With

Set objOutlookMsg = Nothing

'Close Outlook instance
Set objOutlook = Nothing

you will need to include "Microsoft Outlook *.0 object Lib" in your project referances.

Sorry that should have read:

Dim objOutlook As New Outlook.Application
Dim ObjOutlookMag As Outlook.MailItem
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = "[email protected]"
.Subject = "test"
.Body = "Line1 "& vbNewLine & vbNewLine
.Body = .Body & "Line2" & vbNewLine
.Body = .Body & "Line3" & vbNewLine & vbNewLine
.Send
End With

Set objOutlookMsg = Nothing

'Close Outlook instance
Set objOutlook = Nothing