DECLARE 
vMESSAGE VARCHAR2(100) := I am sending an mail';
vADDRESS2 VARCHAR2(100) := 'ERIAD@INTLAROMATICS.COM';
 
 OUT_FILE text_io.file_type;
 v_file_path VARCHAR2(100) := 'E:\mail_send.txt';


BEGIN
OUT_FILE:=text_io.fopen(v_file_path,'A');
text_io.put(OUT_FILE,vMESSAGE );
TEXT_IO.FCLOSE (OUT_FILE);

host('C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE E:\mail_send.txt',NO_SCREEN);

MESSAGE ('MAIL SEND');
MESSAGE ('MAIL SEND');
END;