How to use alias as "sent from" information

I have a database which use a Lotus Script to share information when we register customer complaints and do followup actions on these complaints.

This script works out very well,but each time the information is distributed it is my name that is written in the “sent from” field. I want to replace my name with “Quality system” in these cases. In this way it will be easier to separate these messages from the other mails I creates.

Do anyone have some hints for me?

Parts of the script I use is like this:

Set db = puidoc.Document.Parentdatabase

Set message = db.CreateDocument

Set rtitem = New Notesrichtextitem(message,“doclnk”)

valg$= uidoc.fieldgettext(“valg1”)

If valg$ = “SEND INFO” Then

Call rtitem.appenddoclink(doc,Cstr(n))

With message

.Form = frm

.~_ViewIcon = Visual

.SendTo = usr

.Subject = sbj

Call .Send(True)

End With

Subject: How to use alias as “sent from” information

Hello

try adding

.Principal=“Quality System”

before you call send…

Subject: And make sure you have a Mail in database w/ that name.