LISTING 1: .NET CODE TO CALL NEW ASSEMBLY

DotNetSMTP.DotNetSMTP smtpclient = new DotNetSMTP.DotNetSMTP();
smtpclient.SenderName = "your name";
smtpclient.SenderEmail = "your email address";
smtpclient.SmtpServer = "your email server";
smtpclient.RecipientEmail = "your email address";
smtpclient.MessageText = "This is a test, this is only a test.";
smtpclient.Subject = "Dot Net via COM is cool";
smtpclient.sendMail();

LISTING 2 - POWERBUILDER CODE TO CALL NEW ASSEMBLY

integer		li_rc
oleobject	loo_smtp
loo_smtp = CREATE oleobject
li_rc = loo_smtp.ConnectToNewObject ( "DotNetSMTP.DotNetSMTP" )
loo_smtp.SenderName = "your name"
loo_smtp.SenderEmail = "your email address"
loo_smtp.RecipientEmail = "your email address"
loo_smtp.SmtpServer = "your email server"
loo_smtp.MessageText = "This is a test, this is only a test."
loo_smtp.Subject = "Dot Net via COM is cool"
loo_smtp.sendMail()
Destroy loo_smtp

LISTING 3 - CODE FOR DOTNETSMTP CLASS

private String senderName;

public String SenderName
{
    get { return senderName; }
    set { senderName = value; }
}
private String senderEmail;
public String SenderEmail
{
    get { return senderEmail; }
    set { senderEmail = value; }
}
private String smtpServer;
public String SmtpServer
{
    get { return smtpServer; }
    set { smtpServer = value; }
}
private String recipientEmail;
public String RecipientEmail
{
    get { return recipientEmail; }
    set { recipientEmail = value; }
}
private String subject;
public String Subject
{
    get { return subject; }
    set { subject = value; }
}
private String ccEmail = "";
public String CcEmail
{
    get { return ccEmail; }
    set { ccEmail = value; }
}
private String bccEmail = "";
public String BccEmail
{
    get { return bccEmail; }
    set { bccEmail = value; }
}
private bool isHTML = false;
public bool IsHTML
{
    get { return isHTML; }
    set { isHTML = value; }
}
private String messageText;
public String MessageText
{
    get { return messageText; }
    set { messageText = value; }
}
public void sendMail()
{
    SmtpClient smtpClient = new SmtpClient();
    MailMessage message = new MailMessage();

    MailAddress fromAddress = new MailAddress(senderEmail, senderName);
    smtpClient.Host = smtpServer;
    smtpClient.Port = 25;
    message.From = fromAddress;
    message.To.Add(recipientEmail);
    message.Subject = subject;
    if (!ccEmail.Equals(""))
    {
			message.CC.Add(ccEmail);
    }
    if (!bccEmail.Equals(""))
    {
			message.Bcc.Add(ccEmail);
    }
    message.IsBodyHtml = isHTML;
    message.Body = messageText;
    smtpClient.Send(message);

}