@mailsend-Как сделать в нём массовую рассылку

[Sandro]

И снова не умный вопрос))) Есть задача разослать ссылку на документ нескольким адресатам, ну я сделал кнопочку с выбором пользователей из базы, которая добавляет почтовый адрес (через запятую, а ля родная почта), потом делаю @MailSend(поле со списком...
Короче @MailSend пытается адрес воспринять как один (((

В мануале писшут

sendTo
Text or text list. The primary recipient(s) of the mail memo.

Не могу догнать , как этот text list организовать

 

[Klido]

список построй через ":" должны быть элементы

 

[Sandro]

Через ":" не помогло :-( , сделал стандартную выборку через свойства поля name

 

[nvyush]

Через ":" не помогло :-( , сделал стандартную выборку через свойства поля name

Если вбивать адреса "ручками", то в свойствах у поля должно быть на первой заклдке включено "Allow multiple values", на третьей выбраны допустимые разделители (зпт, тчк с зпт и т.п.).
Если загонять значения "собаками", то через двоеточие.
Если скриптом - то сперва генерить массив или юзать функции типа ArrayAppend, Split. Лотус-имена д.б. в канонической форме иначе возможны траблы.

 

[xKlonx]

Sandro

adrress1:="адрес1";
addres2:="адрес2";
@MailSend(adrress1:addres2;"";"";"Новое мероприятие")

Попробуй так

Добавлено: Sandro

				Dim w As New NotesUIWorkspace	 
Dim uidoc As NotesUIDocument		
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim Line1 As String	
Dim address(1 To 50) As String	

address(1) = "адрес1"
address(2) = "адрес2"

line1 = "Нажмите на иконку чтобы открыть документ --> "
Set db = session.CurrentDatabase
Set uidoc = w.CurrentDocument	
Set doc = uidoc.Document
doc.Form = "Memo"
doc.SendTo = address
Set rtitem = New NotesRichTextItem( doc, "Body" )
Call rtitem.AddNewline(1)
Call rtitem.AppendText( line1 )
Call rtitem.AppendDocLink( doc,"" )
doc.Subject = "Новое мероприятие "
Call doc.Send( False )
doc.Save True, True
uidoc.Close

Так на скрипте,работает проверял)

 

[xKlonx]

Sandro
Получилось?
Есть ещё вариант,тоже проверял работает:
Создаёте поле типа DialogList, в свойствах поставте галочку Allow multiple values, на второй табе указывайте Use Address dialog for choices.
На кнопку или событие вешаете код:

@MailSend(address;"";"";"Новое мероприятие";"")

Где address - наше поле.Вот и всё

 

[Sandro]

Короче не получалось у меня , по причине того что док отсылаемый создаётся через dialogbox, добавил твой код для отправки почты, всё нормально, но при открытии 3-раза выдаёт ошибку "Не удаётся найти форму :", потом открывается и всё нормально, с какого перепугу он форму f_plan то требует?

Sub Initialize
Dim WS As New NotesUIWorkspace

Set ND= ws.CurrentDocument.Document
Set doc = New notesdocument(ws.currentdatabase.database)
Call doc.MakeResponse(ND) 
Continue=ws.DialogBox("f_plan",,,False,False,False,False,"Введите данные",doc,True,False,True)
If Not Continue Then
Call doc.RemovePermanently(True)
Exit Sub 
End If

doc.form="f_plan" 
Call doc.ComputeWithForm(True,False)
Call doc.Save(True,True,True)

Dim rtitem As NotesRichTextItem
Dim Line1 As String	
Dim address(1 To 50) As String	
address(1) = "- - -"
REM	address(2) = ""
line1 = "Нажмите на иконку чтобы открыть документ --> "
doc.SendTo = address
Set rtitem = New NotesRichTextItem( doc, "Body" )
Call rtitem.AddNewline(1)
Call rtitem.AppendText( line1 )
Call rtitem.AppendDocLink( doc,"" )
doc.Subject = "Новое мероприятие "
Call doc.Send( False )

Messagebox "Отработало",, "Success"


End Sub

 

[nvyush]

Sandro
Почитайте в справке про NotesUIWorkspace.DialogBox.
А ругается, видимо, на строчке

Continue=ws.DialogBox("f_plan",,,False,False,False,False,"Введите данные",doc,True,False,True)

Форма "f_plan" есть в базе, откуда идёт отправка или нет?

 

[xKlonx]

Sandro
Посмотри под дебагом на чём вылетает

 

[Sandro]

Sandro
Посмотри под дебагом на чём вылетает

Так оно и не вылетает, ошибка при открытии письма в клиенте

 

[hosm]

В почту шлем? Тогда "Memo", например.

	call doc.ReplaceItemvalue("Form", "Memo")
Call doc.Send( False )

Добавлено: Формы f_plan нет в почтовой БД Я угадала?

 

[xKlonx]

OKEN

В почту шлем? Тогда "Memo", например.

здесь doc.form="f_plan" замени на doc.form="memo"

Добавлено: Sandro
Ну как?

 

[Sandro]

XRomaX респект , человек, ни одной догадки они 100% ответы

 

[xKlonx]

Sandro

XRomaX респект , человек, ни одной догадки они 100% ответы

Здесь нужно OKEN благодарить,я сразу и сам не заметил,думаю она + заработала?
Sandro
А вы не бойтесь спрашивайте

 

[Sandro]

OKEN еспешили, спасибо

Добавлено: Народ, может подскажите ещё , как из поля (Name) с множественным значением получить массив ?

 

[Klido]

оно и есть массив только в понимании список дальше - смотря что делать с ним надо....

 

[xKlonx]

Конкретнее опишите что хотите сделать

 

[nvyush]

Добавлено: Народ, может подскажите ещё , как из поля (Name) с множественным значением получить массив ?

В принципе любое поле простого типа (текст, число, дата) и есть одномерный массив. Если флаг многозначности сброшен, то с одним значением. При работе с Names полями надо иметь ввиду, что получаем массив строк с именами в канонической форме, для перевода в другие формы нужно пользовать NotesName или собак+evaluate.

 

[Omh]

нужно пользовать NotesName или собак+evaluate

На скрипте лучше всё-таки NotesName

 

[nvyush]

На скрипте лучше всё-таки NotesName

:ya_za: но...

dim v as Variant
v = Evaluate("@Name([CN]; @GetField({MyNames}))")

даёт сразу список имён в общей (Common Name) форме. С NotesName только циклом...