pg.ddx.io  pgsql-sql@postgresql.org mailing list archive  
help / color / mirror / Atom feed
From: Dinesh Pandey <dpandey@secf.com>
To: 'PostgreSQL' <pgsql-sql@postgresql.org>
Subject: send mail from Postgres using PLTCLU language.
Date: Fri, 15 Apr 2005 18:17:49 +0530
Message-ID: <20050415125113.C3A4053A95@svr1.postgresql.org> (raw)

How to send mail from Postgres using PLTCLU language.
 
I am able to send mail, but I want to know how to add "Cc" option also.
(Program attached below)
 
How to add "Cc"  (Right now containd "From", "To", "Subject" and "Message").
----------------------------------------------------------------
 
CREATE or REPLACE FUNCTION pgmail(text, text, text, text) returns int4 as '
 set mailfrom $1
 set mailto $2
 set mailsubject $3
 set mailmessage $4
 
 set myHost "localhost"
 
 set myPort 25
 set mySock [socket $myHost $myPort]
 set toemailaddress_start [string first "<" $mailto]
 
 if {$toemailaddress_start != -1} {
  set toemailaddress_finish [string first ">" $mailto]
  set toemailaddress_start [expr $toemailaddress_start + 1]
  set toemailaddress_finish [expr $toemailaddress_finish - 1]
  set toemailaddress [string range $mailto $toemailaddress_start
$toemailaddress_finish]
 } else {
  set toemailaddress $mailto
 }
 
 set fromemailaddress_start [string first "<" $mailfrom]
 
 if {$fromemailaddress_start != -1} {
  set fromemailaddress_finish [string first ">" $mailfrom]
  set fromemailaddress_start [expr $fromemailaddress_start + 1]
  set fromemailaddress_finish [expr $fromemailaddress_finish - 1]
  set fromemailaddress [string range $mailfrom $fromemailaddress_start
$fromemailaddress_finish]
 } else {
  set fromemailaddress $mailfrom
 }
 
 fileevent $mySock writable [list svcHandler $mySock]
 fconfigure $mySock -buffering none
 
 puts $mySock "helo 127.0.0.1"
 
 gets $mySock name
 puts $mySock "mail from: $fromemailaddress"
 gets $mySock name
 puts $mySock "rcpt to: $toemailaddress"
 gets $mySock name
 puts $mySock "data"
 gets $mySock name
 puts $mySock "To: $mailto"
 puts $mySock "From: $mailfrom"
 puts $mySock "Subject: $mailsubject"
 puts $mySock ""
 puts $mySock "$mailmessage"
 puts $mySock "."
 gets $mySock name
 close $mySock
 return 1'
language 'pltclu';

 
--------------------------------
 

Regards
Dinesh Pandey

view thread (2+ messages)  latest in thread

Message-ID: <20050415125113.C3A4053A95@svr1.postgresql.org>
Permalink:  ../20050415125113.C3A4053A95@svr1.postgresql.org/
Also on:    postgresql.org/message-id/20050415125113.C3A4053A95@svr1.postgresql.org

 · 

reply

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Reply to all the recipients using the --to and --cc options:
  reply via email

  To: pgsql-sql@postgresql.org
  Cc: dpandey@secf.com
  Subject: Re: send mail from Postgres using PLTCLU language.
  In-Reply-To: <20050415125113.C3A4053A95@svr1.postgresql.org>

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

This inbox is served by DDX for PostgreSQL; see mirroring instructions
for how to clone and mirror all data and code used for this inbox