> Does anyone have any SMTP classes for Dolphin at all?
I am only aware of Jose S. Calvo's POP & SMTP Sockets (
http://www.smalltalking.net/Goodies/Dolphin/ ), which is possibly what
you are referring to? I have never used the SMTP class, but I have used
his POP class in D6 without a problem.
What kind of behavior do you want?
If you just want to send mail, and have not looked at CDO, it is worth
a look.
You can build messages using CDOIMessage, but you can effectively
bypass this, and load your own RFC822 messages. I have added a class
side helper method (see below) that creates an instance of CDOIMessage
from a .eml file, but you could also create it from a string (by
creating an ADODB_Stream on the string).
There is some example code in the CDO package comment, but to add to
that, you can also set which SMTP server you want to use with something
like:
configuration := CDOIConfiguration new.
fields := configuration fields.
(fields item:
'
http://schemas.microsoft.com/cdo/configuration/sendusing') value: 2.
(fields item:
'
http://schemas.microsoft.com/cdo/configuration/smtpserver') value:
'myserver'.
(fields item:
'
http://schemas.microsoft.com/cdo/configuration/sendusername') value:
'myusername'.
(fields item:
'
http://schemas.microsoft.com/cdo/configuration/sendpassword') value:
'mypw'.
(fields item:
'
http://schemas.microsoft.com/cdo/configuration/smtpauthenticate')
value: 1.
fields interface Update.
"Then use CDOIMessage to build a message or create it from your own
message, and send it"
(CDOIMessage loadFromFile: 'c:\email.eml') configuration:
configuration; Send.
This is the helper method:
!CDOIMessage class methodsFor!
loadFromFile: aPathAndFilename
| email stream |
(stream := ADODB_Stream new)
open;
charset: 'US-ASCII';
LoadFromFile: aPathAndFilename.
email := self new.
email dataSource OpenObject: stream InterfaceName: '_Stream'.
^email! !
Steve
Locked
