AutoHotkey Community

; This is Outlook specfic
; Code snippet by Peterm
;
Mail_File:
  ; Mail message out
  ShowConfirmationBox := 1

  ; If no file selected then return
  If MyListBox =
    {
      MsgBox No file selected
      SB_SetText("No file selected",1)
      Return
    }

  IfNotExist, %File_Link%
    {
      MsgBox %File_Link%`nFile does not Exist
      SB_SetText("File does not Exist",1)
      Return
    }

  SB_SetText("Mailing the file",1)
  Sleep, 50

  If ErrorLevel = Error
    {
      MsgBox Could not open specified file.  Perhaps it is does not Exist.
      SB_SetText("Couldn't open the selected file",1)
      Return
    }

  SB_SetText("Copying File to Clipboard",1)

  ; Load clipboard with file as this is quicker
  clipboard = %File_Link%
  ClipWait

  SB_SetText("Opening Outlook",1)

  var_subject = Drawing
  var_body = %File_Link%`%0A
  var_address = peter.meares@edwardsvacuum.com

  ; var_text = The shortcut to the file is `%0A`%0A
  var_sign_off = `%0A`%0ARegards`%0APeter

  ;Start the mail process
  RunWait mailto:%var_address%?body=%var_body%&subject=%var_subject%

  ; Add attachment to Outlook via key controls
  ; switch mouse and keys off
  BlockInput On

  Sleep 2000
  Send {ALT}
  Sleep 1000
  Send i
  Sleep 200
  Send f
  Sleep 1000
  Send ^v{Enter}
  Sleep 2000
  Send {End}{Down}

  BlockInput Off

  If (ShowConfirmationBox)
    {
      MsgBox 4,Email Confirmation, Send email?
      IfMsgBox Yes
        {
          Send ^{Enter}
          SB_SetText("File sent",1)
        }
      Else
          SB_SetText("File not sent",1)
    }

leave_routine:
Return

Run %comspec% \c "Path to my JS script file" "email address of recipient" "subject line" "file path of attachment" "bodyofemail"

/* Usage:
scriptname email@to.me "About something" "C:\test.txt" "I wanted to send this email to you about something. Please see the attachment."
 */
 var WshShell = WScript.CreateObject("WScript.Shell");
 var objArgs = WScript.Arguments
 if (objArgs.length != ""){
  for (i=0; i < objArgs.length; i++)
   {
      switch (i){
         case 1:
         var to = objArgs(i);
         break;
         case 2:
         var subject = objArgs(i);
         break;
         case 3:
         var attach = objArgs(i);
         break
         case 4:
         var body = objArgs(i);
         break
         default : WshShell.Popup("That is to many arguments!", //message to display
                0, //seconds to leave window up; 0 = forever
                "What are you thinking?", //title
                0+48); //icon + buttons   see: http://msdn.microsoft.com/en-us/library/x83z1d9f.aspx;
      }
   }
 
  var outlookApp = new ActiveXObject("Outlook.Application");
  var nameSpace = outlookApp.getNameSpace("MAPI");
  mailFolder = nameSpace.getDefaultFolder(6);
  mailItem = mailFolder.Items.add('IPM.Note.FormA');
  mailItem.Subject = subject;
  mailItem.To = to;
  mailItem.HTMLBody = body;
  mailItem.Attachments.Add(attach)
  mailItem.display (0);
  outlookNamespace.Logoff;
  }
else
{
  WshShell.Popup("There are no arguments!", 0, "DUDE!", 0+48);
  }