Send mail to list group with PL/SQL

Question

I have a source code for sending mails using PL/SQL, but when I tried to put a group list name it doesn't work.
For example I have a group list called "several" this is the name of the group which mail addres is [email protected]
When I send a mail to [email protected] also the message must be sent to this directions [email protected], [email protected], [email protected], which are the email adresses that belong to the group calle "several", when I try to send to this group the message is not sent.
As you know when you are try to send with outlook, firebird, etc and you write the name of the contact or group, because is most easier than write the email address.
Do you have some source code for sending mail?
This source code must send mails when in the TO parameter contains the name of the contact o name of group contacts without have to write the email address. I have do it in Java but I need to know if is posible in PL/SQL.
Best Regards
Edited by: Erik Dguez. Ant. on Mar 25, 2009 8:57 AM

Answer 1

Hello Erik Dguez,
for example...
Create OR Replace Procedure PRC_SEND_MAIL( pSender     IN Varchar2
                                         , pRecipients IN Varchar2
                                         , pSubject    IN Varchar2
                                         , pBody       IN Varchar2 ) Is
   vConn  Utl_Smtp.connection;
   vReply Utl_Smtp.reply;
   vRcpt  Varchar2(128);
   vRcpts Varchar2(2000);
Begin
   vReply := Utl_Smtp.Open_Connection( 'smtp.domain.com', 25, vConn, 60 );
   vReply := Utl_Smtp.Helo( vConn, 'domain.com' );
   vReply := Utl_Smtp.Mail( vConn, pSender || '@domain.com', Null);
   vRcpts := pRecipients;
   If Substr(vRcpts,Length(vRcpts),1) <> ';' Then
      vRcpts := vRcpts || ';';
   End If;
   Loop
      vRcpt  := Trim(Substr(vRcpts,1,InStr(vRcpts,';') - 1));
      vRcpts := Trim(Substr(vRcpts  ,InStr(vRcpts,';') + 1));
      vReply := Utl_Smtp.Rcpt( vConn,vRcpt,Null );
      If vRcpts Is Null Then
         Exit;
      End If;
   End Loop;
   vReply := Utl_Smtp.Data(vConn,'Subject: ' || pSubject || chr(13) || chr(10) || pBody);
   Utl_Smtp.Quit(vConn);
End;Hope this helps
Christian Balz