Setelah berpikir, salah satu cara mendapatkan email adalah dari website yang kira2 disitu mencantumkan alamat email target konsumen saya. Saya memanfaatkan Google untuk mencari website yang saya masuk. Akhirnya ada beberapa. Namun saya berpikir kembali, alangkah repotnya jika harus copy paste - copy paste alamat2 email tersebut. Seandainya saya bisa mengekstrak alamat2 email tersebut menjadi daftar alamat email siap pake, tentunya lebih menarik.
Berangkat dari pikiran tersebut, lahirlah email extractor bikinan sendiri. Cara kerjanya sangat mudah, copy paste halaman website ke aplikasi buatan saya, lalu setelah ditekan tombol Extract, maka aplikasi saya akan memparsing, dan mengambil alamat email yang berserakan di halaman tsb berdasarkan karakter @ .
Namun terkadang, untuk menghindari spam, orang menyamarkan alamat emailnya dengan mengganti karakter @ misalnya dengan [at]. Hal ini sudah saya antisipasi, Anda dapat membuka source code cari konstanta C_EMAIL_SIGN dan masukkan kemungkinan pengganti karakter @ dan memisahkan masing2nya dengan titik koma ; Pada source code saya, [at] telah diantisipasi.
download source code
download exe
source code saya dibuat dengan Delphi XE1, jika Anda menggunakan versi yang lebih lama, misalkan Delphi 7 jangan khawatir. Coba aja dibuka dan dicompile. Jika muncul error saat source code dibuka atau saat kompilasi, abaikan saja. Hal tersebut biasanya karena ada tambahan property komponen Delphi XE yang disimpan di file dfm nya yang tidak terdapat pada Delphi versi sebelumnya. Jika masih error juga, buat saja project baru kemudian add unit u_get_mail3.pas ke project Anda dan compile.
Tentunya, kelak Anda dapat mengembangkan source code saya, misalkan dengan memanfaatkan komponen IdHTTP, extract email tidak lagi berdasarkan copy paste, tapi langsung mengekstrak nya dari internet. Selamat berkreasi.
Tidak ada komentar:
Posting Komentar