«

»

Lis 03

Wydrukuj to Wpis

Klient poczty e-mail w Visual Basic

Klient-poczty-e-mail

Bardzo prosty klient poczty napisany w programie Visual Basic z wykorzystaniem komponentów System.Net.Mail. Program został napisany prostym językiem, żeby ułatwić jego szybsze zrozumienie.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Imports System.Net.Mail
Public Class Form1
 
    Private Sub Sent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim MyMailMassege As New MailMessage()
            MyMailMassege.From = New MailAddress(TBEmail.Text)
            MyMailMassege.To.Add(TBDo.Text)
            MyMailMassege.Subject = (TBTemat.Text)
            MyMailMassege.Body = (TBWiadomość.Text)
            Dim SMTPServer As New SmtpClient(TBServer.Text)
            SMTPServer.Port = TBPort.Text
            SMTPServer.Credentials = New System.Net.NetworkCredential(TBEmail.Text, TBHasło.Text)
            SMTPServer.EnableSsl = True
            SMTPServer.Send(MyMailMassege)
            MsgBox("Wiadomość została wysłana")
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TBDo.Clear()
        TBTemat.Clear()
        TBWiadomość.Clear()
    End Sub
End Class

Załączniki do pobrania

Permalink do tego artykułu: http://tmall.com.pl/klient-poczty-e-mail-w-visual-basic/

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *

Możesz użyć tych znaczników i atrybutów HTMLa: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>