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 件のコメント:
コメントを投稿