Oracle Package:-
CREATE OR REPLACE PACKAGE BODY TPCPROD.Mail_Package IS
PROCEDURE print_output(p_message IN VARCHAR2) IS
BEGIN
dbms_output.put_line(SUBSTR(p_message,1,500));
IF LENGTH(p_message) > 500 THEN
dbms_output.put_line(SUBSTR(p_message,500,1000));
END IF;
IF LENGTH(p_message) > 1000 THEN
dbms_output.put_line(SUBSTR(p_message,1000,1500));
END IF;
IF LENGTH(p_message) > 1500 THEN
dbms_output.put_line(SUBSTR(p_message,1500,2000));
END IF;
EXCEPTION
WHEN OTHERS
THEN
NULL; -- Ignore errors... protect buffer overflow's etc.
END print_output;
------------------------------------------------------------------------
FUNCTION dump_flatfile(
p_query IN VARCHAR2,
p_dir IN VARCHAR2,
p_filename IN VARCHAR2,
p_separator IN VARCHAR2,
p_headers IN BOOLEAN DEFAULT FALSE,
p_trailing_separator IN BOOLEAN DEFAULT FALSE,
p_max_linesize IN NUMBER DEFAULT 32000,
p_mode IN VARCHAR2 DEFAULT 'w')
RETURN NUMBER
IS
l_output utl_file.file_type;
l_thecursor INTEGER DEFAULT dbms_sql.open_cursor;
l_columnvalue VARCHAR2(4000);
l_status INTEGER;
l_colcnt NUMBER DEFAULT 0;
l_cnt NUMBER DEFAULT 0;
l_separator VARCHAR2(10) DEFAULT '';
l_line LONG;
l_desctbl dbms_sql.desc_tab;
v_sqlerrm VARCHAR2(32000);
l_mode CHAR(1) := 'w';
BEGIN
IF p_mode NOT IN('w', 'a') THEN
l_mode := 'w';
ELSE
l_mode := p_mode;
END IF;
l_output := utl_file.fopen(p_dir,p_filename,l_mode,p_max_linesize);
dbms_sql.parse(l_thecursor,p_query,dbms_sql.native);
dbms_sql.describe_columns(l_thecursor,l_colcnt,l_desctbl);
FOR i IN 1 .. l_colcnt LOOP
dbms_sql.define_column(l_thecursor,i,l_columnvalue,4000);
IF (l_desctbl(i).col_type = 2) THEN
l_desctbl(i).col_max_len := l_desctbl(i).col_precision + 2;
ELSIF (l_desctbl(i).col_type = 12) THEN
l_desctbl(i).col_max_len := 20;
ELSIF (l_desctbl(i).col_type = 8) THEN
l_desctbl(i).col_max_len := 2000;
END IF;
IF p_headers THEN
utl_file.put(l_output, l_separator || l_desctbl(i).col_name);
l_separator := p_separator;
END IF;
END LOOP;
IF p_trailing_separator THEN
utl_file.put(l_output, l_separator);
END IF;
IF p_headers THEN
utl_file.new_line(l_output);
END IF;
l_status := dbms_sql.EXECUTE(l_thecursor);
LOOP
EXIT WHEN(dbms_sql.fetch_rows(l_thecursor) <= 0);
l_line := NULL;
l_separator := '';
FOR i IN 1 .. l_colcnt LOOP
dbms_sql.COLUMN_VALUE(l_thecursor, i, l_columnvalue);
IF NVL(INSTR(l_columnvalue, ','), 0) = 0 THEN
NULL;
ELSE
l_columnvalue := '"' || l_columnvalue || '"';
END IF;
utl_file.put(l_output, l_separator || l_columnvalue);
l_separator := p_separator;
END LOOP;
IF p_trailing_separator THEN
utl_file.put(l_output, l_separator);
END IF;
utl_file.new_line(l_output);
l_cnt := l_cnt + 1;
END LOOP;
dbms_sql.close_cursor(l_thecursor);
utl_file.fclose(l_output);
RETURN l_cnt;
EXCEPTION
WHEN NO_DATA_FOUND THEN
dbms_output.put_line('NO_DATA_FOUND');
utl_file.fclose(l_output);
RETURN l_cnt;
WHEN utl_file.invalid_path THEN
dbms_output.put_line('UTL_FILE.INVALID_PATH');
utl_file.fclose(l_output);
RETURN l_cnt;
WHEN utl_file.read_error THEN
dbms_output.put_line('UTL_FILE.READ_ERROR');
utl_file.fclose(l_output);
RETURN l_cnt;
WHEN utl_file.write_error THEN
dbms_output.put_line('UTL_FILE.WRITE_ERROR');
utl_file.fclose(l_output);
RETURN l_cnt;
WHEN utl_file.invalid_mode THEN
dbms_output.put_line('UTL_FILE.INVALID_MODE');
utl_file.fclose(l_output);
RETURN l_cnt;
WHEN utl_file.invalid_filehandle THEN
dbms_output.put_line('UTL_FILE.INVALID_FILEHANDLE');
utl_file.fclose(l_output);
RETURN l_cnt;
WHEN utl_file.invalid_operation THEN
dbms_output.put_line('UTL_FILE.INVALID_OPERATION');
utl_file.fclose(l_output);
RETURN l_cnt;
WHEN utl_file.internal_error THEN
dbms_output.put_line('UTL_FILE.INTERNAL_ERROR');
utl_file.fclose(l_output);
RETURN l_cnt;
WHEN utl_file.invalid_maxlinesize THEN
dbms_output.put_line('UTL_FILE.INVALID_MAXLINESIZE');
utl_file.fclose(l_output);
RETURN l_cnt;
WHEN VALUE_ERROR THEN
dbms_output.put_line('UTL_FILE.VALUE_ERROR');
utl_file.fclose(l_output);
RETURN l_cnt;
WHEN OTHERS THEN
-- hum_do.default_exception('ERROR in dump_csv : ');
utl_file.fclose(l_output);
RETURN l_cnt;
END dump_flatfile;
------------------------------------------------------------------------
-- Return the next email address in the list of email addresses, separated
-- by either a "," or a ";". The format of mailbox may be in one of these:
-- someone@some-domain
-- "Someone at some domain" <someone@some-domain>
-- Someone at some domain <someone@some-domain>
FUNCTION get_mail_address(addr_list IN OUT VARCHAR2) RETURN VARCHAR2
IS
addr VARCHAR2(256);
i PLS_INTEGER;
FUNCTION lookup_unquoted_char(str IN VARCHAR2,chrs IN VARCHAR2) RETURN PLS_INTEGER
AS
c VARCHAR2(5);
i PLS_INTEGER;
len PLS_INTEGER;
inside_quote BOOLEAN;
BEGIN
inside_quote := FALSE;
i := 1;
len := LENGTH(str);
WHILE(i <= len) LOOP
c := SUBSTR(str, i, 1);
IF (inside_quote) THEN
IF (c = '"') THEN
inside_quote := FALSE;
ELSIF (c = '\') THEN
i := i + 1;
END IF;
GOTO next_char;
END IF;
IF (c = '"') THEN
inside_quote := TRUE;
GOTO next_char;
END IF;
IF (INSTR(chrs, c) >= 1) THEN
RETURN i;
END IF;
<<next_char>>
i := i + 1;
END LOOP;
RETURN 0;
END;
BEGIN
addr_list := LTRIM(addr_list);
i := lookup_unquoted_char(addr_list, ',;');
IF (i >= 1) THEN
addr := SUBSTR(addr_list,1,i - 1);
addr_list := SUBSTR(addr_list, i + 1);
ELSE
addr := addr_list;
addr_list := '';
END IF;
i := lookup_unquoted_char(addr, '<');
IF (i >= 1) THEN
addr := SUBSTR(addr, i + 1);
i := INSTR(addr, '>');
IF (i >= 1) THEN
addr := SUBSTR(addr, 1, i - 1);
END IF;
END IF;
RETURN addr;
END get_mail_address;
------------------------------------------------------------------------
FUNCTION smtp_command(
command IN VARCHAR2,
ok IN VARCHAR2 DEFAULT '250',
code OUT VARCHAR2) RETURN BOOLEAN
IS
response VARCHAR2(3);
p_output_message VARCHAR2(355);
len PLS_INTEGER;
conn utl_tcp.connection;
----PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
len := utl_tcp.write_line(conn, command);
p_output_message := SUBSTR(utl_tcp.get_line(conn, TRUE),1,355);
response := SUBSTR(p_output_message,1,3);
p_output_message :=SUBSTR(command || ' - ' || p_output_message,1,355);
IF (response <> ok) THEN
code := response;
RETURN FALSE;
ELSE
code := response;
RETURN TRUE;
END IF;
EXCEPTION
WHEN OTHERS THEN
p_output_message := SQLCODE || ' - ' || SQLERRM;
code := p_output_message;
RETURN FALSE;
END smtp_command;
------------------------------------------------------------------------
FUNCTION query_server RETURN BOOLEAN
IS
p_output_message VARCHAR2(255);
err_noop EXCEPTION; -- SMTP code 250 not received
err_server_reject EXCEPTION;
conn utl_tcp.connection;
BEGIN
conn := utl_tcp.open_connection(v_smtp_server,v_smtp_server_port);
rc := utl_tcp.write_line(conn, 'HELO ' || v_smtp_domain);
p_output_message := utl_tcp.get_line(conn, TRUE);
IF SUBSTR(p_output_message, 1, 3) = '421' THEN
RAISE err_server_reject;
END IF;
rc := utl_tcp.write_line(conn, 'EHLO mahadiscom.in');
p_output_message := utl_tcp.get_line(conn, TRUE);
IF SUBSTR(p_output_message, 1, 3) = '421' THEN
RAISE err_server_reject;
END IF;
rc := utl_tcp.write_line(conn, 'NOOP');
p_output_message := utl_tcp.get_line(conn, TRUE);
IF SUBSTR(p_output_message, 1, 3) <> '250' THEN
RAISE err_noop;
END IF;
rc := utl_tcp.write_line(conn, 'QUIT');
BEGIN
FOR i_idx IN 1 .. 100 LOOP
p_output_message := utl_tcp.get_line(conn, TRUE);
END LOOP;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
utl_tcp.close_connection(conn); ----- CLOSE SMTP PORT CONNECTION
RETURN TRUE;
EXCEPTION
WHEN err_server_reject THEN
print_output( 'ERROR -'
|| ' Server Rejected Connection ::'
|| ' SERVER_MSG := '
|| p_output_message);
RETURN FALSE;
WHEN err_noop THEN
print_output( 'ERROR -'
|| ' NOOP Check Failed ::'
|| ' SERVER_MSG := '
|| p_output_message);
utl_tcp.close_connection(conn); ----- CLOSE SMTP PORT CONNECTION
RETURN FALSE;
END query_server;
------------------------------------------------------------------------
FUNCTION get_local_binary_data(p_dir IN VARCHAR2,p_file IN VARCHAR2) RETURN BLOB
IS
l_bfile BFILE;
l_data BLOB;
l_dbdir VARCHAR2(200) := p_dir;
BEGIN
dbms_lob.createtemporary(l_data,TRUE,dbms_lob.CALL);
l_bfile := BFILENAME(l_dbdir, p_file);
dbms_lob.fileopen(l_bfile, dbms_lob.file_readonly);
dbms_lob.loadfromfile(l_data,l_bfile,dbms_lob.getlength(l_bfile));
dbms_lob.fileclose(l_bfile);
RETURN l_data;
EXCEPTION
WHEN OTHERS THEN
print_output( 'Error during GET_LOCAL_BINARY_DATA :: '
|| SQLCODE
|| ' - '
|| SQLERRM);
dbms_lob.fileclose(l_bfile);
RAISE;
END get_local_binary_data;
------------------------------------------------------------------------
PROCEDURE attach_base64(
conn IN OUT NOCOPY utl_tcp.connection,
DATA IN BLOB)
IS
i PLS_INTEGER;
len PLS_INTEGER;
l_result PLS_INTEGER;
l_buffer RAW(32767);
l_pos INTEGER := 1;
l_blob_len INTEGER;
l_amount BINARY_INTEGER := 32767;
req utl_http.req;
resp utl_http.resp;
pdata RAW(200);
BEGIN
l_blob_len := dbms_lob.getlength(DATA);
WHILE l_pos < l_blob_len
LOOP
l_amount := max_base64_line_width;
dbms_lob.READ(DATA, l_amount, l_pos, l_buffer);
rc := utl_tcp.write_raw(conn, utl_encode.base64_encode(l_buffer));
utl_tcp.FLUSH(conn);
l_pos := l_pos + max_base64_line_width;
rc := utl_tcp.write_line(conn, crlf);
END LOOP;
END attach_base64;
------------------------------------------------------------------------
PROCEDURE sendmail(
from_name VARCHAR2,
to_name VARCHAR2,
cc_name VARCHAR2 DEFAULT NULL,
bcc_name VARCHAR2 DEFAULT NULL,
subject VARCHAR2,
MESSAGE LONG,
dir VARCHAR2 DEFAULT NULL,
filename VARCHAR2 DEFAULT NULL
)
IS
pos PLS_INTEGER := 1;
bytes_o_data CONSTANT PLS_INTEGER := 32767;
offset PLS_INTEGER := bytes_o_data;
msg_length CONSTANT PLS_INTEGER := length(MESSAGE);
v_line VARCHAR2(32767);
i BINARY_INTEGER;
v_slash_pos NUMBER;
my_recipients VARCHAR2(32767);
p_recipient_count PLS_INTEGER := 0;
p_output_message VARCHAR2(5000);
err_server_reject EXCEPTION;
err_message_send EXCEPTION;
err_end_of_input EXCEPTION;
l_result PLS_INTEGER;
l_buffer_b RAW(32767);
l_amount BINARY_INTEGER := 32767;
l_pos INTEGER := 1;
l_blob_len INTEGER;
l_blob BLOB;
g_debug BOOLEAN := TRUE;
i_base64 PLS_INTEGER;
len_base64 PLS_INTEGER;
conn utl_tcp.connection;
BEGIN
conn :=utl_tcp.open_connection(v_smtp_server,v_smtp_server_port);
dbms_lock.sleep(0.5);
dbms_output.put_line('----before Helo ---------');
rc := utl_tcp.write_line(conn, 'HELO ' || v_smtp_domain);
dbms_lock.sleep(0.5);
dbms_output.put_line('----after Helo ---------');
p_output_message := utl_tcp.get_line(conn, TRUE);
dbms_lock.sleep(0.5);
dbms_output.put_line(p_output_message);
IF SUBSTR(p_output_message, 1, 3) = '421' THEN
RAISE err_server_reject;
ELSE
dbms_output.put_line('----before ehlo ---------');
rc := utl_tcp.write_line(conn, 'EHLO '|| v_smtp_domain);
dbms_lock.sleep(0.5);
--p_output_message := utl_tcp.get_line(conn, TRUE);
--dbms_output.put_line(p_output_message);
dbms_output.put_line('----before mail from ---------');
rc := utl_tcp.write_line(conn, 'MAIL FROM: ' || from_name);
dbms_lock.sleep(0.5);
p_output_message := utl_tcp.get_line(conn, TRUE);
dbms_output.put_line(p_output_message);
dbms_output.put_line('----before RCPT TO: ---------');
my_recipients := to_name;
WHILE(my_recipients IS NOT NULL) LOOP
BEGIN
rc :=utl_tcp.write_line(conn, 'RCPT TO: '|| get_mail_address(my_recipients));
p_recipient_count := p_recipient_count + 1;
END;
END LOOP;
dbms_lock.sleep(0.5);
p_output_message := utl_tcp.get_line(conn, TRUE);
dbms_output.put_line(p_output_message);
dbms_output.put_line('----before CC ---------');
my_recipients := cc_name;
WHILE(my_recipients IS NOT NULL) LOOP
BEGIN
rc :=utl_tcp.write_line(conn, 'RCPT TO: '|| get_mail_address(my_recipients));
p_recipient_count := p_recipient_count + 1;
END;
END LOOP;
dbms_lock.sleep(0.5);
p_output_message := utl_tcp.get_line(conn, TRUE);
dbms_output.put_line(p_output_message);
dbms_output.put_line('----before BCC ---------');
my_recipients := bcc_name;
WHILE(my_recipients IS NOT NULL) LOOP
BEGIN
rc := utl_tcp.write_line(conn, 'RCPT TO: '|| get_mail_address(my_recipients));
p_recipient_count := p_recipient_count + 1;
END;
END LOOP;
dbms_lock.sleep(0.5);
p_output_message := utl_tcp.get_line(conn, TRUE);
dbms_output.put_line(p_output_message);
dbms_output.put_line('----before DATA ---------');
rc := utl_tcp.write_line(conn, 'DATA');
dbms_lock.sleep(0.5);
p_output_message := utl_tcp.get_line(conn, TRUE);
dbms_output.put_line(p_output_message);
dbms_output.put_line('----before Date ---------');
rc := utl_tcp.write_line(conn, 'Date: '|| to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss'));
dbms_lock.sleep(0.5);
p_output_message := utl_tcp.get_line(conn, TRUE);
dbms_output.put_line(p_output_message);
dbms_output.put_line('----before from ---------');
rc := utl_tcp.write_line(conn, 'From: ' || from_name);
dbms_lock.sleep(0.5);
p_output_message := utl_tcp.get_line(conn, TRUE);
dbms_output.put_line(p_output_message);
dbms_output.put_line('----before To ---------');
rc := utl_tcp.write_line(conn, 'To: ' || to_name);
dbms_lock.sleep(0.5);
p_output_message := utl_tcp.get_line(conn, TRUE);
p_output_message := utl_tcp.get_line(conn, TRUE);
dbms_output.put_line(p_output_message);
IF cc_name IS NOT NULL THEN
dbms_output.put_line('----before CC ---------');
rc := utl_tcp.write_line(conn, 'Cc: ' || cc_name);
dbms_lock.sleep(0.5);
p_output_message := utl_tcp.get_line(conn, TRUE);
dbms_output.put_line(p_output_message);
END IF;
IF bcc_name IS NOT NULL THEN
dbms_output.put_line('----before BCC ---------');
rc := utl_tcp.write_line(conn, 'Bcc: ' || bcc_name);
dbms_lock.sleep(0.5);
p_output_message := utl_tcp.get_line(conn, TRUE);
dbms_output.put_line(p_output_message);
END IF;
dbms_output.put_line('----before SUBJECT ---------');
rc := utl_tcp.write_line(conn, 'Subject: ' || subject);
dbms_lock.sleep(0.5);
p_output_message := utl_tcp.get_line(conn, TRUE);
dbms_output.put_line(p_output_message);
dbms_output.put_line('----before MIME ---------');
rc := utl_tcp.write_line(conn, 'Mime-Version: 1.0');
--dbms_lock.sleep(0.5);
--p_output_message := utl_tcp.get_line(conn, TRUE);
--dbms_output.put_line(p_output_message);
dbms_output.put_line('----before Content ---------');
rc := utl_tcp.write_line(conn, 'Content-Type: multipart/mixed;'); ----- INDICATES THAT THE BODY CONSISTS OF MORE THAN ONE PART
dbms_output.put_line('----before boundary ---------');
rc := utl_tcp.write_line(conn, ' boundary="-----SECBOUND"'); ----- SEPERATOR USED TO SEPERATE THE BODY PARTS
rc := utl_tcp.write_line(conn, utl_tcp.crlf); ----- DO NOT REMOVE THIS BLANK LINE - PART OF MIME STANDARD
rc := utl_tcp.write_line(conn, '-------SECBOUND');
rc := utl_tcp.write_line(conn, 'Content-Type: text/html'); ----- 1ST BODY PART. EMAIL TEXT MESSAGE
rc := utl_tcp.write_line(conn, 'Content-Transfer-Encoding: 7bit');
rc := utl_tcp.write_line(conn, utl_tcp.crlf);
dbms_output.put_line('----before body ---------');
WHILE pos < msg_length LOOP
rc :=utl_tcp.write_text(conn, SUBSTR(MESSAGE,pos,max_base64_line_width));
pos := pos + max_base64_line_width;
--offset := pos-offset;
END LOOP;
rc := utl_tcp.write_line(conn, utl_tcp.crlf);
IF filename IS NOT NULL THEN
BEGIN
l_blob := get_local_binary_data(dir,filename);
dbms_output.put_line('----before file ---------');
rc := utl_tcp.write_line(conn, '-------SECBOUND');
rc := utl_tcp.write_line(conn,'Content-Type: application/octet-stream; name="'|| filename|| '"');
rc := utl_tcp.write_line(conn,'Content-Disposition: attachment; filename="'|| filename|| '"');
rc := utl_tcp.write_line(conn, 'Content-Transfer-Encoding: base64');
rc := utl_tcp.write_line(conn, utl_tcp.crlf);
attach_base64(conn,l_blob);
dbms_lob.freetemporary(l_blob);
EXCEPTION
WHEN OTHERS THEN
p_output_message := 'Error in attaching file ' || filename
|| ' :: '|| SQLCODE|| ' - '|| SQLERRM;
dbms_lob.freetemporary(l_blob);
RAISE err_message_send;
END;
END IF;
rc := utl_tcp.write_line(conn, '-------SECBOUND--');
rc := utl_tcp.write_line(conn, utl_tcp.crlf);
rc := utl_tcp.write_line(conn, '.'); ----- EMAIL MESSAGE BODY END
dbms_output.put_line(utl_tcp.get_line(conn, TRUE));
rc := utl_tcp.write_line(conn, 'QUIT'); ----- ENDS EMAIL TRANSACTION
dbms_output.put_line(utl_tcp.get_line(conn, TRUE));
BEGIN
FOR i_idx IN 1 .. 100 LOOP
p_output_message := utl_tcp.get_line(conn, TRUE);
END LOOP;
EXCEPTION
WHEN OTHERS THEN
NULL;
END;
END IF; -- err_server_reject
utl_tcp.close_connection(conn); ----- CLOSE SMTP PORT CONNECTION
EXCEPTION
WHEN err_message_send
THEN
print_output( CHR(50)
|| CHR(50)
|| 'ERROR -'
|| ' Message was not submitted for delivery');
print_output(' [FROM_NAME := ' || from_name || '] ');
print_output(' [TO_NAME := ' || to_name || '] ');
print_output(' [CC_NAME := ' || cc_name || '] ');
print_output(' [BCC_NAME := ' || bcc_name || '] ');
print_output(' [SUBJECT := ' || subject || '] ');
print_output(' SERVER_MSG := ' || p_output_message);
utl_tcp.close_connection(conn); ----- CLOSE SMTP PORT CONNECTION
WHEN err_server_reject
THEN
print_output( CHR(50)
|| CHR(50)
|| 'ERROR -'
|| ' Server Rejected Email');
print_output(' [FROM_NAME := ' || from_name || '] ');
print_output(' [TO_NAME := ' || to_name || '] ');
print_output(' [CC_NAME := ' || cc_name || '] ');
print_output(' [BCC_NAME := ' || bcc_name || '] ');
print_output(' [SUBJECT := ' || subject || '] ');
print_output(' SERVER_MSG := ' || p_output_message);
WHEN OTHERS
THEN
print_output( CHR(50)
|| CHR(50)
|| 'ERROR :: '
|| SQLCODE
|| ' - '
|| SQLERRM);
print_output(' [FROM_NAME := ' || from_name || '] ');
print_output(' [TO_NAME := ' || to_name || '] ');
print_output(' [CC_NAME := ' || cc_name || '] ');
print_output(' [BCC_NAME := ' || bcc_name || '] ');
print_output(' [SUBJECT := ' || subject || '] ');
print_output(' SERVER_MSG := ' || p_output_message);
END sendmail;
END;
/
"---------Data coming in E-mail is invalid.......please suggest for the same"
Mail Body:-Cc: rkgupta@tatapower.com; mdsalvi@tatapower.com; msinha@tatapower.com; tshelke@tatapower.com; tl-santosh@tatapower.com; Bikash.Samal@tatapower.com; amishra@tatapower.com; rajesh.rajgurav@tatapower.com; vbpatil@tatapower.com; madhav.shinde@tatapower.com; cmc-lokesh@tatapower.com;
Subject: New Connection [ CENTAUR MERCANTILE PVT LTD - Request for Execution.]
Mime-Version: 1.0
Content-Type: multipart/mixed;
boundary="-----SECBOUND"
-------SECBOUND
Content-Type: text/html
Content-Transfer-Encoding: 7bit
Request for New Connection as per the details below :<BR/><br><TABLE><TR><TH valign='top' align='left' width='500px' >Name :</TH><TD> CENTAUR MERCANTILE PVT LTD </TD></TR><TR><TH valign='top' align='left' width='100px' >RequestNo. :</TH><TD> 12NC016083</TD></TR><TR><TH valign='top' align='left' width='100px' >CDDNo. :</TH><TD> </TD></TR><TR><TH valign='top' align='left' width='150px' >Business Partner No. : </TH><TD>851485</TD></TR><TR><TH valign='top' align='left' width='150px' >Address : </TH><TD>OFFICE NO. -208 A WING, BUILDING NAME -BOOMERANG EQUITY BUSSI PARK CTS NO 4 ETC, KURLA STREET -CHANDIVALI FARM ROAD LANDMARK NEAR HINDUSTAN TRANSMISSION COMPOUND CHANDIVALI (SAKI NAKA), Mumbai, Maharashtra, PIN ID - 400072 </TD></TR><TR><TH valign='top' align='left' width='150px' >Contact No: </TH><TD>67266666</TD></TR><TR><TH valign='top' align='left' colspan=2 align=left >Load Details :</TH></TR><TR><TD valign='top' align='left' width='150px' >Supply(Voltage) : </TD><TD>LT THREE PHASE</TD></TR><TR><TD valign='top' align='left' width='150px' >Supply(Category) : </TD><TD>COMMERCIAL</TD></TR><TR><TD valign='top' align='left' width='150px'>Sanctioned(Load)KW:</TD><TD>42.00</TD></TR><TR><TH valign='top' align='left' width='150px' >Electrical Contractor Contact No: </TH><TD> TEL NO :26114455<BR> MOBILE NO :9820309199 </TD></TR></TABLE><br>Technical Feasibility report attached for your reference.<BR/>We request you to execute the work and Confirm. <BR/><BR/>It is requested to release the supply before the expiry of SOP date
05th February 2012-------SECBOUND
Content-Type: application/octet-stream; name="Application_for_execution_12NC016083.pdf"
Content-Disposition: attachment; filename="Application_for_execution_12NC016083.pdf"
Content-Transfer-Encoding: base64
JVBERi0xLjIgCiXi48/TIAoxIDAgb2JqIAo8PCAKL1R5cGUgL0NhdGFsb2cgCi9Q
YWdlcyAyIDAg