tSMTPUsing

'tSMTPUsing - begin
Public Const smNone = &H0 'SMTP server does not require authentication. My Server Requires Authentication is not checked for SMTP server
Public Const smNameSPA = &H1 'Logon to SMTP using another account name and password + SPA (secure password authentication).  SMTP server: My Server Requires Authentication is checked,  Log on using Secure password authentication is checked, Account name is specified
Public Const smSameAsIncomming = &H2 'Use same settings as my incomming mail server
Public Const smName = &H3 'Logon to SMTP using another account name and password. SMTP server: My Server Requires Authentication is checked,  Account name is specified
'tSMTPUsing - end

'tSMTPUsing - begin
Public Const smNone As Long = &H0 'SMTP server does not require authentication. My Server Requires Authentication is not checked for SMTP server
Public Const smNameSPA As Long = &H1 'Logon to SMTP using another account name and password + SPA (secure password authentication).  SMTP server: My Server Requires Authentication is checked,  Log on using Secure password authentication is checked, Account name is specified
Public Const smSameAsIncomming As Long = &H2 'Use same settings as my incomming mail server
Public Const smName As Long = &H3 'Logon to SMTP using another account name and password. SMTP server: My Server Requires Authentication is checked,  Account name is specified
'tSMTPUsing - end

Public Enum tSMTPUsing
  smNone = &H0 'SMTP server does not require authentication. My Server Requires Authentication is not checked for SMTP server
  smNameSPA = &H1 'Logon to SMTP using another account name and password + SPA (secure password authentication).  SMTP server: My Server Requires Authentication is checked,  Log on using Secure password authentication is checked, Account name is specified
  smSameAsIncomming = &H2 'Use same settings as my incomming mail server
  smName = &H3 'Logon to SMTP using another account name and password. SMTP server: My Server Requires Authentication is checked,  Account name is specified
End Enum 'tSMTPUsing

//tSMTPUsing - begin
var smNone = 0x0; //SMTP server does not require authentication. My Server Requires Authentication is not checked for SMTP server
var smNameSPA = 0x1; //Logon to SMTP using another account name and password + SPA (secure password authentication).  SMTP server: My Server Requires Authentication is checked,  Log on using Secure password authentication is checked, Account name is specified
var smSameAsIncomming = 0x2; //Use same settings as my incomming mail server
var smName = 0x3; //Logon to SMTP using another account name and password. SMTP server: My Server Requires Authentication is checked,  Account name is specified
//tSMTPUsing - end

// tSMTPUsing
typedef [helpcontext(0x2007A), helpstring("Type of connection to SMTP server")]
enum tSMTPUsing{
	[helpcontext(0x2007A), helpstring("SMTP server does not require authentication. My Server Requires Authentication is not checked for SMTP server")]
		smNone = 0x0,
	[helpcontext(0x2007A), helpstring("Logon to SMTP using another account name and password + SPA (secure password authentication).  SMTP server: My Server Requires Authentication is checked,  Log on using Secure password authentication is checked, Account name is specified")]
		smNameSPA = 0x1,
	[helpcontext(0x2007A), helpstring("Use same settings as my incomming mail server")]
		smSameAsIncomming = 0x2,
	[helpcontext(0x2007A), helpstring("Logon to SMTP using another account name and password. SMTP server: My Server Requires Authentication is checked,  Account name is specified")]
		smName = 0x3
} tSMTPUsing;