Dear master,
Saya mo tanya nih tentang procedure kirim email, kenapa ya procedure kirim
email di bawah ini, CC nya hanya mau kirim 1 (satu) alamat emai ? kalo saya
masukan lebih dari 1 alamat email, maka CC nya pasti gak terima email. Semoga
rekan2 dan para master di Oracle mau membantu saya dan memberikan pencerahannya.
Procedurenya a/ :
CREATE OR REPLACE PROCEDURE MAIL
(
pengirim IN VARCHAR2,
penerima IN VARCHAR2,
ccpenerima IN VARCHAR2,
subject IN VARCHAR2,
pesan1 IN VARCHAR2,
pesan2 IN VARCHAR2,
pesan3 IN VARCHAR2,
pesan4 IN VARCHAR2,
pesan5 IN VARCHAR2,
pesan6 IN VARCHAR2,
pesan7 IN VARCHAR2,
pesan8 IN VARCHAR2,
pesan9 IN VARCHAR2,
pesan10 IN VARCHAR2,
pesan11 IN VARCHAR2,
pesan12 IN VARCHAR2,
pesan13 IN VARCHAR2,
pesan14 IN VARCHAR2,
pesan15 IN VARCHAR2
)
IS
crlf VARCHAR2(2):= UTL_TCP.CRLF;
connection utl_smtp.connection;
mailhost VARCHAR2(30) := 'yourmailhost.com';
header VARCHAR2(1000);
BEGIN
-- Start the connection. --
connection := utl_smtp.open_connection(mailhost,25);
header:= 'Date: '||TO_CHAR(SYSDATE,'dd Mon yy hh24:mi:ss')||crlf||
'From: '||pengirim||''||crlf||
'Subject: '||subject||crlf||
'To: '||penerima||crlf||
'CC: '||ccpenerima||crlf;
-- Handshake with the SMTP server --
utl_smtp.helo(connection, mailhost);
utl_smtp.mail(connection, pengirim);
utl_smtp.rcpt(connection, penerima);
utl_smtp.rcpt(connection, ccpenerima);
utl_smtp.open_data(connection);
-- Write the header --
utl_smtp.write_data(connection, header);
utl_smtp.write_data(connection, crlf ||pesan1);
utl_smtp.write_data(connection, crlf ||pesan2);
utl_smtp.write_data(connection, crlf ||pesan3);
utl_smtp.write_data(connection, crlf ||pesan4);
utl_smtp.write_data(connection, crlf ||pesan5);
utl_smtp.write_data(connection, crlf ||pesan6);
utl_smtp.write_data(connection, crlf ||pesan7);
utl_smtp.write_data(connection, crlf ||pesan8);
utl_smtp.write_data(connection, crlf ||pesan9);
utl_smtp.write_data(connection, crlf ||pesan10);
utl_smtp.write_data(connection, crlf ||pesan11);
utl_smtp.write_data(connection, crlf ||pesan12);
utl_smtp.write_data(connection, crlf ||pesan13);
utl_smtp.write_data(connection, crlf ||pesan14);
utl_smtp.write_data(connection, crlf ||pesan15);
utl_smtp.close_data(connection);
utl_smtp.quit(connection);
EXCEPTION
WHEN UTL_SMTP.INVALID_OPERATION THEN
dbms_output.put_line(' Invalid Operation in SMTP transaction.');
WHEN UTL_SMTP.TRANSIENT_ERROR THEN
dbms_output.put_line(' Temporary problems with sending email - try again
later.');
WHEN UTL_SMTP.PERMANENT_ERROR THEN
dbms_output.put_line(' Errors in code for SMTP transaction.');
END;
/
Many Thanks & Best Regard,
Fata Hudaya,
+628567143271
[EMAIL PROTECTED]
Send instant messages to your online friends http://uk.messenger.yahoo.com
[Non-text portions of this message have been removed]
--
-----------I.N.D.O - O.R.A.C.L.E---------------
Keluar: [EMAIL PROTECTED]
Website: http://indo-oracle.blogspot.com
Mirror: http://indooracle.wordpress.com
-----------------------------------------------
Bergabung dengan Indonesia Thin Client User Groups,
Terminal Server, Citrix, New Moon Caneveral, di:
http://indo-thin.blogspot.com
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indo-oracle/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indo-oracle/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
