I have attached a fileout and .dat of an application I made to make sending email easier. Below is some code that if run in a workspace (with the app loaded) will send an email. You will need to replace many of the strings within quotes with your own data to get it to work with your SMTP host. You may use the app if you like or look at it to see where you may be going wrong. Off the top of my head, I'm not sure why what you are doing doesn't work. Good luck.
| subject address smtpEMailInfo eMail body |
subject := 'This is the subject.'.
smtpEMailInfo := KscSmtpEMailInfo new.
smtpEMailInfo
host: 'smtpsl://
smtp.comcast.net'; "This needs to be your SMTP host."
userId: 'A userid that can use your host';
password: 'That users password';
fromEMailUserName: 'The name of the sender';
fromEMailAddress: 'the email address of the sender'.
address := KscEMailInfo name: 'name of person to get the email' address: 'their email address'.
eMail := smtpEMailInfo eMailMessage.
eMail to: address address; subject: subject.
body := WriteStream on: (String new: 1000).
body
nextPutAll: 'Hi Lou,'; cr; cr; nextPutAll: 'One line of the body.'; cr; cr;
nextPutAll: 'More lines of the body'.
eMail body: body contents.
smtpEMailInfo addOutGoingEMail: eMail.