Alat :
1. Microsoft Visual Basic 2010 / 2008
Tutorial :
1. Pertama buat project -> Windows Form Application -> Kasih Judul terserah -> Klik OK
2. Tambahkan komponen berikut :
[-] 3 Button :
Button1->Properties->Text->Start
Button2->Properties->Text->Stop
Button3->Properties->Text->Exit
[-] 5 Textbox :
Textbox1->Properties->Text->Gmail Username
Textbox2->Properties->Text->Gmail Password
Textbox3->Properties->Text->To
Textbox4->Properties->Text->Subject
Textbox5->Properties->Text->Message
Buat Textboxt 5 Menjadi Multiline
[-] 1 Timer
[-] 1 Label
Desain Form Menjadi seperti ini :
3. View code -> Taruh code ini dipaling atas
Imports System.Net.Mail
4. Klik button start , masukan code ini
Timer1.start()
5. Klik button stop , masukan code ini
Timer1.Stop()
6. Klik Timer1 , Masukan code ini
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress(TextBox1.Text)
MyMailMessage.To.Add(TextBox3.Text)
MyMailMessage.Subject = (TextBox4.Text)
MyMailMessage.Body = TextBox5.Text
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTPServer.EnableSsl = True
Label1.Text = Val(Label1.Text + 1)
SMTPServer.Send(MyMailMessage)
7. Build / debug lalu test aplikasinya


Tidak ada komentar:
Posting Komentar