Работа с Lotus посредством VBA

[Gustav]

Цитата:

Сообщение от VKUR

Для начала хотя бы преобразовать в джоб

ну, подход примерно такой:

1. описываем переменные как str
str recid;
str imtetype;
и остальные тоже

2. описываем вот эти объектные переменные как COM
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument

т.е заменяем на
COM s;
COM db;
и т.д.

3. Далее для воплощения оператора New NotesSession нужно знать строковый идентификатор этого COM-объекта.

например, для Excel это "Excel.Application" и строка создания выглядит так:
xlApp = new COM("Excel.Application");

а вам нужно аналогичное для NotesSession (вместо многоточия):
s = new COM("...");

4. В конце каждого оператора - точка с запятой : s.Initialize(Password);

5. Для объектов слово Set не надо, просто присваивание: db = s.GetDatabase(Server, Path);

6. Если у метода нет параметров, то все равно круглые скобки в конце: doc = db.CreateDocument();

7. Конструкцию "If doc Is Nothing Then" заменяем на "if (!doc)"

8. Select Case => switch

9. Ключевое слово Call не надо.

ну и т.д. Начинайте!

P.S. 10. Оператор Path$ = "dev\po2.nsf" , содержащий обратный слэш можно преобразовать либо так c удвоением: path = 'dev\\po2.nsf'; либо так с собакой: path = @'dev\po2.nsf';