VB.NET: Enkel Epostsender

[hanest]

Så enkelt kan det være å sende epost med VB.NET

 

'På toppen
'Får å kunne importere denne må du sette inn en ny referanse: System.Web
Imports System.Web.Mail


   'Kontroller:
   'Button 1
   'btnSend
   'TextBox 5
   'txtFraEpost,txtTilEpost,txtEmne,txtMelding og txtSmtpServer
   'txtMelding har Multiline sett til True


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

       Dim epostMelding As New MailMessage
       With epostMelding
           .From = txtFraEpost.Text.Trim
           .To = txtTilEpost.Text.Trim
           .Subject = txtEmne.Text.Trim
           .Body = txtMelding.Text & Environment.NewLine
       End With

       'Denne aksepterer både Navn og IP
       SmtpMail.SmtpServer = txtSmtpServer.Text.Trim

       Try
           SmtpMail.Send(epostMelding)
           Me.Text = "Vellykket sending."
       Catch ex As Exception
           Me.Text = "Feil ved sending."
       End Try
   End Sub

 

Det er ikke mye jobb med å sende ved vedlegg heller.