Tobias Pape uploaded a new version of SqueakSSL-SMTP to project The Trunk:
http://source.squeak.org/trunk/SqueakSSL-SMTP-ar.1.mcz

==================== Summary ====================

Name: SqueakSSL-SMTP-ar.1
Author: ar
Time: 27 November 2011, 11:40:06.998 am
UUID: e091f7d9-2e75-f547-94e7-043537eb417e
Ancestors: 

SecureSMTPClient for sending email via SSL.

==================== Snapshot ====================

SystemOrganization addCategory: #'SqueakSSL-SMTP'!

SMTPClient subclass: #SecureSMTPClient
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'SqueakSSL-SMTP'!

----- Method: SecureSMTPClient class>>exampleGMailFrom:to:password: (in category 'example') -----
exampleGMailFrom: gmailAddress to: rcvrAddress password: pw
	"Sends email via secure smtp through GMail"

	| message smtpClient |
	smtpClient := self new.
	smtpClient user: gmailAddress.
	smtpClient password: pw.
	smtpClient openOnHost: (NetNameResolver addressForName: 'smtp.gmail.com') port: 465.

	message := MailMessage empty.
	message setField: 'from' toString: gmailAddress.
	message setField: 'to' toString: rcvrAddress.
	message setField: 'subject' toString: 'Hello World'.
	message body: 
		(MIMEDocument contentType: 'text/plain' content: 'bla bla bla').

	smtpClient mailFrom: gmailAddress to: {rcvrAddress} text: message text.
	smtpClient quit. 
!

----- Method: SecureSMTPClient>>ensureConnection (in category 'private') -----
ensureConnection
	self isConnected
		ifTrue: [^self].
	self stream
		ifNotNil: [self stream close].

	self stream: (SecureSocketStream openConnectionToHost: self host port: self port timeout: self standardTimeout).
	self stream sslConnect.
	self checkResponse.
	self login!