Sub MimeMailer(SendTo As String, Subject As String, url As String,hreftext As String,requestor As String)
'Declare Variables
Dim s As New NotesSession
Dim db As NotesDatabase
Dim body As NotesMIMEEntity
Dim stream As NotesStream
Dim mailReplyTo As NotesName
Dim host As String
Dim tmpURL As String
Dim tmpHost As NotesName
Set db = s.CurrentDatabase
Set tmpHost = New NotesName(s.CommonUserName )
Set mailReplyTo = New NotesName(requestor)
'Determine where Script is running & Setup URL Accordingly.
'Capture the server name and filepath for use in URLs
Dim ServerName As New NotesName( s.CommonUserName )
host = "http://" + ServerName.Common & ".jbhunt.com"
tmpURL = |Click Here| + hreftext + |
|
'End Server & URL Setup.
s.ConvertMIME = False ' Do not convert MIME to rich text
Set stream = s.CreateStream
'Begin creating the message doc to send
Dim message As New NotesDocument (db)
message.Form="memo"
Set body = message.CreateMIMEEntity
'Basic profile of email
message.Subject = Subject
message.SendTo = SendTo
message.RecNoOutOfOffice = "1" 'Set it so out of office agents don't reply to the message
' Open the HTML (Title doesn't matter since it doesn't appear anywhere)
Call stream.WriteText ("
Here is the MIME content! ' Notes: '
Visit SearchDomino.com for more exciting tips or visit }) Call stream.WriteText(tmpURL) 'Imation for the coolest data storage products around! 'Call stream.WriteText({ |