Убрать атач из письма

xKlonx

Lotus team
10.09.2009
410
0
#1
Здраствуйте! У меня есть форма, в ней ричТексЛайт поле.Когда я присоединяю какой-нить аттач, а потом например отправляю линк на документ по почте то в письме отображается аттач, как сделать чтобы он там не отображался?
 

Omh

Lotus team
04.07.2007
2 210
1
#2
В каком документе аттач?
Конкретизируй слегка, плз.
 

xKlonx

Lotus team
10.09.2009
410
0
#3
Линк на этот же документ,где поле ричТекстЛайт.

Добавлено: Когда проверяю почту,вижу атач в письме, а нужно убрать.
 

hosm

* so what *
18.05.2009
2 442
6
#4
чего-то я туплю, ничего не понятно, откуда аттач взялся-то в итоге?
есть форма, по ней создается док1 с аттачем, допустим, сохраняется.
потом в док1 добавляется линк (, адресат) и он же отправляется по почте (вместе с формой?) или создается новый док2, содержащий линк на док1?
 

xKlonx

Lotus team
10.09.2009
410
0
#5
Атач мы сами добавляем.Я ж написал что на форме есть РичТекстПоле, добавляем атач в это поле.Сохраняем этот документ потом отправляем по почте какое-нить уведомление и линк на этот же документ,в итоги открыв письмо я вижу атач который прикрепил к доку)

Добавлено: Посмотреть вложение 2868
 

nvyush

Lotus team
22.04.2009
2 317
0
#6
xRomax
Если мне не изменяет память, нужно на форме поместить поле с аттачем в скрытую секцию.
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#8
Нужен код отправки линка.

Добавлено: Наверное, в методе Send первый параметр стоит True.
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#10
А остальной код? Может используется RenderToRTItem. Короче, гадать можно долго, а телепаты ушли. :welcome:
 

xKlonx

Lotus team
10.09.2009
410
0
#11
Код:
Sub mailNotifyGive 

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim Line1 As String
Dim card_number As String
Dim nam As NotesName


Set doc = note
Set nam = session.CreateName(doc.DocAuthor(0))
line1 = "fsdfsdf"
doc.Form = "Memo"
doc.SendTo = doc.Executor(0)
Set rtitem = New NotesRichTextItem( doc, "Body" )
Call rtitem.AddNewline(1)
Call rtitem.AppendText( line1 )
Call rtitem.AppendDocLink( doc,"" )

doc.Subject = "......"
Call doc.Send( False )
End Sub
 

xKlonx

Lotus team
10.09.2009
410
0
#14
Да,это так .В коде можно вообще всюду вместо doc поставить note просто лень было
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#15
Тогда в чем вопрос? :welcome:
Ты отсылаешь док с вложением и удивляешься откуда вложение?
Правим эти строчки и всё должно заработать.
Код:
Set doc = db.CreateDocument()

Call rtitem.AppendDocLink(note, "" )
Добавлено: На всякий случай перед Call doc.Send( False ) вставить Call rtitem.Update()
 

xKlonx

Lotus team
10.09.2009
410
0
#16
Вот до этого я уже сам допёр)))Спасибо всем.Medevic с меня +