VB.NET メール送信のサンプル(MailKit)

VB.NETのメール送信のサンプルのサンプルです。

サンプル	ライブラリの取得
	メールを送信するコード

ライブラリの取得

メール送信のライブラリのMailKitを取得します。

１．ツール＞NuGetパッケージマネージャ＞ソリューションのNuGetパッケージの管理をクリックします。

２．MailKitで検索し、MailKitを選択＞プロジェクトにチェックを入れ右下のインストールボタンを押すとインストールされます。

メールを送信するコード

Module Module1
	Sub Main()
		SendMail()
	End Sub
	Sub SendMail()
		Dim MailHost = "smtpサーバ"
		Dim MailPort = ポート番号
		Dim UserName = "ユーザ名"
		Dim PassWord = "パスワード"

		Dim msg = New MimeKit.MimeMessage()
		msg.From.Add(New MimeKit.MailboxAddress("test1", "送信元メールアドレス")) '送信元メールアドレス
		msg.To.Add(New MimeKit.MailboxAddress("test2", "送信先メールアドレス")) '送信先メールアドレス
		' msg.Cc.Add() 'Cc用
		' msg.Bcc.Add() 'Bcc用
		msg.Subject = "テストタイトル" 'タイトル
		Dim text = New MimeKit.TextPart(MimeKit.Text.TextFormat.Plain)
		text.Text = "テスト本文" + vbCrLf + " 改行します。" ' 本文
		msg.Body = text

		Using client = New MailKit.Net.Smtp.SmtpClient()
			Try
				Console.WriteLine("メール送信 start")
				client.Connect(MailHost, MailPort,
					MailKit.Security.SecureSocketOptions.Auto) '接続
				client.Authenticate(UserName, PassWord) '認証
				client.Send(msg) '送信
				client.Disconnect(True) '切断
				Console.WriteLine("メール送信 end")
			Catch ex As Exception
				WriteLine(ex.ToString())
			End Try
		End Using
	End Sub
End Module

6～9行目は、SMTPサーバの設定を行っています。
11～19行目は、送信先のメールアドレスやメール本文等の設定を行っています。
18行目は、メール本文です。改行の場合はvbCrLfを使用します。
27行目は、sendメソッドでメールを送信します。
25行目は、SecureSocketオプションです。詳細は以下のリンクを参照願います。
http://www.mimekit.net/docs/html/T_MailKit_Security_SecureSocketOptions.htm

googleのGmail設定を使用する場合

googleのGmail設定を使用する場合は以下の設定を行います。

smtpサーバ="smtp.gmail.com"
port=587
username="googleのメールアドレス"
password="アプリパスワード"

アプリパスワードは、googleアカウント＞セキュリティ＞アプリパスワードをクリックして設定します。