12 lines
307 B
Text
12 lines
307 B
Text
Sub Click()
|
|
'a few declarations as example
|
|
Dim s as New NotesSession ' declaring a New NotesSession actually returns the current, active NotesSession
|
|
Dim i as Integer ' i = 0
|
|
Dim s as String ' s= ""
|
|
Dim v as Variant ' v is nothing
|
|
Dim l as Long ' l = 0
|
|
Dim doc as NotesDocument 'doc is EMTPY
|
|
|
|
'...
|
|
|
|
End Sub
|