Keskustelu: Ohjelmointikysymykset: VB6: VB6.NET

Imports System.Web.Mail
Public Class Form1
    Inherits System.Windows.Forms.Form
'...............tästä leikattu pois vakio koodi

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myMail As New MailMessage
        myMail.From = "lahettaja@mbnet.fi"
        myMail.To = "mamaze_ei_spammia@luukku.com"
        myMail.Subject = "Aihe tähän"
        myMail.Priority = MailPriority.Low
        myMail.BodyFormat = MailFormat.Text
        myMail.Body = TextBox1.Text + vbNewLine + textbox2.text
        'Dim myAttachment As New MailAttachment("c:\attach\attach1.txt", MailEncoding.Base64)
        'myMail.Attachments.Add(myAttachment)
        SmtpMail.SmtpServer = "mail.inet.fi" ' laita tähän omasi, katso sähköpostiohjelmasi properties
        SmtpMail.Send(myMail)
    End Sub
End Class