(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      3974,        132]
NotebookOptionsPosition[      3778,        120]
NotebookOutlinePosition[      4063,        134]
CellTagsIndexPosition[      4020,        131]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Needs", "[", "\"\<JLink`\>\"", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"InstallJava", "[", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"LoadJavaClass", "[", "\"\<java.security.MessageDigest\>\"", "]"}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"LoadJavaClass", "[", "\"\<javax.mail.Session\>\"", "]"}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"props", "=", 
   RowBox[{"JavaNew", "[", "\"\<java.util.Properties\>\"", "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"props", "@", 
   RowBox[{"put", "[", 
    RowBox[{
     RowBox[{"MakeJavaObject", "[", "\"\<mail.store.protocol\>\"", "]"}], ",",
      
     RowBox[{"MakeJavaObject", "[", "\"\<imap\>\"", "]"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"props", "@", 
   RowBox[{"put", "[", 
    RowBox[{
     RowBox[{"MakeJavaObject", "[", "\"\<mail.imap.host\>\"", "]"}], ",", 
     RowBox[{"MakeJavaObject", "[", "\"\<mailhost\>\"", "]"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{" ", 
  RowBox[{
   RowBox[{"session", " ", "=", " ", 
    RowBox[{"Session`getDefaultInstance", "[", 
     RowBox[{"props", ",", " ", "Null"}], "]"}]}], ";"}]}], "\n", 
 RowBox[{
  RowBox[{"session", "@", 
   RowBox[{"setDebug", "[", "True", "]"}]}], ";"}], "\n", 
 RowBox[{" ", 
  RowBox[{
   RowBox[{"store", " ", "=", " ", 
    RowBox[{"session", "@", 
     RowBox[{"getStore", "[", 
      RowBox[{"MakeJavaObject", "[", "\"\<imap\>\"", "]"}], "]"}]}]}], 
   ";"}]}], "\n", 
 RowBox[{
  RowBox[{"store", "@", 
   RowBox[{"connect", "[", 
    RowBox[{
    "\"\<mailhost\>\"", ",", " ", "\"\<me@mydoamin.com\>\"", ",", " ", 
     "\"\<password\>\""}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"folder", "=", 
   RowBox[{"store", "@", 
    RowBox[{"getFolder", "[", 
     RowBox[{"MakeJavaObject", "[", "\"\<INBOX\>\"", "]"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"folder", "@", 
   RowBox[{"open", "[", "Folder`READUONLY", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"messages", "=", 
   RowBox[{"folder", "@", 
    RowBox[{"getMessages", "[", "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"textMessages", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"#", "@", 
           RowBox[{"toUnicodeString", "[", "]"}]}], ")"}], "&"}], " ", "/@", 
        " ", 
        RowBox[{"#", "@", 
         RowBox[{"getFrom", "[", "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"#", "@", 
           RowBox[{"toUnicodeString", "[", "]"}]}], ")"}], "&"}], " ", "/@", 
        RowBox[{"#", "@", 
         RowBox[{"getAllRecipients", "[", "]"}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"#", "@", 
        RowBox[{"getSubject", "[", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"#", "@", 
        RowBox[{"getContent", "[", "]"}]}]}], "\[IndentingNewLine]", "}"}], 
     "&"}], " ", "/@", " ", "messages"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"folder", "@", 
   RowBox[{"close", "[", "True", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"store", "@", 
   RowBox[{"close", "[", "]"}]}], 
  ";"}], "\[IndentingNewLine]", "textMessages"}], "Input"]
},
FrontEndVersion->"6.0 for Microsoft Windows",
WindowSize->{1309, 871},
WindowMargins->{{27, Automatic}, {Automatic, 98}}
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 3206, 97, 468, "Input"]
}
]
*)

(* End of internal cache information *)