①      ボタンのクリック事件:

Sub Click(Source As Button)

Dim ws As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Set uidoc =ws.CurrentDocument

content = uidoc.FieldGetText( "Body" ) /文書域の値を取得する

askme = ws.Prompt(PROMPT_OK, _   /プロンプトメッセージを出す、Workspaceのメソッド

"Reminder", content)

Print Strcompare("AB", "ab", 1)     /ストータスバーに出力

End Sub

②      外部ファイルの読み込み:

Dim ws As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim exapp As Variant

Dim workbook As Variant

Dim worksheet As Variant

Dim myValue As String

Set uidoc =ws.CurrentDocument

'Read the excel file

Set exapp = createobject("Excel.Application")   /エクセルアプリを指定する

filenp = "f:\mail.xlsx"                   /ファイルのパスを指定する

exapp.visible=False

Set WorkBook = exapp.WorkBooks.Open(filenp)

Set WorkSheet = WorkBook.worksheets("Sheet1")

       myValue = Trim(WorkSheet.cells(1,1).value)    /エクセルシートの値を取得する

Call uidoc.FieldSetText("SendTo", myValue $)  /文書域の値を設定する

       exapp.Quit                        /エクセルアプリを閉鎖する

③、ノーツデータベースを開く:

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Messagebox( db.ReplicaID )

Dim db As New NotesDatabase( "", "" )
    If db.OpenByReplicaID( "D19DBR11/19/A/IBM", "49257C45002186AD" ) Then
        Print( db.Title & " was successfully opened" )
    Else
        Print( "Unable to open database" )
    End If

④、ccにアドレス追加:

Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim currentCc As String
    Set uidoc =ws.CurrentDocument
    currentCc = uidoc.FieldGetText( "EnterCopyTo" )
    
    content = uidoc.FieldGetText( "Body" )
    
    Dim  DefaultString As String
    Dim positionOfChar As Long
    DefaultString$ = "/Japan/IBM)"
    positionOfChar& = Instr(content, DefaultString$)
    
    Dim subString1 As String
    Dim subString2 As String
    subString1$ = Left$(content, positionOfChar&+9)
    subString2$=Right$(subString1,positionOfChar&-9)
    
    If ( currentCc ="") Then
        Call uidoc.FieldSetText( "EnterCopyTo", subString2 )
    Elseif ( Instr(currentCc, subString2)=0) Then
        Call uidoc.FieldAppendText("EnterCopyTo", "," & subString2)
    Else
        Exit Sub
    End If
End Sub

Notes常用事件整理的更多相关文章

  1. JQuery插件之【jqGrid】常用语法整理

    jqGrid常用语法整理,包含数据获取.常用函数.触发事件等 jqGrid表格数据获取相关语法 获取表格所有数据 $("#grid").jqGrid("getRowDat ...

  2. IOS常用代码整理

    常用代码整理: 12.判断邮箱格式是否正确的代码: //利用正则表达式验证 -(BOOL)isValidateEmail:(NSString *)email { NSString *emailRege ...

  3. ios手势操作,四个基本事件与六个常用事件

    基本事件包括begin,canceled,move,ended四项,如果对象的hidden属性为yes,则无效果,hidden属性必须为no;才能使用: -(void)touchesBegan:(NS ...

  4. NiosII常用函数整理

    NiosII常用函数整理 IO操作函数函数原型:IORD(BASE, REGNUM) 输入参数:BASE为寄存器的基地址,REGNUM为寄存器的偏移量函数说明:从基地址为BASE的设备中读取寄存器中偏 ...

  5. js-DOM-页面元素的兼容性、常用事件、节点

    页面元素的兼容性: 所谓的兼容性指的就是当前浏览器是否支持当前对象的属性或是方法,如果支持就是兼容,如果不支持就是不兼容. 举个例子: /** * 设置页面标签之间的文本内容的兼容性写法 * @par ...

  6. MAC机常用快捷键整理表格

    MAC机常用快捷键整理表格 范围 快捷键 说明 图形   (Command 键)在某些 Apple 键盘上,此键也可能为标志()     Control (Control 键)     Alt Opt ...

  7. jQuery--引入,基本语法,以及常用事件

    一.初识jQuery jQuery是一个JavaScript函数库.主要包含的功能有:HTML元素的选取.操作,CSS操作,HTML事件函数,JavaScript特效和动画,HTML DOM遍历和修改 ...

  8. jQuery常用事件

    1.$(document).ready() $(document).ready()是jQuery中响应JavaScript内置的onload事件并执行任务的一种典型方式.它和onload具有类似的效果 ...

  9. sublime常用快捷键整理(未完待续)

    sublime常用快捷键整理: 基本操作 cmd+o 打开文件 cmd+w 关闭当前tab cmd+n 打开新页 cmd+shift+n 打开刚刚关闭的页签 一.选择命令 1.多个单词选择 cmd+d ...

随机推荐

  1. gdb调试python

    一.概述 有时我们会想调试一个正在运行的Python进程,或者一个Python进程的coredump.例如现在遇到一个mod_wsgi的进程僵死了,不接受请求,想看看究竟是运行到哪行Python代码呢 ...

  2. 后台找到repeater里面的div并添加客户端点击事件

    public partial class Inv_SelectWorkservice : System.Web.UI.Page,IPostBackEventHandler{ } 通过OnItemCre ...

  3. DOM元素对象的属性和方法(1)

    一.accessKey() 作用:获取元素焦点快捷键:设置快捷键后,使用Alt+快捷键,让元素快速获得焦点, <!DOCTYPE html> <html> <head&g ...

  4. clientX,pageX,screenX,offsetLeft,scrollTop

    出处:点击打开链接 一直不太明白,今天看了一下,感觉挺详细,先转载过来....... clientX 观点:鼠标相对于WINDOWS的坐标. 这里这个WINDOWS是指我们能看见的浏览器大小.所以不可 ...

  5. JS 把 Wed Jul 15 2015 00:00:00 GMT+0800 转换成2015-07-15

    function strlen(str) { var len = 0; for (var i = 0; i < str.length; i++) { var c = str.charCodeAt ...

  6. 通过自定义注解反射生成SQL语句

    ----------------------------------------Program.cs---------------------------------------- using Sys ...

  7. MYSQL区分大小写

    MYSQL区分大小写   1.linux下mysql安装完后是默认:区分表名的大小写,不区分列名的大小写: 2.用root帐号登录后,在/etc/my.cnf 中的[mysqld]后添加添加lower ...

  8. [转载]CTreeCtrl 和 CListCtrl 控件(VC_MFC)

    来源:http://www.cnblogs.com/kzloser/archive/2012/11/23/2783305.html Tree Control 控件(MSDN 链接) 说明: 树形控件是 ...

  9. mysql--自动增长

    create table teacher( t_id int primary key auto_increment, #auto_increment 自动增长 需要整型,还需要索引 t_name va ...

  10. Log4Net_LayOut

    对Log4Net做了些基本记录 其中Layout常用参数的解释,我已实例为准. 测试程序源码如下: static void Main(string[] args) { log4net.Config.X ...