ORACLE邮件通用包包头

CREATE OR REPLACE PACKAGE "XXTP_HTML_TEST" AUTHID CURRENT_USER IS

-- Author : ADMIN
-- Created : 2021/12/2 11:15:54
-- Purpose :

-- Public type declarations
--邮件行信息
TYPE Line_Rec_Type IS RECORD(
Attribute1 VARCHAR2(4000),
Attribute2 VARCHAR2(4000),
Attribute3 VARCHAR2(4000),
Attribute4 VARCHAR2(4000),
Attribute5 VARCHAR2(4000),
Attribute6 VARCHAR2(4000),
Attribute7 VARCHAR2(4000),
Attribute8 VARCHAR2(4000),
Attribute9 VARCHAR2(4000),
Attribute10 VARCHAR2(4000),
Attribute11 VARCHAR2(4000),
Attribute12 VARCHAR2(4000),
Attribute13 VARCHAR2(4000),
Attribute14 VARCHAR2(4000),
Attribute15 VARCHAR2(4000),
Attribute16 VARCHAR2(4000),
Attribute17 VARCHAR2(4000),
Attribute18 VARCHAR2(4000),
Attribute19 VARCHAR2(4000),
Attribute20 VARCHAR2(4000),
Attribute21 VARCHAR2(4000),
Attribute22 VARCHAR2(4000),
Attribute23 VARCHAR2(4000),
Attribute24 VARCHAR2(4000),
Attribute25 VARCHAR2(4000),
Attribute26 VARCHAR2(4000),
Attribute27 VARCHAR2(4000),
Attribute28 VARCHAR2(4000),
Attribute29 VARCHAR2(4000),
Attribute30 VARCHAR2(4000),
Attribute31 VARCHAR2(4000),
Attribute32 VARCHAR2(4000),
Attribute33 VARCHAR2(4000),
Column VARCHAR2(240),
Wsize VARCHAR2(240),
Fonts VARCHAR2(240),
Color VARCHAR2(240),
Fonts_Type VARCHAR2(240));
TYPE Line_Tbl_Type IS TABLE OF Line_Rec_Type INDEX BY BINARY_INTEGER;
--邮件头信息
TYPE Header_Rec_Type IS RECORD(
Text CLOB,
Wsize VARCHAR2(240),
Fonts VARCHAR2(240),
Color VARCHAR2(240),
Fonts_Type VARCHAR2(240),
Line_Info Line_Tbl_Type);
TYPE Header_Tbl_Type IS TABLE OF Header_Rec_Type INDEX BY BINARY_INTEGER;
--邮件签名信息
TYPE Sign_Rec_Type IS RECORD(
Text VARCHAR2(4000),
Wsize VARCHAR2(240),
Fonts VARCHAR2(240),
Color VARCHAR2(240));
--邮件发送信息
TYPE Mail_Rec_Type IS RECORD(
Subject VARCHAR2(4000),
Receiver VARCHAR2(4000),
Copy_Receiver VARCHAR2(4000),
Calls VARCHAR2(4000),
Header_Info Header_Tbl_Type,
Sign_Info Sign_Rec_Type);
TYPE Mail_Tbl_Type IS TABLE OF Mail_Rec_Type INDEX BY BINARY_INTEGER;
--邮件错误信息
TYPE Error_Info_Tbl_Type IS TABLE OF VARCHAR2(240) INDEX BY BINARY_INTEGER;

FUNCTION Validate_Email_Address(p_Email_Address VARCHAR2) RETURN VARCHAR2;

PROCEDURE Send_Mail(p_Mail_Rec IN Mail_Rec_Type,
x_Error_Info_Tbl OUT NOCOPY Error_Info_Tbl_Type);

PROCEDURE Send_Mail(p_Mail_Tbl IN Mail_Tbl_Type,
x_Error_Info_Tbl OUT NOCOPY Error_Info_Tbl_Type);

PROCEDURE Mailing(p_Subject IN VARCHAR2,
p_Receiver IN VARCHAR2,
p_Copy_Receiver IN VARCHAR2,
p_Data IN CLOB);

END Xxtp_Html_Test;