Posted to tcl by jeremy_c at Sun Dec 13 16:30:30 GMT 2009view raw

  1. package require smtp
  2. package require mime
  3.  
  4. set msgsrc {From: John <john@doe.com>
  5. To: John <john@doe.com>
  6. Subject: Hello World!
  7. Date: Sun Dec 13 11:10:00 EST 2009
  8. Message-ID: 9F0EB375226D564BD7BD9A318A152AD1@doe.com
  9.  
  10. Hello, World!
  11.  
  12. John
  13. }
  14.  
  15. set msg [mime::initialize -string $msgsrc]
  16.  
  17. smtp::sendmessage $msg -servers smtp-server -ports 25 \
  18. -recipients john@doe.com -header {From {John Doe <john@doe.com>}}