• Home
 · 
• Internet/HTML
 · 
• This code will send Email using Lotus Notes and save a copy to your Sent folder. I wrote this for a

This code will send Email using Lotus Notes and save a copy to your Sent folder. I wrote this for a

This code will send Email using Lotus Notes and save a copy to your Sent folder. I wrote this for a recent project and it works great. Accepts

Rate This code will send Email using Lotus Notes and save a copy to your Sent folder. I wrote this for a

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

To check for pass fail I am returning a Long. Either a 1 for pass or a 0 for failure so the End User knows whether the Send was successful or not. Could also return Boolean(True/False). Below is the front end code to describe how I referenced the function and passed the parameters. Enjoy

Create a Project Named Mail
Add a Class Module Named CMail and paste function below.
Add a form with a Command button and 5 text boxes and paste the code on the bottom.

Public Function SendMail(ByVal strTo As String, _
                       ByVal strFrom As String, _
                       ByVal strCC As String, _
                       ByVal strSubject As String, _
                       ByVal strBody As String) As Long
                                                            
'Basic Error Handling
On Error GoTo EmailError

    Dim s As Object
    Dim db As Object
    Dim doc As Object
        
's and db declared in general as object
Set s = CreateObject("Notes.Notessession")  'create session
Set db = s.GetDatabase("", "")   'not yet named
Call db.OPENMAIL    'set database to default 
Set doc = db.CreateDocument  ' create a mail document
'Use parameters to build Email message
Call doc.ReplaceItemValue("SendTo", strTo)
Call doc.ReplaceItemValue("From", strFrom)
Call doc.ReplaceItemValue("CopyTo", strCC)
Call doc.ReplaceItemValue("Subject", strSubject)
Call doc.ReplaceItemValue("Body", strBody)
     doc.SaveMessageOnSend = True      'Save in Sent Folder
Call doc.Send(False)                   'send message
Set s = Nothing                        'Kill objects to free memory
Set db = Nothing
Set doc = Nothing

EmailExit:
  'Success
  SendMail = 1
  Exit Function
  
EmailError:
'Failed
SendMail = 0
   App.StartLogging App.Path & "\CMAC_Email.log", vbLogToFile
   App.LogEvent Now & Err.Description, vbLogEventTypeError
Resume EmailExit

End Function

'=============================================================================
'=============================================================================

'On Form

Private Sub cmdSend_Click

Dim oEmail as New Mail.CMail
Dim lngReturn as Long

lngReturn = oEmail.SendMail(text1.Text, _
                          text2.Text, _
                          text3.Text, _
                          text4.Text, _
                          text5.Text)
                      
If lngReturn = 1 Then   'Email successful
    MsgBox "Fund updated and completed!" & vbCrLf & _
    "Check Lotus for successful delivery!", vbOKOnly+vbSystemModal, & _
    "Updated and Completed"
   Exit Sub
Else 'Email failed
   MsgBox "Failed" & vbCrLf & Err.Description, vbOKOnly, "Failure occurred!"
   Exit Sub
End If

End Sub