Email Using LiveCode Server?

Alex Tweedly alex at tweedly.net
Mon Apr 21 23:33:28 CEST 2014


See below (based, I think, on that same example but I may have modified 
it ... not sure now, I've been through a few differnet versions based on 
this and another similar sample). This is in use on on-rev (pancake)

-- Alex.

-- send an email
command mail pTo, pSub, pMsg, pFrom, pCc, pBcc, pHtml, pAtts
     local tMsg

     -- build the message header, adding the from, to and subject details
     -- we also put any cc addresses in here, but not bcc (bcc addresses 
hidden)
     put "From:" && pFrom & return & "To:" && pTo & return & "Subject:" 
&& pSub & \
     return into tMsg    if pCc is not empty then
         put "Cc:" && pCc & return after tMsg
     end if

     -- if there are any attachments, we must send this email as multipart
     -- with the message body and each attachment forming a part
     -- we do this by specifying the message as multipart and generating 
a unique boundary
     if pAtts is an array then
         local tBoundary
         put "boundary" & the seconds into tBoundary
         put "MIME-Version: 1.0" & return & "Content-Type: 
multipart/mixed; boundary=" & \
         wrapQ(tBoundary) & return & "--" & tBoundary & return after tMsg
     end if

     -- add the actual message body, setting the content type appropriately
     if pHtml is true then
         put "Content-Type: text/html;" & return & return after tMsg
     else
         put "Content-Type: text/plain;" & return & return after tMsg
     end if
     put pMsg & return after tMsg

     -- add each attachment as a new part of the message, separating using
     -- the generated boundary
     if pAtts is an array then
         put "--" & tBoundary & return after tMsg
         repeat for each element tAtt in pAtts
             if there is a file tAtt["path"] then
                 if tAtt["type"] is empty then
                     get "application/octet-stream"
                 else
                     get tAtt["type"]
                 end if
                 put "Content-Type:" && it & "; name=" & 
wrapQ(tAtt["name"]) & ";" & \
                 return & "Content-Transfer-Encoding: base64;" & return 
& return & \
                 base64Encode(URL ("binfile:" & tAtt["path"])) & return 
& "--" & \
                 tBoundary & return after tMsg
             end if
         end repeat
     end if

     -- send the mail by piping the message we have just built to the 
sendmail command
     -- we must also send a copy of the message to the bcc addresses
     get shell("echo" && wrapQ(shellEscape(tMsg)) && "| 
/usr/sbin/sendmail" && \
     wrapQ(shellEscape(pTo)) && "-f" && wrapQ(shellEscape(pFrom)))
     if pBcc is not empty then
         get shell("echo" && wrapQ(shellEscape(tMsg)) && "| 
/usr/sbin/sendmail" && \
         wrapQ(shellEscape(pBcc)) && "-f" && wrapQ(shellEscape(pFrom)))
     end if
     put "MAIL sent" && the seconds & CR & \
           "TO:" && pTo & CR & \
           "SUBJ:" && pSub & CR &CR after URL ("file:./log_mail.txt")
end mail

--  escape shell characters: use this function before passing data to 
the shell
function shellEscape pText
    repeat for each char tChar in "\`!$" & quote
       replace tChar with "\" & tChar in pText
    end repeat
    return pText
end shellEscape

-- wrap quotes around text
function wrapQ pText
    return quote & pText & quote
end wrapQ


On 21/04/2014 19:51, Scott Rossi wrote:
> Hi All:
>
> I'm wondering if anyone has a working example of sending email from
> LiveCode server.
>
> I'm trying to send mail using LC server on a site, and following the RunRev
> lesson:
> http://lessons.runrev.com/s/lessons/m/4070/l/8184-Sending-Emails-From-revSe
> rver-Scripts
>
> LC is working, the mail form is working, everything *appears* to be
> working,
> but no mail is being sent from the server.  I tried to get the result at
> the end of the mail script and all I get is "0". I'm not sure if that
> means false, but I suppose that might make sense since no mail is being
> sent.  I've looked around online and found related examples, tried some
> different flags, but several hours later still no success.  I give up.
>
> Maybe I'm missing some additional file or configuration setting somewhere?
>
>
> This is hosted on DreamHost if that helps.
>
> Thanks & Regards,
>
> Scott Rossi
> Creative Director
> Tactile Media, UX/UI Design
>
>
>
>
> _______________________________________________
> use-livecode mailing list
> use-livecode at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-livecode




More information about the use-livecode mailing list