Z
zigfrid
Добрый день
Возникла необходимость пересылать почту лотусового клиента на внешний почтовый адрес (типа user@inbox.ru).
Посоветовали мне в форуме FAQ создать агента.
Создал я агента в почтовой базе пользователя на серваке. Подписал его ключём владельца почтовой базы. Дал пользователю права на серваке на запуск агентов. И проблема осталась нерешённой - не пересылаются письма наружу от локальных пользователей Лотус. Письма снаружи наружу пересылаются.
Ниже привожу содержимое агента:
Sub Initialize
Dim session As New NotesSession
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim item As NotesItem
Set session = New NotesSession
Set db = session.CurrentDatabase
Set doc = session.DocumentContext
Set item=doc.ReplaceItemValue("Sign","0")
Set item=doc.ReplaceItemValue("Encrypt","0")
Set item=doc.ReplaceItemValue("SendTo","user@inbox.ru")
Call doc.ComputeWithForm(True,False)
Call doc.Save(True,True)
Call doc.Send(True,True)
End Sub
Я так понимаю проблема опять же из-за подписи. Поэтому пробовал отсылать без подписи и с подписью, т.е. делал ещё без этих полей:
Set item=doc.ReplaceItemValue("Sign","0")
Set item=doc.ReplaceItemValue("Encrypt","0")
может, конечно, бред но уж не знаю чего ковырять.
Может чего-то посоветуете???
Возникла необходимость пересылать почту лотусового клиента на внешний почтовый адрес (типа user@inbox.ru).
Посоветовали мне в форуме FAQ создать агента.
Создал я агента в почтовой базе пользователя на серваке. Подписал его ключём владельца почтовой базы. Дал пользователю права на серваке на запуск агентов. И проблема осталась нерешённой - не пересылаются письма наружу от локальных пользователей Лотус. Письма снаружи наружу пересылаются.
Ниже привожу содержимое агента:
Sub Initialize
Dim session As New NotesSession
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim item As NotesItem
Set session = New NotesSession
Set db = session.CurrentDatabase
Set doc = session.DocumentContext
Set item=doc.ReplaceItemValue("Sign","0")
Set item=doc.ReplaceItemValue("Encrypt","0")
Set item=doc.ReplaceItemValue("SendTo","user@inbox.ru")
Call doc.ComputeWithForm(True,False)
Call doc.Save(True,True)
Call doc.Send(True,True)
End Sub
Я так понимаю проблема опять же из-за подписи. Поэтому пробовал отсылать без подписи и с подписью, т.е. делал ещё без этих полей:
Set item=doc.ReplaceItemValue("Sign","0")
Set item=doc.ReplaceItemValue("Encrypt","0")
может, конечно, бред но уж не знаю чего ковырять.
Может чего-то посоветуете???