Coretan Iseng: --Sebuah Harapan--

Coretan Iseng: --Sebuah Harapan--: "

Send Email Aplication

1. Buatlah Project baru dengan menggunakan templates Windows Form Aplication beri nama SendEmail_IbnuImam

2. Buatlah tampilan seperti gambar diatas!

3. Ubah properti dari komponen - komponen berikut ini :

Form
Name :FormSendEmail
Text :Form Send Email

Textbox disebelah “Email Address”
Name :EmailAddress

Textbox disebelah “Password”
Name :Password
PasswordChar :#

Combobox disebelah “Pilih Provider Email”
Name :Provider
Item :Yahoo
:Gmail
:Live

Textbox “Host”
Name :Host
Text :Host
ReadOnly :True

Textbox “Port”
Name :Port
Text :Port
ReadOnly :True

Textbox disebelah “Email Tujuan”
Name :EmailTujuan

Textbox dibawah “Subject”
Name :Subject

Textbox dibawah “Pesan”
Name :Pesan
ScrollBars :Both

Button Kirim
Name :ButtonKirim
Text :Kirim

Button Exit
Name :ButtonExit
Text :Exit

4. View code untuk form1.vb, diatas Public Class FormSendEmail tambahkan program berikut ini :
Imports System.Net.Mail

5. Pada komponen ButtonKirim buat method click dengan program sebagai berikut :
Try
Dim tujuan As New SmtpClient()
Dim email As New MailMessage()

tujuan.Credentials = New Net.NetworkCredential(EmailAddress.Text, Password.Text)

tujuan.Host = Host.Text
tujuan.Port = Port.Text
tujuan.EnableSsl = True

email.From = New MailAddress(EmailAddress.Text)
email.To.Add(EmailTujuan.Text)
email.Subject = Subject.Text
email.Body = Pesan.Text

tujuan.Send(email)
MsgBox("Pesan Terkirim", MsgBoxStyle.OkOnly, "Status")
Catch ex As Exception
MsgBox("Pesan Gagal Dikirim", MsgBoxStyle.OkOnly, "Status")
End Try

6. Pada komponen Provaider (Combobox) buat method dengan program sebagai berikut :
If Provider.Text = "Yahoo" Then
Host.Text = "smtp.bizmail.yahoo.com"
Port.Text = 25
End If
If Provider.Text = "Gmail" Then
Host.Text = "smtp.gmail.com"
Port.Text = 587
End If
If Provider.Text = "Live" Then
Host.Text = "smtp.live.com"
Port.Text = 587
End If

7. Pada komponen ButtonExit buat method click dengan program sebagai berikut :
End

8. Program selesai dibuat saatnya dijalankan.

Semoga bermanfaat.. terutama buat teman2 TI-2C Poltekpos.. heeee...

Windows XP Mode di Virtual PC 2007

Windows XP Mode dapat dijalankan di windows 7 jika computer yang ingin diinstal memiliki hardware virtualization atau prosesornya memiliki VT.

Permasalahannya bagaimana dengan computer yang tidak memiliki teknologi tersebut, pastinya tidak bakal bisa menggunakan Windows XP Mode. Namun kali ini karena kesalah yang berujung kebaikan saya mencoba menginstal Windows XP Mode di dalam Virtual PC 2007 yang software kita bisa download di Microsoft center.

Ini bermula karena saya telah mendownload Windows XP Mode dan saya lupa memeriksa computer saya memilikiteknologi yang dibutuhkan apa tidak namun karena sudah terlanjur di download, sayang jika tidak di gunakan. Akhirnya saya gunakn Virtual PC untuk bantuan vrtualizationnya tenyata bisa juga walau tidak sesempuran Windows XP Mode yang dijalankan mengunakan Windows Virtual PC karena kita tidak bisa langsung menggunakan software yang di install di XP secara langsung melalui start All Program namun windows xp nya tetap sama.

Ini cara yang saya Lakukan….

1. Download Virtual PC 2007 dan Windows XP Mode di Microsoft center.

2. Instal Windows XP Mode

Sampe selesai tentunya..

3. Instal Virtual PC 2007

Peringatan Penting… Pastikan Windows Virtual PC yang merupakan feature tambahan dari windows 7 tidak terinstal di computer anda.

4. Setealah Virtual PC 2007 terinstal buatlah VMC (Virtual Machine Wizard) baru.

Kemudian Browse lokasi Windows XP Mode.. berada di Program file windows, lalu oke dan

jalan VMC baru anda maka windows XP Mode akan terinstal.. ingat jangan lupa mengaktifkan

Undo Disk…

Demikian pengetahuan sederhana dari sebuah kesalahan yang menjadi sebauah penemuan…