ＳＭＴＰ認証を利用してサーバーへ接続する TKMP.DLL Tips

TKMP.DLL プログラミングTips

ＳＭＴＰ認証を利用してサーバーへ接続する

　ＳＭＴＰ認証を利用してサーバーへ接続するにはTKMP.Net.SmtpClientクラスのインスタンスを作成するときに、 TKMP.Net.ISmtpLogonインターフェイスを実装したログオン用のクラスを３番目の引数に設定します。ライブラリでは「AUTH CRAM-MD5」「AUTH LOGIN」「AUTH PLAIN」「POP Before SMTP」の４種類と、 AUTH認証の３つから自動で利用可能な認証方法を利用するTKMP.Net.AuthAutoが用意されています。「POP Before SMTP」を利用する場合は、他の方法と違いPOPサーバーへのログオン方法が必要になります。

C#.NET

//メールの送信先サーバー名
string smtpserver = "mail.example.jp";
int port = 25;
string userid = "userid";
string pass = "pass";
System.Net.IPAddress address = System.Net.Dns.GetHostByName(smtpserver).AddressList[0];

//ログオンクラスを作成します
TKMP.Net.ISmtpLogon logon ;


//AUTH CRAM-MD5でログオンを行ないます
logon = new TKMP.Net.AuthCramMd5(userid , pass);

//AUTH LOGINでログオンを行ないます
//logon = new TKMP.Net.AuthLogin(userid , pass);

//AUTH PLAINでログオンを行ないます
//logon = new TKMP.Net.AuthPlain(userid , pass);

//CRAM-MD5 PLAIN LOGINの順で利用可能なものを優先してログオンを行ないます
//logon = new TKMP.Net.AuthAuto(userid , pass);

//POP Before SMTPでログオンを行ないます
//使用するにはPOPへの接続情報が必要です
//logon = new TKMP.Net.PopBeforeSMTP(popclient);

//ログオン処理は行ないません
//logon = null;



//SMTPへの接続クラスを作成
TKMP.Net.SmtpClient smtp = new TKMP.Net.SmtpClient(address , port , logon);

//サーバーへ接続
if(!smtp.Connect())
{
    System.Windows.Forms.MessageBox.Show("接続失敗");
    return ;
}

//-------ここでメール送信を行ないます----------

//サーバーから切断
smtp.Close();

VB.NET

'メールの送信先サーバー名
Dim smtpserver As String = "mail.example.jp"
Dim port As Integer = 25
Dim userid As String = "userid"
Dim pass As String = "pass"
Dim address As System.Net.IPAddress = System.Net.Dns.GetHostByName(smtpserver).AddressList(0)

'ログオンクラスを作成します
Dim logon As TKMP.Net.ISmtpLogon


'AUTH CRAM-MD5でログオンを行ないます
logon = New TKMP.Net.AuthCramMd5(userid, pass)

'AUTH LOGINでログオンを行ないます
'logon = New TKMP.Net.AuthLogin(userid, pass)

'AUTH PLAINでログオンを行ないます
'logon = New TKMP.Net.AuthPlain(userid, pass)

'CRAM-MD5 PLAIN LOGINの順で利用可能なものを優先してログオンを行ないます
'logon = New TKMP.Net.AuthAuto(userid, pass)

'POP Before SMTPでログオンを行ないます
'使用するにはPOPへの接続情報が必要です
'logon = New TKMP.Net.PopBeforeSMTP(popclient)

'ログオン処理は行ないません
'logon = Nothing



'SMTPへの接続クラスを作成
Dim smtp As New TKMP.Net.SmtpClient(address, port, logon)

'サーバーへ接続
If Not smtp.Connect() Then
    System.Windows.Forms.MessageBox.Show("接続失敗")
    Return
End If

'-------ここでメール送信を行ないます----------
'サーバーから切断
smtp.Close()

VB.NETのコードはC#.NETを元に「C#.NET to VB.NET Translator」によって作成したものです