Program to Configure/Set ‘Reply to’ Field in Lotus Notes

Asked By Cynthia dela Cruz 0 points N/A Posted on - 01/20/2012

How can we set-up the "reply-to" without putting any address in the Notes databases? I plan to create a program that would do just that  through Visual Basic Applications (VBA)? I am using the method that does not require programming skills on the users part, as several people are going to use this code, and most of them do not know how to modify or read VB. What I want to do is to define the response to the email. I tried all variations I can think of and nothing seems to work (errors in different ways).

• Status: Open
• Question Views: 1708
• Answer Count: 1
• Vote Up 0 Vote Down

• Answer Accepted: No
• Question Category: Email Servers

Answered By Aristono Martin 20 points N/A #114117

Program to Configure/Set ‘Reply to’ Field in Lotus Notes

 

Hi Cynthia,

 

You can try 2 ways to resolve this issue. One way is to name and specify the database you will be using. Another way is to not specify the database especially when lots of different people are going to work on it. You need also choose if you want to build the document then use the send methodology or you can just copy the whole document to the mail.box. You will be using the items Principal, iNetFrom, DisplaySent, ErrorsTo, ReplyTO, CopyTo, BlindCopyTO, SendTo on you email codes. The Principal field is where you can specify the address which will show on the From Field.

 

Sample code is as below: Sub Email_Atrack_Report(SubjectLine As String, _ 

 

    AgentOracle As String, TMAddress As String)

 

    Dim NSession As Object

 

    Dim NUIWorkSpace As Object

 

    Dim NDoc As Object

 

    Dim NUIdoc As Object

 

    Set NSession = CreateObject("Notes.NotesSession")

 

    Set NUIWorkSpace = CreateObject("Notes.NotesUIWorkspace")

 

    Set NDoc = NUIWorkSpace.ComposeDocument("", "", "Memo")

 

    Set NUIdoc = NUIWorkSpace.CURRENTDOCUMENT

 

    With NUIdoc

 

        .FieldSetText "EnterSendTo", AgentOracle & "@Company.com"

 

        .FieldSetText "EnterCopyTo", TMAddress

 

        .FieldSetText "Subject", SubjectLine

 

        .FieldSetText "Body", "**PASTE Atrack HERE**"

 

        .GotoField ("Body")

 

        .FINDSTRING "**PASTE Atrack HERE**"

 

        Sheets("EmailOutput").Range("MessageBody").Copy

 

        .Paste

 

        .send

 

        .Close

 

    End With

 

    Set NUIdoc = Nothing

 

    Set NDoc = Nothing

 

    Set NUIWorkSpace = Nothing

 

    Set NSession = Nothing

 

End Sub

 

Aristono

About Aristono Martin

Questions
3

Answers
370

Best Answers
53

• Vote Up 0 Vote Down

• Posted on - 01/24/2012
• Question Category: Email Servers