Простой экспорт из Richtext-ового поля в Rtf файл

Тема в разделе "Работа с API", создана пользователем morpheus, 11 янв 2008.

  1. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Сам если чесно не проверял

    Код (Text):
    Declaretion
    Declare Function ExportRTF Lib "nxrtf" Alias "ExportRTF"(Byval sTempFile_
    As String, Byval flags As Long, hmod As Long, Byval altlibrary As String,_
    Byval sRTFFile As String) As Integer
    Declare Function MailGetMessageBodyComposite Lib "nnotes.dll"(Byval hNote_
    As Long, Byval ItemName As String,Byval FileName As String,_
    FileSize As Long)As Integer

    Sub Click(Source As Button)
    Dim Ws As New NotesUIWorkspace
    Dim Doc As NotesDocument
    Set Doc = Ws.CurrentDocument.Document
    Dim fileSize As Long
    Const file_name = "c:\\temp\\text.cd"
    Const font_file = "c:\\temp\\fonts.cd"
    Call MailGetMessageBodyComposite(Doc.handle , "Body", FILE_NAME$,fileSize)
    Call MailGetMessageBodyComposite(Doc.handle , "$Fonts", font_file$,fileSize)
    Call ExportRTF(file_name, 0, 0, "", "c:\\temp\\export.rtf")
    Messagebox "Текст экспортирован в файл c:\\temp\\export.rtf",64,"Экспорт"
    End Sub
    Источник
     
Загрузка...

Поделиться этой страницей