105: recipient4 IN VARCHAR2,
106: message IN VARCHAR2)
107: IS
108: l_mailhost VARCHAR2(32767);
109: l_mail_conn utl_smtp.connection;
110: l_email_addrs VARCHAR2(32767);
111: l_spr VARCHAR2(30) := ',';
112: l_start_pos NUMBER;
113: l_end_pos NUMBER;
156: IF l_mailhost IS NOT NULL
157: AND l_email_addrs IS NOT NULL
158: THEN
159: --{
160: l_mail_conn := utl_smtp.open_connection(l_mailhost, 25);
161:
162: j := 1; l_start_pos := 1; l_end_pos := instrb(l_email_addrs, l_spr, 1, j);
163: if l_end_pos = 0 then
164: l_end_pos := lengthb(l_email_addrs) + 1;
198: WSH_DEBUG_SV.log(l_module_name, 'recipient4', l_recipient4);
199: WSH_DEBUG_SV.log(l_module_name, 'recipient5', l_recipient5);
200: END IF;
201:
202: utl_smtp.helo(l_mail_conn, l_mailhost);
203:
204: utl_smtp.mail(l_mail_conn, l_sender);
205:
206: IF l_recipient1 IS NOT NULL THEN
200: END IF;
201:
202: utl_smtp.helo(l_mail_conn, l_mailhost);
203:
204: utl_smtp.mail(l_mail_conn, l_sender);
205:
206: IF l_recipient1 IS NOT NULL THEN
207: utl_smtp.rcpt(l_mail_conn, l_recipient1);
208: END IF;
203:
204: utl_smtp.mail(l_mail_conn, l_sender);
205:
206: IF l_recipient1 IS NOT NULL THEN
207: utl_smtp.rcpt(l_mail_conn, l_recipient1);
208: END IF;
209:
210:
211: IF l_recipient2 IS NOT NULL THEN
208: END IF;
209:
210:
211: IF l_recipient2 IS NOT NULL THEN
212: utl_smtp.rcpt(l_mail_conn, l_recipient2);
213: END IF;
214:
215: IF l_recipient3 IS NOT NULL THEN
216: utl_smtp.rcpt(l_mail_conn, l_recipient3);
212: utl_smtp.rcpt(l_mail_conn, l_recipient2);
213: END IF;
214:
215: IF l_recipient3 IS NOT NULL THEN
216: utl_smtp.rcpt(l_mail_conn, l_recipient3);
217: END IF;
218:
219: IF l_recipient4 IS NOT NULL THEN
220: utl_smtp.rcpt(l_mail_conn, l_recipient4);
216: utl_smtp.rcpt(l_mail_conn, l_recipient3);
217: END IF;
218:
219: IF l_recipient4 IS NOT NULL THEN
220: utl_smtp.rcpt(l_mail_conn, l_recipient4);
221: END IF;
222:
223: IF l_recipient5 IS NOT NULL THEN
224: utl_smtp.rcpt(l_mail_conn, l_recipient5);
220: utl_smtp.rcpt(l_mail_conn, l_recipient4);
221: END IF;
222:
223: IF l_recipient5 IS NOT NULL THEN
224: utl_smtp.rcpt(l_mail_conn, l_recipient5);
225: END IF;
226:
227: utl_smtp.data(l_mail_conn, message);
228:
223: IF l_recipient5 IS NOT NULL THEN
224: utl_smtp.rcpt(l_mail_conn, l_recipient5);
225: END IF;
226:
227: utl_smtp.data(l_mail_conn, message);
228:
229: utl_smtp.quit(l_mail_conn);
230: ELSE
231: IF l_debug_on THEN
225: END IF;
226:
227: utl_smtp.data(l_mail_conn, message);
228:
229: utl_smtp.quit(l_mail_conn);
230: ELSE
231: IF l_debug_on THEN
232: wsh_debug_sv.logmsg(l_module_name, 'Not sending mail. Server Name or Email id is null');
233: END IF;