Send Lotus Mail From Script

Hi Guys,

Im want to be able to send an email from a script via Lotus Notes.

Im trying this code which i found at http://blogs.conchango.com/jamiethomson/archive/2006/07/03/SSIS_3A00_-Sending-SMTP-mail-from-the-Script-Task.aspx


Imports System
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.Net.Mail
Imports System.Net


Public Class ScriptMain
Public Sub Main()
Dim myHtmlMessage As MailMessage
Dim mySmtpClient As SmtpClient

myHtmlMessage=New MailMessage("me@mail.com", "me@mail.com")
mySmtpClient = New SmtpClient("192.168.3.1")
mySmtpClient.Credentials = New System.Net.NetworkCredential ("<username>", "<password>")
mySmtpClient.Send(myHtmlMessage)
Dts.TaskResult = Dts.Results.Success
End Sub
End Class


First the task stayed Yellow and didnt changed, not it gives me the following error:
DTS Script Task has encounter an exception in user code.
Transaction failed. The server response was: Relay rejected for policy reasons.

Could someone help me there or suggest another way for sending Lotus Notes email from my SSIS Package?

Thanx