Unable To Send Mail

[lmike]

Resume Next - для кого?

 

[nvyush]

Call memo.Send( False, False )

Эта строка должна давать ошибку несоответствия типов. Цитата из справки:

Syntax
Call notesDocument.Send( attachForm [, recipients ] )
Parameters
attachForm
Boolean. If True, the form is stored and sent along with the document. If False, it isn't. Do not attach a form that uses computed subforms.
recipients
String or array of strings. Optional. The recipients of the document. See below.

 

[1KIA]

спасибо всем, это наверное просто в чем-то запуталась

а как мне из двух АК выбирать?

Dim namesdb As NotesDatabase	
Set namesdb= session.getdatabase(db.server, "names.nsf") ' а мнеб выбирать или из names.nsf или namesnew.nsf

 

[hosm]

lmike Свой код могу пояснить - я оставила Resume Next с учетом того, что после 1-го Send, вызвавшего ошибку, могут быть какие-то инструкции, там не понятно по коду. А Exit Sub вынесла вверх, ибо обработчик в оригинальном коде вроде как в самом низу расположен и лишний раз при нормальном раскладе туда попадать не стоит.

 

[lmike]

ну его и надо заглушить (тока не по Next сомнения) после метки а не в конце
и поставить обработчик (после этого), шоб не гадать - где ошибка

 

[1KIA]

делаю так проверку есть ли пользователь в АК, если нет, то надо искать в АК 2

Set namesdb= session.getdatabase(db.server, "names.nsf")
If Not namesdb Is Nothing Then
Set namesdb= session.getdatabase(db.server, "namesnew.nsf")
End If

в Set persondoc = namesdb.getview("($User)").getdocumentbykey(memo.SendTo(0)) опять таже ошибка

 

[hosm]

If Not namesdb Is Nothing Then

Not зачем? смысл проверки

 

[hosm]

проверка должна быть такая, если надо проверять документ пользователя:
if persondoc is Nothing then ' пользователя нет в данной АК
Если надо поверять доступность какой-то АК, то тогда надо проверять namesdb

 

[1KIA]

AmbiguousError:
Dim persondoc As NotesDocument
Dim namesdb As NotesDatabase
Set namesdb= session.getdatabase(db.server, "names.nsf")
Set persondoc = namesdb.getview("($User)").getdocumentbykey(memo.SendTo(0)) 
If persondoc Is Nothing Then
Set namesdb= session.getdatabase(db.server, "namesnew.nsf")
End If	
memo.SendTo = persondoc.fullname(0) & "@" & persondoc.MailDomain(0)
Call memo.Send(False) '

что я делаю не так.? постоянно Set persondoc = namesdb.getview("($User)").getdocumentbykey(memo.SendTo(0)) ошибка

 

[lmike]

я вот думаю... - полный код будет? или мы так и будем гадать на кофейной гуще?
и опять - где обработчик ошибок - после метки, и сброс произошедшей ошибки?