Wysyłanie maila z poziomu Oracle Opcje

[monia002]

Witam

Jestem początkująca w kwestiach związanych z SLQlem i Oraclem..

Mam problem...
Mam bazę adresów email i przypisane do nich kody. Moim celem jest wysłanie pod każdy adres mailowy przypisany do niego kod.
Czy jest taka możliwość, aby zadeklarować zmienne, które są selectem z innej tabeli ?

Opieram się na:
DECLARE
v_From VARCHAR2(80) := 'monika@mail.com;
v_Recipient VARCHAR2(80) := 'monika@mail.com';
v_Subject VARCHAR2(80) := 'blabla';
v_Mail_Host VARCHAR2(30) := 'mojserwer';
v_Mail_Conn utl_smtp.Connection;
crlf VARCHAR2(2) := chr(13)||chr(10);

BEGIN

v_Mail_Conn := utl_smtp.Open_Connection(v_Mail_Host, 25);
utl_smtp.Helo(v_Mail_Conn, v_Mail_Host);
utl_smtp.Mail(v_Mail_Conn, v_From);
utl_smtp.Rcpt(v_Mail_Conn, v_Recipient);
utl_smtp.Data(v_Mail_Conn,
'Date: ' || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||
'From: ' || '"Uszatek... Miś Uszatek"' || crlf ||
'Subject: '|| v_Subject || crlf ||
'To: ' || v_Recipient || crlf ||
crlf ||
'coamcotamst' || crlf || -- Message body
'Wiadomosc testowa wysłana z systemu ORACLE'|| crlf
);
utl_smtp.Quit(v_mail_conn);
EXCEPTION
WHEN utl_smtp.Transient_Error OR utl_smtp.Permanent_Error then
raise_application_error(-20000, 'Unable to send mail: '||sqlerrm);
END;

[mar1aczi]

Użyj select into na tabeli i wykorzystaj pętlę foreach.
Uważaj, aby poczta nie została uznana jako spam badź serwer smtp Cię nie zablokował.