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
|
|
| ActivEmail 2.4 sample |
|
ActiveEmail 3.0 sample |