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

@dyyymom · Регистрация: 30.11.2007

Author24 — интернет-сервис помощи студентам

Привет всем!

есть письмо в почтовой бд
по кнопке из вида срабатывает печать писем в котором лежит .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"

Куда копать?

@hosm · 15.07.2010, 15:02

проверка if not isEmpty(doc.EmbeddedObjects) не поможет?

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

@dyyymom · 15.07.2010, 15:07

OKEN

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

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

@ToxoRot · 15.07.2010, 15:41

я предпочел аттачи выяснять через @AttachNames и уже сразу выдергивать их из дока без обращений к РТПолям

@hosm · 15.07.2010, 15:44

нету собаки AttachNames , Тоха, есть @AttachmentNames
а в остальном - правильно говоришь)

@dyyymom · 15.07.2010, 15:49

OKEN
ToxaRat

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

@otyk86 · 15.07.2010, 15:52

Не должно на второй строке ругаться. Может гдето-то чё-то с объявлениями намутили...
Пример из хелпа (в нём никто ни на что не ругается):

Код

 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"?

@tmyky · 15.07.2010, 17:20

ещё бывают майм... обсуждение велось , Daker предложил вариант..., там и код (подпраленный)

@omomymous · 01.12.2013, 15:43

О, спасибо, то я дергаю, дергаю аттачи через GetAttachment, называя их своими изначальными именами. А они, оказывается, с другими лежат

@myskProstomysk · 01.12.2013, 16:22

Лучше обращаться сразу к полям File

@hosm 0 / 0 / 0 Регистрация: 15.05.2009 Сообщений: 1,454
	15.07.2010, 15:02	2
	проверка if not isEmpty(doc.EmbeddedObjects) не поможет? Добавлено: ошибка на forall или дальше? Если дальше, в цикле заведите промежуточный объект для o. 0

@dyyymom 0 / 0 / 0 Регистрация: 30.11.2007 Сообщений: 410
	15.07.2010, 15:07	3
	OKEN ошибка на второй строке. это условие зачем? if not isEmpty(doc.EmbeddedObjects) мне же надо как то пройтись по аттачам, а больше никак... этого вполне хватает: If doc.HasEmbedded Then 0

@ToxoRot 0 / 0 / 0 Регистрация: 04.11.2007 Сообщений: 3,019
	15.07.2010, 15:41	4
	я предпочел аттачи выяснять через @AttachNames и уже сразу выдергивать их из дока без обращений к РТПолям 0

@hosm 0 / 0 / 0 Регистрация: 15.05.2009 Сообщений: 1,454
	15.07.2010, 15:44	5
	нету собаки AttachNames , Тоха, есть @AttachmentNames а в остальном - правильно говоришь) 0

@dyyymom 0 / 0 / 0 Регистрация: 30.11.2007 Сообщений: 410
	15.07.2010, 15:49	6
	OKEN ToxaRat СПАСИБО за ИнДЕЙКУ! =)) 0

@otyk86 0 / 0 / 0 Регистрация: 17.12.2008 Сообщений: 420
	15.07.2010, 15:52	7
	Не должно на второй строке ругаться. Может гдето-то чё-то с объявлениями намутили... Пример из хелпа (в нём никто ни на что не ругается): Код 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"? 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	15.07.2010, 17:20	8
	ещё бывают майм... обсуждение велось , Daker предложил вариант..., там и код (подпраленный) 0

@omomymous 0 / 0 / 0 Регистрация: 11.06.2012 Сообщений: 118
	01.12.2013, 15:43	9
	О, спасибо, то я дергаю, дергаю аттачи через GetAttachment, называя их своими изначальными именами. А они, оказывается, с другими лежат 0

@myskProstomysk 0 / 0 / 0 Регистрация: 18.08.2008 Сообщений: 1,698
	01.12.2013, 16:22	10
	Лучше обращаться сразу к полям File 0

Опции темы