аттачи в письме

Тема в разделе "Lotus - Программирование", создана пользователем deeeman, 16 июл 2010.

  1. deeeman

    deeeman Well-Known Member

    Регистрация:
    4 дек 2007
    Сообщения:
    382
    Симпатии:
    0
    Привет всем!

    есть письмо в почтовой бд
    по кнопке из вида срабатывает печать писем в котором лежит .doc файлы
    нужно определять файлы которые лежат в письме и печатать если они все WORD
    есть письма в которых файлы прикреплены в поле "Body" а если письма файлы в которых прикреплены как аттач к доку (внизу письма квадратик)
    поэтому приходиться использовать метод doc.EmbeddedObjects для определения всех аттачей в документе., но на строке 2 выдается ошибка: Type mismatch. В документе я по всякому располагаю файли и все равно ошибка одинаковая.
    В чем проблема.

    Код (LotusScript):
    If doc.HasEmbedded Then
    Forall o In doc.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT) Then
    If Strright(Cstr(o.Name),".") = "doc" Or Strright(Cstr(o.Name),".") = "docx" Then
    'print
    Else
    Goto ff
    End If
    End If
    End Forall
    End If
    PS:
    если делать через notesRichTextItem.EmbeddedObjects то аттач ловиться, но упускается те фалы которые крепятся к письму не через поле "Body"

    Куда копать?
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    проверка if not isEmpty(doc.EmbeddedObjects) не поможет?

    Добавлено: ошибка на forall или дальше? Если дальше, в цикле заведите промежуточный объект для o.
     
  3. deeeman

    deeeman Well-Known Member

    Регистрация:
    4 дек 2007
    Сообщения:
    382
    Симпатии:
    0
    OKEN

    ошибка на второй строке.

    это условие зачем? if not isEmpty(doc.EmbeddedObjects)
    мне же надо как то пройтись по аттачам, а больше никак... этого вполне хватает: If doc.HasEmbedded Then
     
  4. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    я предпочел аттачи выяснять через @AttachNames и уже сразу выдергивать их из дока без обращений к РТПолям
     
  5. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    нету собаки AttachNames , Тоха, есть @AttachmentNames
    а в остальном - правильно говоришь)
     
  6. deeeman

    deeeman Well-Known Member

    Регистрация:
    4 дек 2007
    Сообщения:
    382
    Симпатии:
    0
    OKEN
    ToxaRat


    СПАСИБО за ИнДЕЙКУ! =))
     
  7. alik86

    alik86 Lotus team
    Lotus team

    Регистрация:
    20 ноя 2008
    Сообщения:
    465
    Симпатии:
    0
    Не должно на второй строке ругаться. Может гдето-то чё-то с объявлениями намутили...
    Пример из хелпа (в нём никто ни на что не ругается):
    Код (Text):
     Sub Initialize
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim doc As NotesDocument
    Set db = New NotesDatabase( "SanFrancisco", "hill.nsf" )
    Set view = db.GetView( "All Documents" )
    Set doc = view.GetLastDocument
    If doc.HasEmbedded Then
    Forall o In doc.EmbeddedObjects
    Messagebox( o.Name )
    End Forall
    Else
    Messagebox "No embedded objects found"
    End If
    End Sub
    Или может быть у вас "file attachments created in Notes Release 3"?
     
  8. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.074
    Симпатии:
    300
  9. Anonimous

    Anonimous Well-Known Member

    Регистрация:
    15 июн 2012
    Сообщения:
    120
    Симпатии:
    0
    О, спасибо, то я дергаю, дергаю аттачи через GetAttachment, называя их своими изначальными именами. А они, оказывается, с другими лежат
     
  10. NickProstoNick

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
    Лучше обращаться сразу к полям File
     
Загрузка...
Похожие Темы - аттачи письме
  1. deeeman
    Ответов:
    7
    Просмотров:
    3.383
  2. Kizarek86
    Ответов:
    17
    Просмотров:
    5.538
  3. Omh
    Ответов:
    32
    Просмотров:
    7.261
  4. deeeman
    Ответов:
    9
    Просмотров:
    4.472
  5. Gor
    Ответов:
    3
    Просмотров:
    3.158

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