Banyak cara untuk menyimpan catatan-catatan kecil (kecil bukan berarti tidak penting, malah dapat sangat penting), diantaranya dengan memakai Notes miliknya MS(Microsoft) Outlook.
Yang akan dibahas di postingan kali ini yakni bagaimana mengubah Notes atau catatan-catatan tersebut menjadi file Txt.
Buat Folder gres untuk menyimpan file Text misal di drive C:\ dengan nama folder notes
Jalankan Ms Outlook.
Setelah jendela outlook tampil, tekan tombol Alt + F11, maka akan muncul jendela Microsoft Visual Basic Project
Klik pada Menu Insert, lalu klik Module
Akan muncul jendela module, copy dan pastekan code di bawah ini :
Sub NotesToText() Set myNote = Application.GetNamespace("MAPI").PickFolder For cnt = 1 To myNote.Items.Count noteName = Replace(Replace(myNote.Items(cnt).Subject, "/", "-"), "\", "-") myNote.Items(cnt).SaveAs "c:\notes\" & noteName & ".txt", OlSaveAsType.olTXT NextEnd Sub Sesuaikan nama folder yang berwarna merah sesuai dengan lokasi dan nama folder yang dibentuk pada langkah pertama klik pada gambar untuk memperbesar. |
Pilih hidangan Run, lalu klik pada Run Sub /Useform
Pilih folder Notes, klik OK
Akan ada notifikasi apakah mau menyimpan visual basic project, pilin NO (tidak disimpan).
Sekarang silakan cek di folder yang kita buat tadi, sudah berisi file-file text.
Semoga bermanfaat.
Posting Lainnya :
• Cara Setting Time untuk Mini(Spy)Camera
• Copy Memopad Blackberry ke Komputer
• Menjalankan Windows 8 di Netbook
• Lupa Password Administrator Macbook
• Cara Add / invite Teman BBM memakai PIN Barcode