2011年7月26日火曜日

→→→メール送信ひながた

Imports System.Net
Imports System.Net.Mail

Public Class Form1
  Private Sub Button1_Click( ・・・
       Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding(50220)
       Try
            Dim message As New System.Net.MailMessage("****@**.**.ne.jp" , "***@***.ne.jp" )
            message.SubjectEncoding = enc
            message.BodyEncoding = enc
            message.Subject = Me.txtSubject.Text
            message.Body = Me.txtBody.Text
            Dim Client As New System.Net.Mail.SmptClient("mail.***.***.ne.jp")
            Client.Credentials = New NetWorkCredential("ユーザー名","パスワード")
            Client.Send(message)
            txtForm.Clear()
            txtTo.Clear()
            txtSubject.Clear()
            txtBody.Clear()
            messageBox.Show("メールを送信しました","送信終了")
Catch ex As Exception
           messageBox.Show("送信できませんでした","エラー")
End Try
         Me.Close()
    End Sub
End Class

0 件のコメント:

コメントを投稿