操作notes文档及文档中的附件
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
padding: 0px;
}
.tdValue {
background: #f4faff;
color: #111;
text-align: center;
vertical-align: middle;
}
.docoumentTable {
width: 25%;
border: 1px solid black;
Call stream.Writetext("<td width='21%' valign='middle'><font>"+htdoc.TxQcnf(0)+"年"+htdoc.TxQcyf(0)+"月"+htdoc.TxQcrq(0)+"日"+"</font></td>", EOL_CRLF)
Call stream.Writetext("</tr>", EOL_CRLF)
Call stream.WriteText("<HTML xmlns='/1999/xhtml'>",EOL_CRLF)
Call stream.WriteText("<head>",EOL_CRLF)
Call stream.WriteText("<meta http-equiv='Content-Type' content='text/html; charset=utf-8' />",EOL_CRLF)
Call stream.Writetext("<table border='0' class='tblInf' style='margin-top:0px;'>", EOL_CRLF)
Call stream.Writetext("<tr valign='top'>", EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>拟稿人</td>", EOL_CRLF)
Call stream.Writetext("<td width='21%' valign='middle'><font>"+htdoc.TxSjJbrdh(0)+"</font></td>", EOL_CRLF)
Call stream.Writetext("</tr>", EOL_CRLF)
Call stream.WriteText("<tr valign='top'>",EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>业务风险审查</td>", EOL_CRLF)
Call stream.Writetext("<td width='21%' valign='middle'><font>"+htdoc.TxYwfx(0)+"</font></td>", EOL_CRLF)
fileName = path + "处理单.html"
'MsgBox "fileName"+fileName
If Dir$(fileName,0) <> "" Then
Kill fileName
End If
Call stream.Open(FileName,"utf-8")
Call stream.WriteText("<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' '/TR/xhtml1/DTD/xhtml1-transitional.dtd'>",EOL_CRLF)
margin: 15px auto;
}
.tblInf td {
border: #bddbf4 1px solid;
line-height: 22px;
padding: 0 4px;
}
.tblInf td .noBorder {
border: none;
margin: 2px 0px;
border-collapse: collapse;
Call stream.Writetext("<td width='21%' valign='middle'>"+htdoc.TxSjJbr(0)+"</td>", EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>实际经办人电话</td>", EOL_CRLF)
border: #c2d0fc 1px solid;
line-height: 22px;
padding: 0 4px;
}
.tblInf td table td table {
border: none;
margin: 0px;
}
.tblInf td table td table td {
border: none;
Call stream.Writetext("<td width='21%' valign='middle'>"+htdoc.TxQcr(0)+"</td>", EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>拟稿时间</td>", EOL_CRLF)
1.将文档内容导出成html格式并存放到服务器上：参考代码如下
%REM
Function CreateFolder
Description: Comments for Function
%END REM
Function CreateForm(htdoc As NotesDocument ,path As string)As boolean
Call stream.Writetext("</head>", EOL_CRLF)
Call stream.Writetext("<body style='font-family:'SimSun''>", EOL_CRLF)
Call stream.Writetext("<p align='center'><b><span style='font-size: 16.0pt;line-height: 175%'>"+htdoc.TxSyWjtt(0)+"</span></b></p>", EOL_CRLF)
}
body {
margin: 10px;
padding: 0px;
font-size: 12px;
text-align: left;
height:auto;
}
.tblInf {
border: #bddbf4 1px solid;
border-collapse: collapse;
width: 94%;
size:12.5in 10in;
padding: 1em;
@top-center {
content: "";
color: red;
};
@bottom-center {
content: counter(page) " / " counter(pages);
font-size: 12px;
}
}
* {
font-size: 12px;
Call stream.WriteText("</tr>",EOL_CRLF)
Call stream.WriteText("<tr valign='top'>",EOL_CRLF)
Call stream.WriteText("<td class='tdValue' width='12%' valign='middle'>标题</td>",EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>联系电话</td>", EOL_CRLF)
Call stream.Writetext("<td width='21%' valign='middle'><font>"+htdoc.TxLxdh(0)+"</font></td>", EOL_CRLF)
Call stream.WriteText("<td class='tdValue' width='12%' valign='middle'>文件编号</td>",EOL_CRLF)
Call stream.WriteText("<td width='21%' valign='middle'>"+htdoc.FileSearialNo(0)+"</td>",EOL_CRLF)
Call stream.WriteText("<title>"+htdoc.title(0)+"</title>",EOL_CRLF)
Call stream.WriteText("<style type='text/css'>",EOL_CRLF)
Call stream.WriteText(|@page {
Call stream.WriteText("<td colspan='3' valign='middle'>"+htdoc.Title(0)+"</td>",EOL_CRLF)
On Error GoTo er
CreateForm = false
Dim session As New NotesSession
Dim ream As NotesStream
Set stream = session.Createstream
Dim fileName As String
'fileName = path + htdoc.UniversalID+".html"
Call stream.Writetext("<tr valign='top'>", EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>报评部门</td>", EOL_CRLF)
Call stream.Writetext("<td width='21%' valign='middle'>"+htdoc.TxBpdw(0)+"</td>", EOL_CRLF)
}
.tblInf td .noBorder td {
border: none;
}
.tblInf td table {
border: #c2d0fc 1px solid;
border-collapse: collapse;
width: 99%;
margin: 10px auto;
}
.tblInf td table td {
Call stream.Writetext("<table width='93%' align='center' border='0' cellspacing='0' cellpadding='0'>", EOL_CRLF)
Call stream.Writetext("<tr valign='top'>", EOL_CRLF)
Call stream.Writetext("</tr>", EOL_CRLF)
Call stream.Writetext("<tr valign='top'>", EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>实际经办人</td>", EOL_CRLF)
border-collapse: collapse;
margin-top: 10px;
margin-right: 3.5%;
}
.docoumentTable td {
border: 1px solid black;
}|,EOL_CRLF)
'MsgBox "起草人"+htdoc.TxQcr(0)
Call stream.Writetext("</style>", EOL_CRLF)
Call stream.Writetext("<td width='50%' valign='middle'></td>", EOL_CRLF)
}
.tdValue {
background: #f4faff;
color: #111;
text-align: center;
vertical-align: middle;
}
.docoumentTable {
width: 25%;
border: 1px solid black;
Call stream.Writetext("<td width='21%' valign='middle'><font>"+htdoc.TxQcnf(0)+"年"+htdoc.TxQcyf(0)+"月"+htdoc.TxQcrq(0)+"日"+"</font></td>", EOL_CRLF)
Call stream.Writetext("</tr>", EOL_CRLF)
Call stream.WriteText("<HTML xmlns='/1999/xhtml'>",EOL_CRLF)
Call stream.WriteText("<head>",EOL_CRLF)
Call stream.WriteText("<meta http-equiv='Content-Type' content='text/html; charset=utf-8' />",EOL_CRLF)
Call stream.Writetext("<table border='0' class='tblInf' style='margin-top:0px;'>", EOL_CRLF)
Call stream.Writetext("<tr valign='top'>", EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>拟稿人</td>", EOL_CRLF)
Call stream.Writetext("<td width='21%' valign='middle'><font>"+htdoc.TxSjJbrdh(0)+"</font></td>", EOL_CRLF)
Call stream.Writetext("</tr>", EOL_CRLF)
Call stream.WriteText("<tr valign='top'>",EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>业务风险审查</td>", EOL_CRLF)
Call stream.Writetext("<td width='21%' valign='middle'><font>"+htdoc.TxYwfx(0)+"</font></td>", EOL_CRLF)
fileName = path + "处理单.html"
'MsgBox "fileName"+fileName
If Dir$(fileName,0) <> "" Then
Kill fileName
End If
Call stream.Open(FileName,"utf-8")
Call stream.WriteText("<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' '/TR/xhtml1/DTD/xhtml1-transitional.dtd'>",EOL_CRLF)
margin: 15px auto;
}
.tblInf td {
border: #bddbf4 1px solid;
line-height: 22px;
padding: 0 4px;
}
.tblInf td .noBorder {
border: none;
margin: 2px 0px;
border-collapse: collapse;
Call stream.Writetext("<td width='21%' valign='middle'>"+htdoc.TxSjJbr(0)+"</td>", EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>实际经办人电话</td>", EOL_CRLF)
border: #c2d0fc 1px solid;
line-height: 22px;
padding: 0 4px;
}
.tblInf td table td table {
border: none;
margin: 0px;
}
.tblInf td table td table td {
border: none;
Call stream.Writetext("<td width='21%' valign='middle'>"+htdoc.TxQcr(0)+"</td>", EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>拟稿时间</td>", EOL_CRLF)
1.将文档内容导出成html格式并存放到服务器上：参考代码如下
%REM
Function CreateFolder
Description: Comments for Function
%END REM
Function CreateForm(htdoc As NotesDocument ,path As string)As boolean
Call stream.Writetext("</head>", EOL_CRLF)
Call stream.Writetext("<body style='font-family:'SimSun''>", EOL_CRLF)
Call stream.Writetext("<p align='center'><b><span style='font-size: 16.0pt;line-height: 175%'>"+htdoc.TxSyWjtt(0)+"</span></b></p>", EOL_CRLF)
}
body {
margin: 10px;
padding: 0px;
font-size: 12px;
text-align: left;
height:auto;
}
.tblInf {
border: #bddbf4 1px solid;
border-collapse: collapse;
width: 94%;
size:12.5in 10in;
padding: 1em;
@top-center {
content: "";
color: red;
};
@bottom-center {
content: counter(page) " / " counter(pages);
font-size: 12px;
}
}
* {
font-size: 12px;
Call stream.WriteText("</tr>",EOL_CRLF)
Call stream.WriteText("<tr valign='top'>",EOL_CRLF)
Call stream.WriteText("<td class='tdValue' width='12%' valign='middle'>标题</td>",EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>联系电话</td>", EOL_CRLF)
Call stream.Writetext("<td width='21%' valign='middle'><font>"+htdoc.TxLxdh(0)+"</font></td>", EOL_CRLF)
Call stream.WriteText("<td class='tdValue' width='12%' valign='middle'>文件编号</td>",EOL_CRLF)
Call stream.WriteText("<td width='21%' valign='middle'>"+htdoc.FileSearialNo(0)+"</td>",EOL_CRLF)
Call stream.WriteText("<title>"+htdoc.title(0)+"</title>",EOL_CRLF)
Call stream.WriteText("<style type='text/css'>",EOL_CRLF)
Call stream.WriteText(|@page {
Call stream.WriteText("<td colspan='3' valign='middle'>"+htdoc.Title(0)+"</td>",EOL_CRLF)
On Error GoTo er
CreateForm = false
Dim session As New NotesSession
Dim ream As NotesStream
Set stream = session.Createstream
Dim fileName As String
'fileName = path + htdoc.UniversalID+".html"
Call stream.Writetext("<tr valign='top'>", EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>报评部门</td>", EOL_CRLF)
Call stream.Writetext("<td width='21%' valign='middle'>"+htdoc.TxBpdw(0)+"</td>", EOL_CRLF)
}
.tblInf td .noBorder td {
border: none;
}
.tblInf td table {
border: #c2d0fc 1px solid;
border-collapse: collapse;
width: 99%;
margin: 10px auto;
}
.tblInf td table td {
Call stream.Writetext("<table width='93%' align='center' border='0' cellspacing='0' cellpadding='0'>", EOL_CRLF)
Call stream.Writetext("<tr valign='top'>", EOL_CRLF)
Call stream.Writetext("</tr>", EOL_CRLF)
Call stream.Writetext("<tr valign='top'>", EOL_CRLF)
Call stream.Writetext("<td class='tdValue' width='12%' valign='middle'>实际经办人</td>", EOL_CRLF)
border-collapse: collapse;
margin-top: 10px;
margin-right: 3.5%;
}
.docoumentTable td {
border: 1px solid black;
}|,EOL_CRLF)
'MsgBox "起草人"+htdoc.TxQcr(0)
Call stream.Writetext("</style>", EOL_CRLF)
Call stream.Writetext("<td width='50%' valign='middle'></td>", EOL_CRLF)