Работа с буфером обмена

[Maxim]

Добрый день!
Есть ли возможность поместить в буфер обмена произвольную строку из VIP?

[Nuts]

Я обычно создаю Vip'ом скрипт который потом запускаю. Выручает и работает всегда!
Получилось что-то типа Perl языка
(Одна программа создает скрипт для другой)
Вот пример:
Procedure SendMAilend;
{
afile.WriteLn(' With theMailItem');
afile.WriteLn(' .Recipients.Add "'+cureMAil +'"');
afile.WriteLn(' .BCC = memBCC');
inText := MAilSubject
inText_DosWin;
MAilSubject := inText;
afile.WriteLn(' .Subject = "'+MAilSubject+'"');
afile.WriteLn(' .Body = " "');
// показывать ли письмо на экране (oTypeMAil=1 одно письмо на всех, поэтому поэтому кажем на эране.)
if (oTypeMAil=1) then { afile.WriteLn(' .Display '); }
else afile.WriteLn(' .Save ');
afile.WriteLn(' End With');
afile.WriteLn('End Sub');
aFile.Close
ExecProgram('Start','c:\email.vbs',pfDontWait, ExitCode);
if ExitCode<>0 then { message('Ошибка запуска внешней программы: '+ string(ExitCode));}
}

Это по совету Galpro см galpro.itpark.ru

[Nuts]

А да вот еще вначале это:
Procedure SendMAilstart;
{
// описания использования объекта Outlook возможно найти здесь http://www.microsoft.ru/offext/develope ... px?id=56#e
// или здесь http://www.microsoft.ru/offext/develope ... aspx?id=55
DeleteFile('c:\email.vbs')
aFile.OpenFile('c:\email.vbs',stCreate);
aFile.Seek(aFile.GetSize);
afile.WriteLn('Command1_Click');
afile.WriteLn('Private Sub Command1_Click()');
afile.WriteLn('Dim theApp, theNameSpace, theMailItem, memBCC');
afile.WriteLn(' Set theApp = CreateObject("Outlook.Application")');
afile.WriteLn(' Set theNameSpace = theApp.GetNamespace("MAPI")');
afile.WriteLn(' Set theMailItem = theApp.CreateItem(olMailItem)');
afile.WriteLn(' memBCC = "" ');
}
Procedure SendMAilbcc;
{
afile.WriteLn(' memBCC = memBCC + "'+ cureMAil+';"');

}
Подробнее тут
http://galpro.itpark.ru/cgi-bin/windor. ... 12aeseafbb