Change Sender to another name on agent-HELP!

HCL Domino Domino Forum
1

I need to send a reminder message via an agent and have it appear as if someone else sent it to avoid responses coming back to me instead of the appointed person. The person who’s name should appear does not know how to design a form or even have Domino. I’m desperate and need help. This is probably simple but I’ve been all over all the documentation for weeks and this forum also and no luck so far. I don’t know LS so it has to be in formula language or if someone has a piece of LS code I can cut and paste that would be excellent if formula language can’t/won’t do what I want. What I have sends it with my name as the sender instead of the person I want: In the action of the agent:

@Command([FileSave]);

Field Principal := “Karen L. Lewis/EMPL/PA/Verizon@vznotes”;

Field ReplyTo := “Karen L. Lewis/EMPL/PA/Verizon@vznotes”;

Subject := "Reminder: "+action ;

message := “This is a reminder that this is still pending.”;

Link —> ";

@MailSend(vmo_contact ; “”;BlindCopyTo ; Subject; “”; message; [IncludeDoclink]);ReplyTo=(@Name([CN];“Karen L. Lewis/EMPL/PA/Verizon”));

@Command([FileSave]);

@Command([FileCloseWindow])

Any help would be greatly appreciated.

2

Subject: Change Sender to another name on agent-HELP!

If you search this forum you can find many code examples. Must be LS, formulas cannot mask the sender.

3

Subject: RE: Change Sender to another name on agent-HELP!

you can do it something like …

Sub sendmail

Dim s As New NotesSession

Dim db As NotesDatabase

Dim maildoc As NotesDocument

Dim rtitem As NotesRichTextItem



Set db =  s.CurrentDatabase

Set Maildoc = db.CreateDocument

Maildoc.Form = "Memo"

Maildoc.Principal = "Lotus notes id"

Maildoc.SendTo = "Lotus notes Id"

Maildoc.CopyTo = ""

Maildoc.BlindCopyTo = ""

Maildoc.Subject = "Subject"

Set rtitem = New notesrichtextitem(Maildoc , "Body")

Call rtitem.appendtext("Mail body content 1")

Call rtitem.AddNewLine( 2 )

Call rtitem.appendtext("Mail body content 1 ")

Call rtitem.AddTab(2)

Call rtitem.appendtext("Something")

' and so on

Call rtitem.appendtext("Click on the following link to view the document  ---->>>> ")

Call rtitem.AppendDocLink( doc, "")



Call Maildoc.Send(False)

End Sub