Why won't this code work?

Question

meandmymachine 0 Newbie Poster

21 Years Ago

I've found some code in a book on Visual Basic.NET that doesn't seem to work properly.(The book is "Learning Visual Basic.NET Through Applications" by Clayton E.Crooks II (Charles River Media) ISBN 1-58450-242-8).

The essential problem is that the code seems to be okay on the CD which came with the book, but when I copy it into Visual Basic.NET Standard Edition, it reports some errors. I haven't reproduced the code here because it's quite long but if anyone can help, I'll gladly send it to them. All contributions gratefully accepted.

meandmymachine

vb.net

7 Contributors
8 Replies
350 Views
3 Years Discussion Span
Latest Post 17 Years Ago Latest Post by arjunsasidharan

All 8 Replies

aeinstein 79 Team Member - aka kaynine

21 Years Ago

copy & post the code here.

aeinstein 79 Team Member - aka kaynine

20 Years Ago

i know nothing about programming; request was to facilitate others in coming to your assistance.

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

meandmymachine 0 Newbie Poster · Answer 1 · 2003-04-24T16:34:19+00:00

Hi Kaynine

Thanks for answering my distress call. Below I've listed the errors and below that I've reproduced the code. As I mentioned, it's not actually my code but source published in a book teaching VB.NET, which makes it all the more baffling. Many thanks for your assistance.

meandmymachine

ERROR LIST

"Namespace for 'System.Web.Mail' cannot be found" (line 1).
"Type 'MailMessage()' not defined" (line 5).
"Name 'MailFormat' is not declared" (line 179).
"Name 'MailPriority' is not declared" (line 181).
"Name 'SmtpMail' is not declared" (line 185 & line 191).

"Type 'MailAttachment' is not defined" (line 203).

Imports System.Web.Mail

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim msg As New MailMessage()


#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents txtTo As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents txtFrom As System.Windows.Forms.TextBox
    Friend WithEvents txtServer As System.Windows.Forms.TextBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents txtSubject As System.Windows.Forms.TextBox
    Friend WithEvents btnSend As System.Windows.Forms.Button
    Friend WithEvents txtBody As System.Windows.Forms.TextBox
    Friend WithEvents btnAttach As System.Windows.Forms.Button
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.txtBody = New System.Windows.Forms.TextBox()
        Me.txtTo = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.txtFrom = New System.Windows.Forms.TextBox()
        Me.txtServer = New System.Windows.Forms.TextBox()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.txtSubject = New System.Windows.Forms.TextBox()
        Me.btnSend = New System.Windows.Forms.Button()
        Me.btnAttach = New System.Windows.Forms.Button()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
        Me.SuspendLayout()
        '
        'txtBody
        '
        Me.txtBody.Location = New System.Drawing.Point(16, 144)
        Me.txtBody.Multiline = True
        Me.txtBody.Name = "txtBody"
        Me.txtBody.Size = New System.Drawing.Size(456, 184)
        Me.txtBody.TabIndex = 0
        Me.txtBody.Text = ""
        '
        'txtTo
        '
        Me.txtTo.Location = New System.Drawing.Point(64, 16)
        Me.txtTo.Name = "txtTo"
        Me.txtTo.Size = New System.Drawing.Size(176, 20)
        Me.txtTo.TabIndex = 1
        Me.txtTo.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(24, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(32, 23)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "To:"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(16, 48)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(40, 23)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "From: "
        '
        'txtFrom
        '
        Me.txtFrom.Location = New System.Drawing.Point(64, 48)
        Me.txtFrom.Name = "txtFrom"
        Me.txtFrom.Size = New System.Drawing.Size(176, 20)
        Me.txtFrom.TabIndex = 4
        Me.txtFrom.Text = ""
        '
        'txtServer
        '
        Me.txtServer.Location = New System.Drawing.Point(304, 16)
        Me.txtServer.Name = "txtServer"
        Me.txtServer.Size = New System.Drawing.Size(176, 20)
        Me.txtServer.TabIndex = 5
        Me.txtServer.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(256, 16)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(48, 23)
        Me.Label3.TabIndex = 6
        Me.Label3.Text = "Server:"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 80)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(48, 23)
        Me.Label4.TabIndex = 7
        Me.Label4.Text = "Subject:"
        '
        'txtSubject
        '
        Me.txtSubject.Location = New System.Drawing.Point(64, 80)
        Me.txtSubject.Name = "txtSubject"
        Me.txtSubject.Size = New System.Drawing.Size(176, 20)
        Me.txtSubject.TabIndex = 8
        Me.txtSubject.Text = ""
        '
        'btnSend
        '
        Me.btnSend.Location = New System.Drawing.Point(392, 56)
        Me.btnSend.Name = "btnSend"
        Me.btnSend.TabIndex = 9
        Me.btnSend.Text = "Send"
        '
        'btnAttach
        '
        Me.btnAttach.Location = New System.Drawing.Point(392, 88)
        Me.btnAttach.Name = "btnAttach"
        Me.btnAttach.TabIndex = 10
        Me.btnAttach.Text = "Attach"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(16, 120)
        Me.Label5.Name = "Label5"
        Me.Label5.TabIndex = 11
        Me.Label5.Text = "Message:"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(488, 334)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label5, Me.btnAttach, Me.btnSend, Me.txtSubject, Me.Label4, Me.Label3, Me.txtServer, Me.txtFrom, Me.Label2, Me.Label1, Me.txtTo, Me.txtBody})
        Me.Name = "Form1"
        Me.Text = "SMTP Mail"
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click

        With msg
            .From = txtFrom.Text
            .To = txtTo.Text
            .Subject = txtSubject.Text
            .BodyFormat = MailFormat.Text
            .Body = txtBody.Text
            .Priority = MailPriority.Normal
        End With

        If txtServer.Text <> "" Then
            SmtpMail.SmtpServer = txtServer.Text
        Else
            MsgBox("Please enter a valid SMTP server", MsgBoxStyle.Critical, "SMTP Server Error")
            Exit Sub
        End If

        SmtpMail.Send(msg)

    End Sub


    Private Sub btnAttach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAttach.Click
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        OpenFileDialog1.FilterIndex = 2

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Debug.WriteLine(OpenFileDialog1.FileName())
            msg.Attachments.Add(New MailAttachment(OpenFileDialog1.FileName))
        End If

    End Sub

End Class

Tekmaven 258 Software Architect Team Colleague · Answer 2 · 2003-05-03T11:13:14+00:00

Sorry about the delay, I'm kinda busy. Your doing this in a Windows Forms Application, not a Web Appliction. Make a new Web Application, and it will work :-)

srikkanthan 36 Light Poster · Answer 3 · 2004-05-13T00:16:13+00:00

why don't u try and a reference to System.Web assembly (Project->Add Reference)....

malebuterfly 0 Newbie Poster · Answer 4 · 2004-06-10T22:53:26+00:00

oh.this programming what I learn in the book is coreect.It can reunning.next time I tell you where the wrong in your code.in the way I come from china .can we make friends.my icq is 217824718.

lkexpert 0 Newbie Poster · Answer 5 · 2004-07-26T17:43:16+00:00

lkexpert 0 Newbie Poster

19 Years Ago

What error u getting

arjunsasidharan 297 Practically a Posting Shark · Answer 6 · 2007-02-14T16:08:26+00:00

What error u getting

Hey guys.. its simple.. Add the Webrefference System.web n it shoud work.. :cheesy:

Why won't this code work?

Recommended Answers Collapse Answers

All 8 Replies

Recommended Answers