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.NET : 通信の最新記事】
- VB.net(2010) : COMの Msxml2.ServerXMLHTTP を使用して WEBアプリにバイナリデータを POST する
- VB.net : TKFP.DLL 1.4.3 を使って FTPS でファイル(フォルダ)の一覧を取得する
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して Google のURL短縮サービスを使用する( JSON )
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して URL短縮サービス[bit.ly] を使用する( XML と TEXT )
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して URL短縮サービス[p.tl] を使用する( JSON )
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して WEBアプリにデータを POST する
- VB.net : COMの Msxml2.ServerXMLHTTP を使用して http 通信を行う
- VB.net : IPアドレスを IPv4 と IPv6 に区別して取得する
- Json.NET を使用して JSON 文字列を VB.net で使用する( 逆シリアライズ )
- VB.net : クライアントが送ったヘッダを表示するだけの HTTPサーバーⅡ
- VB.net : クライアントが送ったヘッダを表示するだけの HTTPサーバー( TcpListener )
