L
Lesik
Доброго времени суток,
помогите плиз.... появилась задачка прикреплять файл со сканнера в виде аттача. Покопал инет и нашел примеры кнопок здесь
С сохранением в папку все работает, а вот в существующее поле "Attach"(RichText) прикрепляться не хочет(
Sub Click(Source As Button)
' пишем картинки на диск c:\temp
' имена в список AttachPictureName
'количество в поле AttachPictureNum
Dim uiws As New NotesUIWorkSpace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim agent As NotesAgent
Dim item As NotesItem
Dim click As Variant
Dim resulta As Integer
Dim FileName As String
Dim FilePath As String
Dim numPicture As String
Dim FileImportFormat As String
Dim JPEGquality As Integer
Dim devPixelType As Long
Dim rt As NotesRichTextItem
Dim obj As NotesEmbeddedObject
Set uidoc = uiws.currentdocument
Set doc = uidoc.Document
Set rt = doc.GetFirstItem ("Attach")
If TWAIN_IsAvailable <>1 Then
Messagebox("Драйвер TWAIN не установлен на вашем компьютере!")
Exit Sub
End If
TWAIN_FreeNative (hDib)
If TWAIN_OpenDefaultSource() <> 0 Then
Call TWAIN_SetHideUI(1)
Call TWAIN_SetCurrentUnits(TWUN_INCHES)
Call TWAIN_SetCurrentPixelType(TWPT_GRAY)
Call TWAIN_SetCurrentResolution(150)
Call TWAIN_SetIndicators(1)
Call TWAIN_SetCompression(1)
Call TWAIN_SetImageLayout(0,0,200,200)
hDib = TWAIN_AcquireNative(hwnd,devPixelType)
If hDib <> 0 Then
Else
Msgbox "Изображение не получилось! Ошибка."
Exit Sub
End If
End If
If hDib <> 0 Then
numPicture = doc.GetItemValue("AttachPictureNum")(0)
If numPicture<>"" Then
numPicture=Cstr(Cint(numPicture)+1)
Else
numPicture="1"
End If
FilePath = "c:\temp\"
FileName = FilePath+"image-"+numPicture+".jpg"
Print FileName
FileImportFormat = "JPEG Image"
Call TWAIN_SetSaveFormat(4)
Call TWAIN_SetJpegQuality(50)
If TWAIN_WriteNativeToFilename(hDib, FileName) <> 0 Then
Msgbox "Изображение не записано в файл!"
Else
Set item = doc.ReplaceItemValue("AttachPictureName",FileName)
Call doc.ReplaceItemValue("AttachPictureNum",numPicture)
Set obj= rt.EmbedObject(EMBED_ATTACHMENT,"",FileName)
End If
TWAIN_FreeNative (hDib)
End If
End Sub
На строке "Set obj= rt.EmbedObject(EMBED_ATTACHMENT,"",FileName)" вылетает "Object variable not set" никак не могу понять где я не определил объект.
помогите плиз.... появилась задачка прикреплять файл со сканнера в виде аттача. Покопал инет и нашел примеры кнопок здесь
Ссылка скрыта от гостей
С сохранением в папку все работает, а вот в существующее поле "Attach"(RichText) прикрепляться не хочет(
Sub Click(Source As Button)
' пишем картинки на диск c:\temp
' имена в список AttachPictureName
'количество в поле AttachPictureNum
Dim uiws As New NotesUIWorkSpace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim agent As NotesAgent
Dim item As NotesItem
Dim click As Variant
Dim resulta As Integer
Dim FileName As String
Dim FilePath As String
Dim numPicture As String
Dim FileImportFormat As String
Dim JPEGquality As Integer
Dim devPixelType As Long
Dim rt As NotesRichTextItem
Dim obj As NotesEmbeddedObject
Set uidoc = uiws.currentdocument
Set doc = uidoc.Document
Set rt = doc.GetFirstItem ("Attach")
If TWAIN_IsAvailable <>1 Then
Messagebox("Драйвер TWAIN не установлен на вашем компьютере!")
Exit Sub
End If
TWAIN_FreeNative (hDib)
If TWAIN_OpenDefaultSource() <> 0 Then
Call TWAIN_SetHideUI(1)
Call TWAIN_SetCurrentUnits(TWUN_INCHES)
Call TWAIN_SetCurrentPixelType(TWPT_GRAY)
Call TWAIN_SetCurrentResolution(150)
Call TWAIN_SetIndicators(1)
Call TWAIN_SetCompression(1)
Call TWAIN_SetImageLayout(0,0,200,200)
hDib = TWAIN_AcquireNative(hwnd,devPixelType)
If hDib <> 0 Then
Else
Msgbox "Изображение не получилось! Ошибка."
Exit Sub
End If
End If
If hDib <> 0 Then
numPicture = doc.GetItemValue("AttachPictureNum")(0)
If numPicture<>"" Then
numPicture=Cstr(Cint(numPicture)+1)
Else
numPicture="1"
End If
FilePath = "c:\temp\"
FileName = FilePath+"image-"+numPicture+".jpg"
Print FileName
FileImportFormat = "JPEG Image"
Call TWAIN_SetSaveFormat(4)
Call TWAIN_SetJpegQuality(50)
If TWAIN_WriteNativeToFilename(hDib, FileName) <> 0 Then
Msgbox "Изображение не записано в файл!"
Else
Set item = doc.ReplaceItemValue("AttachPictureName",FileName)
Call doc.ReplaceItemValue("AttachPictureNum",numPicture)
Set obj= rt.EmbedObject(EMBED_ATTACHMENT,"",FileName)
End If
TWAIN_FreeNative (hDib)
End If
End Sub
На строке "Set obj= rt.EmbedObject(EMBED_ATTACHMENT,"",FileName)" вылетает "Object variable not set" никак не могу понять где я не определил объект.