Sms/e-mail

--[[

    SendMail 1.0 LUA 5.1x [Strict] [API 2]
    
    Send E-Mail from your scripts with PxLuaSocket
    This function returns boolean with string
    
    Usage:
    In any script you need to send mail from load this module:
    dofile("SendMail 1.0 L5.1.lua")
        
    Example Call:
    local b,r = SendMail('"Friendly Name" <user@domain>',"Subject","Message Body")
    if b then Core.SendToOps(r) end
    
    On Success will return true with reply:
    Message Sent: "Friendly Name" <user@domain>
    
    On Failure will return false with error:
    Send Failed: timeout

    ***Note requires PxLuaSocket 2.0.2, dowload here:
    http://www.czdc.org/PtokaX/Libs-0.3.6.0d/PXLuaSocket-2.0.2.7z
    or
    PXLuaSocket 2.0.2 compatible with PtokaX 0.4.0.0RC6:
    http://www.czdc.org/PtokaX/Libs-0.4.0.0RC6/PXLuaSocket-2.0.2.7z
    
    extract to PtokaX\scripts\libs
]]

        local r, e = smtp.send{
            from = From:gsub("^[^<]*",""),
            rcpt = rcpt,
            source = smtp.message(mesgt)
        }

smtp.send{
  from = string,
  rcpt = string or string-table,
  source = LTN12 source,
  [user = string,]
  [password = string,]
  [server = string,]
  [port = number,]
  [domain = string,]
  [step = LTN12 pump step,]
  [create = function]
}