Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click Try Dim message As New System.Net.Mail.MailMessage(Mail_From.Text, Mail_To.Text) message.Subject = Me.Mail_Sub.Text message.Body = Me.Mail_Comment.Text Dim client As New System.Net.Mail.SmtpClient(SMTP.Text) client.Send(message) Mail_From.Clear() Mail_To.Clear() Mail_Sub.Clear() Mail_Comment.Clear() MessageBox.Show("メールを送信しました。", "送信終了") Catch ex As Exception MessageBox.Show(ex.ToString, "エラー") End Try End Sub
Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click Try Dim message As New System.Net.Mail.MailMessage(Mail_From.Text, Mail_To.Text) message.Subject = Me.Mail_Sub.Text message.Body = Me.Mail_Comment.Text Dim client As New System.Net.Mail.SmtpClient(SMTP.Text) client.Credentials = New Net.NetworkCredential("userName", "password") client.Send(message) Mail_From.Clear() Mail_To.Clear() Mail_Sub.Clear() Mail_Comment.Clear() MessageBox.Show("メールを送信しました。", "送信終了") Catch ex As Exception MessageBox.Show(ex.ToString, "エラー") End Try End Sub