Manage Learn to apply best practices and optimize your operations.

Email Suffix

If your company requires a suffix on outside email addresses users can get
frustrated having to type in @internet@gatewayname. One quick answer that only
works for one addressee is to put the following code behind a button.

As long as there's only one addressee in the SendTo field this code will work
fine.
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
address = uidoc.FieldGetText("SendTo")
suffix = "@internet@gatewayname"
Call uidoc.FieldSetText("SendTo", address & suffix)
uidoc.Refresh
End Sub

This was last published in November 2000

Dig Deeper on Domino Resources - Part 4

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close