Send Email using automate lotus script Agent (Is it possible to change the sender not a agent signer)

Question

Notes ID:

PCSAdmin LSBSAdmin

Question: I have an agent of automate sending mail. Can we edit sender become other person not the person who signed an Agent?

Case:

Currently, the agent is signed by [PCSAdmin]. So it will always send out by the person call "PCSAdmin"
I want to change to another account[LSBSAdmin] send out the email, can we edit the script of sender? or must signed the agent with [LSBSAdmin]?

Lotus script

    Dim maildoc As NotesDocument
    Dim body As NotesMIMEEntity, header As NotesMIMEHeader, stream As NotesStream
    Dim child As NotesMIMEEntity
    Set stream = s.Createstream()
    s.Convertmime = False
    Set maildoc = db.Createdocument()
    maildoc.Form = "Memo"
    Set body = maildoc.Createmimeentity
    Set header = body.Createheader("Subject")
    Call header.Setheaderval("NOTIFICATION Email")
    Set header = body.Createheader("To")        '   Send to/to
    Call header.Setheaderval("personname")
    Set header = body.Createheader("CopyTo")    '   Copy To/cc
    Call header.Setheaderval("Personname")
    Call stream.Writetext(|<html><body>|)

    Call stream.Writetext(|<b>Dear | + lsdoc.Getitemvalue("Name")(0) + |,</b><br>|)
    Call stream.Writetext(|<p>|+ "Attached herewith is the FORM for Application for Renewal of application <b>"+ sadoc.name(0)+|</b>.</p>|)     
    Call stream.Writetext(|<p>| + "Please complete the FORM and send by email to <b>"+MailAddress+"</b>" +_
             ", with the subject '<b>RENEWAL Application</b>'" + |</p>|)
    Call stream.Writetext(|<p> Thank you </p>|)
    Call stream.Writetext(|<p> </p>|)
    Call stream.Writetext(|Secretary<br>|)
    Call stream.Writetext(|Company<br>|)
    Call stream.Writetext(|<em>(No signature is required on this computer generated document)</em><br>|)
    Call stream.Writetext(|</body></html>|)
    Set child = body.Createchildentity()
    Call child.Setcontentfromtext(stream, "text/HTML;charset=iso-8859-1", ENC_NONE)
    Call stream.Close()
    Call stream.Truncate()
Set child = body.Createchildentity()
    Set header = child.Createheader("Content-Type")
    Call header.Setheaderval("multipart/mixed")
    Set header = child.Createheader("Content-Disposition")
    Call header.Setheaderval(|attachment; filename="| + xlfilename + |"|)
    Set header = child.Createheader("Content-ID")
    Call header.Setheaderval(|"| + xlfilename + |"|)
    Set stream = s.Createstream()
    If Not stream.Open(template, "binary") Then
        Print "Unable to open " + template
    End If
    If stream.Bytes = 0 Then
    Print template + " has no content"
    End If
    Call child.Setcontentfrombytes(stream, "application/vnd.ms-excel", ENC_IDENTITY_BINARY)
    Call stream.Close()
    Call stream.Truncate()
    Call maildoc.Send(False)
    Print "Email sent"  
    s.Convertmime = True

score 2 · Accepted Answer · answered Nov 23 '17 at 03:26

2

See my answers to this earlier question and to this question, too, and Knut's answer to yet another question.

The best method that is supported by IBM is to use the Principal field, but it doesn't completely hide the sender identity. If you need to do that, you will need to write the message directly to the mail.box file instead of using the NotesDocument.Send() method. There's a link to Karl-Henry Martinsson's script for this in Knut's answer.

Note that searching here before asking would have been a good idea.

answered Nov 23 '17 at 03:26

Richard Schwartz

14,463
2
23
41

i try it working. But got some question, based on krut's anwser, it will need to save the mail.box, is it common way of doing it? – Desmond Sim Nov 27 '17 at 06:34
Yes, it's quite common. I think that a lot of people probably use Karl-Henry's class (linked from Knut's answer), but in some cases I wouldn't determine the mailservername the way he does. It's the right way for code that is always executing in an agent that runs on the server, though, so it should be good for you. – Richard Schwartz Nov 27 '17 at 18:39

Send Email using automate lotus script Agent (Is it possible to change the sender not a agent signer)

1 Answers1