Set objSmtp = CreateObject( "ActiveXperts.SmtpMail" )

 objSmtp.Connect( "smtp.myserver.com", "MyLogin", "MyPassword" )  
 If( objSmtp.LastError = 0 ) Then

   objSmtp.FromAddress     = "myname@mycompany.com"           
   objSmtp.FromName        = "My Name"      

   objSmtp.AddTo "roger@thecompany.com", "My friend Roger" 

   objSmtp.Subject         = "Simple E-mail"
   objSmtp.Body            = "Hello my friend""
 
   objSmtp.Send

   objSmtp.Disconnect
 End If

  

 Set objSmtpServer = CreateObject( "ActiveXperts.SmtpServer" )
 Set objSmtpMail   = CreateObject( "ActiveXperts.SmtpMail" )

 objSmtpServer.Connect( "smtp.myserver.com", "MyLogin", "MyPassword" )  
 If( objSmtpServer.LastError = 0 ) Then

   objSmtpMail.Clear()
   objSmtpMail.FromAddress     = "myname@mycompany.com"           
   objSmtpMail.FromName        = "My Name"      

   objSmtpMail.AddTo "roger@thecompany.com", "My friend Roger" 

   objSmtpMail.Subject         = "Simple E-mail"
   objSmtpMail.Body            = "Hello my friend""
 
   objSmtpServer.Send( objSmtpMail )

   objSmtpServer.Disconnect
 End If