Manage Learn to apply best practices and optimize your operations.

Easy Email From "Anyone"

an easy way to send an email from a a third party
Sub Click(Source As Button)

Dim session As New NotesSession
Dim db As NotesDatabase
Dim db_box As New NotesDatabase ("Your Server Here","mail.BOX")
Dim doc As NotesDocument
Dim maildoc As NotesDocument
Dim bodyString As String


sender = Inputbox$("Who would you like to send this message as?","Send
As","")
subjecttxt = Inputbox$("Type a subject for this message","Subject","")
bodytxt = Inputbox$("Type your message in here","Message","")
senditto = Inputbox$("Who would you like to send this message to","Sent To
Who","")

Set maildoc=New NotesDocument(db_box)
maildoc.form="Memo"
maildoc.from=sender
maildoc.Subject=subjecttxt
maildoc.Body=bodytxt
maildoc.SendTo=senditto
maildoc.recipients= senditto
Call maildoc.Save(False, False)


End Sub

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