Mengubah Notes Outlook menjadi Text Files

Banyak cara untuk menyimpan catatan-catatan kecil (kecil bukan berarti tidak penting, malah bisa sangat penting), diantaranya dengan menggunakan Notes miliknya MS(Microsoft) Outlook.

Yang akan dibahas di postingan kali ini adalah bagaimana mengkonversi atau mengubah Notes atau catatan-catatan tersebut menjadi file Txt.

Langsung saja, :)

Buat Folder baru 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, kemudian 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
    Next
End Sub

Sesuaikan nama folder yang berwarna merah sesuai dengan lokasi dan nama folder yang dibuat pada langkah pertama
klik pada gambar untuk memperbesar.


Pilih menu Run, kemudian klik pada  Run Sub /Useform


Pilih folder Notes, klik OK


Tutup/ exit dari Microsoft Visual Basic, dan Ms Outlook.
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 menggunakan PIN Barcode 

Artikel Terkait