Sub CDOmail()
' requires reference to Microsoft CDO for Windows 2000 Library

Dim iMsg As CDO.Message
Dim iCfg As CDO.Configuration

Set iCfg = New CDO.Configuration
Set iMsg = New CDO.Message

With iCfg.Fields
    .Item(cdoSendUsingMethod) = cdoSendUsingPort
    .Item(cdoSMTPServerPort) = 25
    .Item(cdoSMTPServer) = "smtp.YourISP.com" ' smtp.yahoo.com or something like
    .Item(cdoSMTPAuthenticate) = cdoBasic
    .Item(cdoSendUserName) = "ISPaccount"
    .Item(cdoSendPassword) = "password"
    .Item(cdoSendEmailAddress) = "ISPaccount@YourISP.com"
    .Update
End With
With iMsg
    .Configuration = iCfg
    .Subject = "CDO message"
    .To = "someone@somewhere.com"
    .TextBody = "Hello!"
    .Send
End With
Set iCfg = Nothing
Set iMsg = Nothing
End Sub