Доброго времени суток всем!!!
С почтой все хорошо, но в одном месте застряла!!! помогите пожалуйста!!!
есть одна загвоздка : когда обрабатываю действие - отправить копию (только заголовки или всю)-
в библиотеке Rules_ru-RU в процедуре ActionParser выполняется
...
'//Forward to
Case "B"
Let str_tmpAppendString = |"COPYTO| + ACT_sBehavior + STR_DELIMETERSEP + Replace(ACT_sString,|:|,|,|) + |")|
s_MAINFORMULA = s_MAINFORMULA + "@SetField(""$FilterActions"";" + "@Trim($FilterActions:" + str_tmpAppendString + ");@SetField(""DisplayCopyTo_Icon"";""1"")"
...
на лотус скрипте переписала следующим образом
(беру указанное имя, проверяю - если есть в локальной адресной книге - заменяю на e-mail, если нет, оставляю таким же,в конце в цикле отсылаю все пиьсмо по указанным адресам)
str0 = ACT_sString
Dim session As New NotesSession
Set db = session.GetDatabase("", "names.nsf", False)
Set view = db.GetView("My Contacts")
sStr = Split(str1, |,|)
Forall fio In sStr
arr = Split ( fio, " ")
resim = arr (Lbound(arr))
If Ubound(arr) = 1 Then
resfam = arr (1)
Elseif Ubound(arr) = 2 Then
resfam = arr (2)
End If
If (resim <> "") And (resfam <> "") Then
res = resfam + "," + " " + resim
Elseif (resim <> "") And (resfam = "") Then
res = resim
Set docview = view.GetDocumentByKey (res, True )
If docview Is Nothing Then
result = result + fio + ","
Else
value = docview.GetItemValue ("MailAddress")(0)
result = result + value + ","
End If
End Forall
result = Left(result, Len(result)-1)
result = Split(result,",")
Forall r In result
Call indoc.Send(True, r)
End Forall
в итоге у меня отсылается по куче копий ( по три(?) копии) каждого письма - не ясно почему?? и при попытке письмо отправить выходит сообщение - вопрос
"You have requested to sign this internet message, but your current ID does not contain or does not specify an Internet sertificate for signing. Select OK to send the message anyway".
жму ОК и только тогда письмо отправляется.
и как сделать рассылку только заголовков письма??
там же, в этой процедуре указаны варианты
....
'// Journal Message
Case "5"
....
'// move to database
Case "6"
....
'// don't deliver message
Case "8"
....
'// Change routing state
Case "9"
они, если смотреть через EZ , в tokactionlist не указываются, для чего они вообще тогда нужны??
SOS, подскажите кто что знает пожалуйста!)
