SQLの窓

2009年05月07日


VB.NET : TKMP.DLL でメール送信

1) TKMP.DLL をダウンロード

2) 参照設定を行う

3) Imports
Imports TKMP.Writer
Imports TKMP.Net

4) ボタンを作成
Private Sub メール送信_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles メール送信.Click

	'------------------------------------------------------
	'サーバー情報
	'------------------------------------------------------
	Dim Server As String = "ユーザID.sakura.ne.jp"
	Dim ServerPort As Integer = 587

	'------------------------------------------------------
	'メール情報の作成
	'------------------------------------------------------
	Dim mail As MailWriter = New MailWriter

	'差出人
	mail.FromAddress = "メールユーザ@ユーザID.sakura.ne.jp"
	'あて先
	mail.ToAddressList.Add("あて先メールアドレス")
	'本文のクラスを作成します
	Dim part As TextPart = New TextPart("本文")
	'送信メールクラスに本文を登録
	mail.MainPart = part

	'相手のメーラーで「差出人」として表示
	mail.Headers.Add("From", "わたし <メールユーザ@ユーザID.sakura.ne.jp>")
	'相手のメーラーで「あて先」として表示されます
	mail.Headers.Add("To", "あなた <あて先メールアドレス>")
	'メールの件名
	mail.Headers.Add("Subject", "タイトル")
	'付加情報など
	mail.Headers.Add("X-Mailer", "TKMP Version 2.0.0")

	'------------------------------------------------------
	'サーバーへ接続
	'------------------------------------------------------
	'SMTPサーバーを利用する場合に認証が必要なときは以下のようにインスタンスを作成します
	Dim logon As AuthLogin = New AuthLogin("認証用ユーザ文字列", "パスワード")
	Dim smtp As SmtpClient = New SmtpClient(Server, ServerPort, logon)

	'接続
	If Not smtp.Connect() Then
		MessageBox.Show("接続に失敗しました。")
		Return
	End If

	'------------------------------------------------------
	'メール送信を開始します
	'------------------------------------------------------
	smtp.SendMail(mail)

	'------------------------------------------------------
	'サーバーから切断します
	'------------------------------------------------------
	smtp.Close()

	MessageBox.Show("メールを送信しました")

End Sub

さくらインターネットでは、「認証用ユーザ文字列」はメールアドレスになります。

関連する記事

VS2010(C#) : TKMP.DLL(3.1.2)を使った、メール送信テンプレート



タグ:メール VB
posted by lightbox at 2009-05-07 15:21 | VB.NET : 通信 | このブログの読者になる | 更新情報をチェックする
container 終わり



フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

CSS ドロップシャドウの参考デモ
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり