Email server

--Example Object
--{From="Sender", To="Receiver", Subject="Subject", Content="Content", IsSendingRQ=true, IsEmailRQ=false}

rednet.open()

function Main()
    local event, sender, message, protocol = os.pullEvent("rednet_message")
    local json = textutils.unserialiseJSON(message)

    if (json.IsSendingRQ) then
        SaveEmail(message)
        --save email on server
    elseif (json.IsEmailRQ) then
        local LSEmails = GetEmailList(json.From)
        rednet.send(sender, LSEmails)
    end
end

function GetEmailList(user)
    --use forders for each user
    --use text file for each message
end

function SaveEmail(email)
    --use forders for each user
    --use text file for each message
end

Main()