Set objSmtp = CreateObject("ActiveXperts.SmtpMail")
objSmtp.HostName = "smtp.myserver.com"
objSmtp.AccountName = "MyLogin"
objSmtp.AccountPassword = "MyPassword"
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 ' Send will internally connect, deliver
' the message, and disconnect
|
|
|
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
|
|
| ActivEmail 2.2 sample |
|
ActiveEmail 2.3 sample |