Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

I want Mathematica to send me an email when the computation is finished. To that end, I have a cell with SendMail[...] which I place behind my computation in the evaluation queue. The problem I have is that I need to enter a password for my mail server. Doing that as an explicit rule leaves the password unencrypted and visible to everyone. On the other hand, setting "Password"->Automatic will only show a dialog box once the SendMail[] cell is evaluated. Is there a way to show the dialog box for password entry beforehand, such that I can enter the password and walk away?

share|improve this question
    
DialogInput? See first example in section "Scope". Mind you, as long as your machine is not locked, retrieving the password will still be trivial... –  Yves Klett Aug 21 '13 at 11:03

1 Answer 1

up vote 13 down vote accepted

Here is one solution based on encoded package.

To create a pack you have to create a .m file (in this case mailPack.m). There is one example using gmail configuration:

BeginPackage["mailPack`"]

sendMail::usage="sendMail[subject, body, to, file] send mail using myMail";
Begin["`Private`"]

sendMail[subject_,body_,to_,file_:None]:=
SendMail[
    "To"->to,
    "Subject"->subject,
    "Body"->body,
    "From"->"myMail@math.com.br",
    "Server"->"smtp.gmail.com",
    "PortNumber"->587,
    "EncryptionProtocol"->"StartTLS",
    "UserName"->"myLogin",
    "Password"->Uncompress@"myCompressedPassword", (*Use compress to create it*)
    "Attachments"->file
]

SetAttributes[sendMail, {ReadProtected,Locked}];

End[]
EndPackage[]

Now you can open another notebook, save in the same directory, and the do this to encode the first:

  SetDirectory@NotebookDirectory[];
  Encode["mailPack.m","mailPack.m"];

Now, if you try to open your mailPack.m as txt file, you will see that it is completely unreadable.

To use your sendMailfunction, copy your pack in the same directory of your file, then use SetDirectory@NotebookDirectory[], then use Needs["mailPack"]. If you use it all the time, copy the mailPack.m for the Application directory in your Mathematica folder (this command can help you SystemOpen@$UserBaseDirectory). Then you don't need the SetDirectory part neither to put the mailPack file in the same directory of your current notebook.

share|improve this answer
1  
    
Interesting that @Leonid suggest DumpSave instead of Encode. Also related about security of encode here. –  Murta Aug 21 '13 at 11:22
    
The juicy part is @RolfMertig´s comment on Locked in pre-9 versions... perhaps there is some more secure stuff possible via Java or similar? –  Yves Klett Aug 21 '13 at 11:25
    
@YvesKlett, cool lock all function. link –  Murta Aug 21 '13 at 11:31
1  
This way it's more comfortable to open the code in front of another person, and if he is not Sheldon Cooper (with his eidetic memory) there is no problem. –  Murta Aug 21 '13 at 12:02

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.