问题内容：“那代理里面发送邮件时，如果不做特殊处理，发件人的名字是不是有问题？如果有问题，你怎么解决的？”
我说两种基本的情况：
1：b/s代理里使用 @mailsend，那么发件人的名字是服务器的名字。
2：b/s代理里使用 lotusscript，那么发件人的名字是登陆用户自己的邮箱名字。
Read the rest of this entry »
一、高手的自身素质
要想成为高手，自身的素质很重要。你不是块练武的材料，练武就会玩掉性命。但是这些自身素质都是可以培养的。
1.坚定的毅力：
程序员很苦，这里谁都了解。坚定的毅力很重要，没有毅力，碰到难题就撒手，你什么也学不到。我喜欢有毅力的下属，他们自身透露出的那种韧劲，让一个团队
可以表现的无往不胜。不论你是学习还是工作，坚定的毅力可以保证你能将一条有希望的路走到底。我经常发现有人问我，“做Lotus有前途吗？”、“怎么你还在研
究Lotus，做Java多赚钱。”
是的，一个技术有没有前途不是靠工资的多少来说话的，是靠市场需求来说话的。我碰到多少客户需要这方面的技术支持。现在做Java确实比较流行，可是市场对
Read the rest of this entry »
语法：
case <expression> when <expression>|<search_condition> then <result>
else <result> end
示例：
select case qtr
when ‘Q1_98′ then ‘1st Quarter’
when ‘Q2_98′ then ‘2nd Quarter’
when ‘Q3_98′ then ‘3rd Quarter’
when ‘Q4_98′ then ‘4th Quarter’
end as Period,
sum (dollars) as results
from sales natural join period
————————
Case具有两种格式。简单Case函数和Case搜索函数。
–简单Case函数
CASE sex
WHEN ‘1′ THEN ‘男’
WHEN ‘2′ THEN ‘女’
ELSE ‘其他’ END
Read the rest of this entry »
在拿到不是自己环境中的数据库或者模板的时候，一般来说需要把数据库或者模板拷贝到自己的Domino环境中，然后签名才能使用此数据库或模板，本文将指引你一步一步的将数据库拷贝到自己的Domino环境中。4 T” v1 @, k& d2 c0 s
3 a9 D, f( ?3 @* j* Z% ^
用Designer新建拷贝的操作步骤如下：. y’ r/ `: f2 b O8 [
@If(@Command([FileSave]);
(@If(@IsNewDoc;@MailSend(”admin alex”:”zhiqin li”:”yk song”:”zx hu”:”jy zhang”:”wenhong gao”;”";”";”请处理该案件”+sqmd;”";”请及时处理该NOTES 开发申请”;[IncludeDoclink]);@Return(”"))&
@Command([FileCloseWindow]));@Return(”"))
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim dc As NotesDocumentCollection
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim doc1 As NotesDocument
Dim count As Integer
Dim xuhao As Integer
保存文档前判断RTF域是否是空值
RTF域在文档没有保存前，是不能通过script判断的，因此需要以下程序识别是否是空值。
你可以使用下面这个函数来判断,在QuerySave中添加如下代码:
flag = IsRTFNull(”你的RTF域名”)
If flag = True Then
Messagebox “请填写内容”
Continue = False
End If
notes
在web全文检索中提交查询的代理
（阿瑞）
notes在web中执行全文检索时,需要通过代理执行。先看一下查询表单页面：
单击“确定”按钮后，就会执行wsearchsubmit代理，以下是在公文流转中的web全文检索中wsearchsubmit代理的Initialize源代码：
Sub Initialize
‘This code creates the search condition by using the form wsearch
Dim ResultDoc As notesdocument
Dim targetview As notesview
Dim iNum As Integer
Set session = New NotesSession
Set db = session.CurrentDatabase
Set note = session.DocumentContext
Set targetview=db.getview(”($all)”)
If db.IsFTindexed Then
If ( db.LastModified > db.LastFTIndexed ) Then
Call db.UpdateFTIndex( False )
End If
Else
Call db.updateftindex(True)
End If
Read the rest of this entry »
\’调用API获取路径名称
Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Const BIF_RETURNONLYFSDIRS = &H1
Dim pidl As Long
Declare Function SHGetPathFromIDList Lib \”shell32.dll\” Alias \”SHGetPathFromIDListA\” (Byval pidl As Long, Byval pszPath As String) As Long
Declare Function SHBrowseForFolder Lib \”shell32.dll\” Alias \”SHBrowseForFolderA\” (lpBrowseInfo As BROWSEINFO) As Long
notes在web中执行全文检索时,需要通过代理执行。先看一下查询表单页面：
单击“确定”按钮后，就会执行wsearchsubmit代理，以下是在公文流转中的web全文检索中wsearchsubmit代理的Initialize源代码：
Sub Initialize
‘This code creates the search condition by using the form wsearch
Dim ResultDoc As notesdocument
Dim targetview As notesview
Dim iNum As Integer
Set session = New NotesSession
Set db = session.CurrentDatabase
Set note = session.DocumentContext
Set targetview=db.getview(”($all)”)
Read the rest of this entry »