Esiste del codice per inviare una mail da una procedura in pl/sql oracle????
Grazie
Esiste del codice per inviare una mail da una procedura in pl/sql oracle????
Grazie
declare
mailhost VARCHAR2(64) := 'un server mail';
mail_conn utl_smtp.connection;
begin
mail_conn := utl_smtp.open_connection(mailhost, 25);
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, 'indirizzo mittente');
utl_smtp.rcpt(mail_conn, 'indirizzo destinatario');
utl_smtp.open_data(mail_conn);
utl_smtp.write_data(mail_conn, 'testo');
utl_smtp.close_data(mail_conn);
utl_smtp.quit(mail_conn);
Grazie.....ci provo subito!!!!!!
niente da fare..non ...va..cioč non mi da nessun errore perō non invia neanche la mail...
C'č forse qualcosa che bisogna settare???
posta il codice
Perdonami ..cosa devo fare??
fammi vedere quello che hai scritto
ok scusami...
CREATE OR REPLACE PROCEDURE PR_PROVA_mail IS
err_num NUMBER;
err_msg VARCHAR2(300);
mailhost VARCHAR2(64) := '..server mail..';
mail_conn utl_smtp.connection;
BEGIN
mail_conn := utl_smtp.open_connection(mailhost, 25);
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, '..indirizzo mail..');
utl_smtp.rcpt(mail_conn, '..indirizzo mail..');
utl_smtp.open_data(mail_conn);
utl_smtp.write_data(mail_conn, 'Prova Testo');
utl_smtp.close_data(mail_conn);
utl_smtp.quit(mail_conn);
err_num := SQLCODE;
err_msg := SUBSTR(SQLERRM, 1, 100);
EXCEPTION
WHEN NO_DATA_FOUND THEN
INSERT INTO MAIL_TABLE (
NUM_ERR, DES_ERR)
VALUES (0,'NO DATA FOUND'); COMMIT;
WHEN OTHERS THEN
INSERT INTO MAIL_TABLE (
NUM_ERR, DES_ERR)
VALUES (ERR_NUM,ERR_MSG); COMMIT;
END PR_PROVA_mail;
/
il server devi metterlo mica lo trova lui
gli indirizzi devono essere validi
Si si..lo so....ho messo i puntini appositamente ma la procedura l'ho provata con quelle vere.