Posted to tcl by jeremy_c at Sun Dec 13 16:30:30 GMT 2009view raw
- package require smtp
- package require mime
- set msgsrc {From: John <john@doe.com>
- To: John <john@doe.com>
- Subject: Hello World!
- Date: Sun Dec 13 11:10:00 EST 2009
- Message-ID: 9F0EB375226D564BD7BD9A318A152AD1@doe.com
- Hello, World!
- John
- }
- set msg [mime::initialize -string $msgsrc]
- smtp::sendmessage $msg -servers smtp-server -ports 25 \
- -recipients john@doe.com -header {From {John Doe <john@doe.com>}}