ANSMTP SMTP COMPONENT SDK DOCUMENTATION

SSL_init Method

Initializes security library for SMTP SSL/TLS connection.

[Syntax]
C++: HRESULT SSL_init( long* pVal )
Visual Basic: SSL_init( ) As Long
C#: long SSL_init()

Return Values

This method returns zero if succeeded, otherwise return valus is non-zero.

Remarks

ANSMTP uses SSL/TLS connection to send email after this method is invoked. To cancel SSL/TLS mode, you can invoke SSL_uninit method.

This method requires IE 5.0 or later in Windows95 or SP4 or later in Windows NT4.0.

Usage Example:

[Visual Baisc]

Private Sub SendEmail()
  Dim oSmtp As AOSMTPLib.Mail
  Set oSmtp = New AOSMTPLib.Mail

  If oSmtp.SSL_init() <> 0 Then
    MsgBox "Initialize ansslplus failed"
    Exit Sub
  End If

  oSmtp.ServerAddr = "mail.adminsystem.net"
  oSmtp.FromAddr = "test@adminsystem.net"
  oSmtp.AddRecipient "Support Team", "support@adminsystem.net", 0

  oSmtp.Subject = "Test"
  oSmtp.BodyText = "Hello, this is a test...."
 
  If oSmtp.SendMail() = 0 Then
    MsgBox "Message delivered!"
  Else
    MsgBox oSmtp.GetLastErrDescription()
  End If
  
  oSmtp.SSL_uninit
End Sub

[C#]

private void SendEmail()
{
  AOSMTPLib.MailClass oSmtp = new AOSMTPLib.MailClass();
  
  if( oSmtp.SSL_init() != 0 )
  {
    Console.WriteLine("Initialize ansslplus failed");
    return;
  }
  
  oSmtp.ServerAddr = "mail.adminsystem.net";
  oSmtp.FromAddr = "test@adminsystem.net";
  oSmtp.AddRecipient( "Support Team", "support@adminsystem.net", 0 );

  oSmtp.Subject = "Test";
  oSmtp.BodyText = "Hello, this is a test....";
  
  if( oSmtp.SendMail() == 0 )
    Console.WriteLine( "Message delivered!" );
  else
    Console.WriteLine( oSmtp.GetLastErrDescription());
    
  oSmtp.SSL_uninit();
}

[JScript/WSH]

function SendEmail()
{
  var oSmtp = new ActiveXObject("AOSMTP.Mail");
  
  if( oSmtp.SSL_init() != 0 )
  {
    WScript.Echo( "Initialize ansslplus failed" );
    return;
  }
  
  oSmtp.ServerAddr = "mail.adminsystem.net";
  oSmtp.FromAddr = "test@adminsystem.net";
  oSmtp.AddRecipient( "Support Team", "support@adminsystem.net", 0 );

  oSmtp.Subject = "Test";
  oSmtp.BodyText = "Hello, this is a test....";
  
  if( oSmtp.SendMail() == 0 )
    WScript.Echo( "Message delivered!" );
  else
    WScript.Echo( oSmtp.GetLastErrDescription());
    
  oSmtp.SSL_uninit();
}

[Visual C++]

#include "stdafx.h"
#include <comdef.h>
#include <iostream>
#import "C:\Program Files\AdminSystem.NET\ANSMTP\AOSMTP.dll" \
                                  rename_namespace("AOSMTPLib")
using namespace AOSMTPLib;
using namespace std;

void SendEmail()
{
  ::CoInitialize( NULL );
  IMailPtr oSmtp = NULL;
  oSmtp.CreateInstance("AOSMTP.Mail");

  if( oSmtp->SSL_init() != 0 )
  {
    cout << "Initialize ansslplus failed" << endl;
    return;
  }
  oSmtp->ServerAddr = _bstr_t( "mail.adminsystem.net" );
  oSmtp->FromAddr = _bstr_t( "test@adminsystem.net" );
  oSmtp->AddRecipient( _bstr_t("Support Team"), 
                          _bstr_t("support@adminsystem.net"), 0 );

  oSmtp->Subject = _bstr_t("Test");
  oSmtp->BodyText = _bstr_t("Hello, this is a test....");
  
  if( oSmtp->SendMail() == 0 )
    cout << "Message delivered!" << endl;
  else
    cout << (const char*)(oSmtp->GetLastErrDescription()) << endl;
    
  oSmtp->SSL_uninit();
}