подменить отправителя

deeeman

Well-Known Member
04.12.2007
383
0
#1
Привет!

Как можно подменить отправителя письма, чтобы в итоге автор письма не являлся отправителем.

Т е я создаю письмо нажимаю отправить
а приходит получателю не от меня а от левого сотрудника.
 

xKlonx

Well-Known Member
Lotus team
10.09.2009
410
0
31
Украина, Киев
#2
Код:
Dim Principal As Variant
Set db = session.CurrentDatabase
Set doc = New NotesDocument(db)
doc.Form = "Memo"
Principal = "Твое имя"
Call doc.Replaceitemvalue("Principal", Principal)
doc.SendTo = "....."
Call doc.Send( False )
попробуйте так,может покатит