Visual Basic

Dim XmlOutputDocument As New Xml.XmlDocument
try
  'do your code
catch ex As Exception
  'error message
end try
Return XmlOutputDocument

Imports System.web.Mail
Imports System.Web

Private Sub sendmail()
        Dim attch As ArrayList = Nothing
        Dim myMessage As MailMessage
        Try
            myMessage = New MailMessage()
            With myMessage
                .To = ' INSERT adress to who to send
                .From = 'INSERT From wich adress to send
                .Subject = 'INSERT subject
                Dim text As String = System.Text.RegularExpressions.Regex.Replace(txtbody.Text, "\n", "<br>") 
                .Body = text
                .BodyFormat = MailFormat.Html
                '.Cc = CC
                '.Bcc = BCC
                If Not attch Is Nothing Then
                    For i = 0 To attch.Count - 1
                        If FileExists(attch(i)) Then
                            Dim s As New System.Web.Mail.MailAttachment(attch(i))
                            .Attachments.Add(s)
                        End If
                    Next
                End If
            End With
            SmtpMail.SmtpServer = 'INSERT smtp server here
            SmtpMail.Send(myMessage)
        Catch myexp As Exception
            ' Throw myexp
        End Try
end sub

Dave Kreskowiak wrote:

I have some grass that needs cutting

Dave Kreskowiak wrote:

my truck needs an oil change

Dave Kreskowiak wrote:

refinishing the floor in a bedroom and painting

Dave Kreskowiak wrote:

I mean, since you're doing his homework for him and all...

TDDragon wrote:

dought that his homework is only sending a mail (if it is I wish I went to his school). But you'r right I should have pikked up on that. Anyway I had the code written in one of my projects so I took me all but 3min to do the post but still 3min to much.
I'll go beat myself up now for not spotting this (normaly I'm better at spotting homework questions, guess he got lucky and got me on a weak moment)

TDDragon wrote:

The only way we learn is by making mistakes.

Dave Kreskowiak wrote:

TDDragon wrote:
The only way we learn is by making mistakes.


That's what going to University is for!

if e.keychar = chrw(keys.return) or e.keychar = chrw(keys.return) then<br />
me.searchbutton.performclick()<br />
end if

If Asc(e.KeyChar) = Keys.Enter Then
          btnSearch.PerformClick()
      End If

If e.keycode = Keys.Enter Then           
    btnSearch.PerformClick()   
    e.handled = true     
End If