Monkeybread Software - MBS FileMaker Plugin: IMAP Email List

Components	All	New	MacOS		Windows		Linux		iOS
Examples	Mac & Win		Server	Client	Guides	Statistic	FMM	Blog	Deprecated	Old

MBS FileMaker Plugin Example Databases

IMAP Email List

All examples are included with download of MBS FileMaker Plugin.

IMAP Email List.fmp12

Overview
Tables	2
Relationships	1
Layouts	2
Scripts	2
Value Lists	0
Custom Functions	0
Custom Menus	24

File Options
Default custom menu set	[Standard FileMaker Menus]
When opening file
Minimum allowed version	12.0
Login using	Account Name; Account= Admin
Allow user to save password	Off
Require iOS passcode	Off
Switch to layout	Off
Hide all toolbars	Off
Script triggers
OnFirstWindowOpen	Off
OnLastWindowClose	Off
OnWindowOpen	Off
OnWindowClose	Off
OnFileAVPlayerChange	Off
Thumbnail Settings
Generate Thumbnails	On; Temporary

Tables

Table Name	Statistics	Occurrences in Relationship Graph
IMAP Postbox	6 fields defined, 1 record	IMAP Postbox
IMAP EMails	9 fields defined, 0 record	IMAP EMails

Fields

Table Name: IMAP Postbox - 6 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
Server URL	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP Postbox		Load List
Username	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP Postbox		Load List
Password	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP Postbox		Load List
JSON	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP Postbox		Load List
Log	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP Postbox		Load List
PostboxID	Normal, Number	Auto-Enter: Allow editing Serial: Generate: On creation, Next value: 8, Increment: 1 Validation: Only during data entry Storage: Repetitions: 1 Indexing: All Index Language: German			IMAP Postbox=IMAP EMails	Load List

Table Name: IMAP EMails - 9 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
EmailID	Normal, Number	Auto-Enter: Allow editing Serial: Generate: On creation, Next value: 43, Increment: 1 Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP EMails
PostboxID	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: All Index Language: German		IMAP EMails	IMAP Postbox=IMAP EMails	Load List
Subject	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP Postbox IMAP EMails		Load List
From	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP Postbox IMAP EMails		Load List
To	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP Postbox IMAP EMails		Load List
Date	Normal, Timestamp	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP Postbox IMAP EMails		Load List
URL	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP EMails		Load List
UID	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP EMails		Load List
JSON	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		IMAP EMails		Load List

Layout Objects: IMAP Postbox

Regular Fields

Field Name: IMAP Postbox::Server URL

Layout Name:

IMAP Postbox

Top: 52 pt
Left: 138 pt
Bottom: 73 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP Postbox::Username

Layout Name:

IMAP Postbox

Top: 75 pt
Left: 138 pt
Bottom: 96 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP Postbox::Password

Layout Name:

IMAP Postbox

Top: 98 pt
Left: 138 pt
Bottom: 119 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP EMails::Subject

Layout Name:

IMAP Postbox

Top: 155 pt
Left: 18 pt
Bottom: 176 pt
Right: 269 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP EMails::From

Layout Name:

IMAP Postbox

Top: 155 pt
Left: 271 pt
Bottom: 176 pt
Right: 522 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP EMails::To

Layout Name:

IMAP Postbox

Top: 155 pt
Left: 524 pt
Bottom: 176 pt
Right: 775 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP EMails::Date

Layout Name:

IMAP Postbox

Top: 155 pt
Left: 777 pt
Bottom: 176 pt
Right: 1028 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP Postbox::JSON

Layout Name:

IMAP Postbox

Top: 155 pt
Left: 43 pt
Bottom: 557 pt
Right: 535 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP Postbox::Log

Layout Name:

IMAP Postbox

Top: 155 pt
Left: 550 pt
Bottom: 557 pt
Right: 1042 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Type:

Text: Load Email List

Layout Name:

IMAP Postbox

Top: 68 pt
Left: 444 pt
Bottom: 96 pt
Right: 600 pt

Anchoring: Left, Top

Perform Script [ “Load List” ]

Scripts:

Load List

Table:

IMAP EMails

Layout Name:

IMAP Postbox

Top: 152 pt
Left: 15 pt
Bottom: 554 pt
Right: 1066 pt

Anchoring: Left, Top

Field Objects

IMAP EMails::Subject at (155, 18, 176, 269)
IMAP EMails::From at (155, 271, 176, 522)
IMAP EMails::To at (155, 524, 176, 775)
IMAP EMails::Date at (155, 777, 176, 1028)

Sort records: Off
Filter calculation: None
Initial Row: 1
Number of Rows: 16

Tab Controls

Tab Control Properties				Coordinates
Layout Name: IMAP Postbox Justification: Left Tab Width: Default Front Tab: Tab 0				Top: 122 pt Left: 8 pt Bottom: 565 pt Right: 1078 pt Anchoring: Left, Top
Tabs
Tab Properties	Tab Controls	Slide Controls	Fields	Buttons	Portals	Web Viewer Controls	Charts
Tab 0: "Emails"			Field Objects IMAP EMails::Subject at (155, 18, 176, 269) IMAP EMails::From at (155, 271, 176, 522) IMAP EMails::To at (155, 524, 176, 775) IMAP EMails::Date at (155, 777, 176, 1028)		Portal Object at (152, 15, 554, 1066)

Tab 1: "Debug"			Field Objects IMAP Postbox::JSON at (155, 43, 557, 535) IMAP Postbox::Log at (155, 550, 557, 1042)

Layout Objects: IMAP EMails

Regular Fields

Field Name: IMAP EMails::EmailID

Layout Name:

IMAP EMails

Top: 52 pt
Left: 138 pt
Bottom: 73 pt
Right: 217 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP EMails::PostboxID

Layout Name:

IMAP EMails

Top: 75 pt
Left: 138 pt
Bottom: 96 pt
Right: 217 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP EMails::Subject

Layout Name:

IMAP EMails

Top: 98 pt
Left: 138 pt
Bottom: 119 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP EMails::From

Layout Name:

IMAP EMails

Top: 121 pt
Left: 138 pt
Bottom: 142 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP EMails::To

Layout Name:

IMAP EMails

Top: 144 pt
Left: 138 pt
Bottom: 165 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP EMails::Date

Layout Name:

IMAP EMails

Top: 167 pt
Left: 138 pt
Bottom: 188 pt
Right: 379 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP EMails::URL

Layout Name:

IMAP EMails

Top: 190 pt
Left: 138 pt
Bottom: 211 pt
Right: 391 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP EMails::UID

Layout Name:

IMAP EMails

Top: 213 pt
Left: 138 pt
Bottom: 234 pt
Right: 217 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Yes

Field Name: IMAP EMails::JSON

Layout Name:

IMAP EMails

Top: 236 pt
Left: 138 pt
Bottom: 519 pt
Right: 504 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

Allow field to be entered: In Find mode, In Browse mode
Touch keyboard type: Default for Data Type
Go to next field using: Tab key

Script Name	Load List
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script	IMAP Postbox
Scripts that use this script
Script Definition
Script Steps	Go to Layout [ “IMAP Postbox” (IMAP Postbox) ] # get URL Set Variable [ $URL; Value:"imap://" & IMAP Postbox::Server URL & "/INBOX" ] # query list of emails Set Variable [ $curl; Value:MBS("CURL.New") ] Set Variable [ $r; Value:MBS("CURL.SetOptionURL"; $curl; $URL) ] Set Variable [ $r; Value:MBS("CURL.SetOptionUserName"; $curl; IMAP Postbox::Username) ] Set Variable [ $r; Value:MBS("CURL.SetOptionPassword"; $curl; IMAP Postbox::Password) ] Set Variable [ $result; Value:MBS("CURL.SetOptionUseSSL"; $curl; 3) // required ] Set Variable [ $result; Value:MBS("CURL.SetOptionSSLVersion"; $curl; 6) // TLS v1.2 ] // Set Variable [ $result; Value:MBS("CURL.SetOptionPort"; $curl; 993) ] #Set query for all emails by UID. Not all fields are needed. Only request those you need to make it quicker. Set Variable [ $r; Value:MBS("CURL.SetOptionCustomRequest"; $curl; "UID FETCH 1:* (FLAGS INTERNALDATE RFC822.SIZE BODY.PEEK[HEADER.FIELDS (Message-Id DATE FROM SUBJECT TO SENDER REPLY-TO CC BCC)])") ] #Run transfer Set Variable [ $result; Value:MBS("CURL.Perform"; $curl) ] #We show results for debugging Set Variable [ $output; Value:MBS("CURL.GetResultAsText"; $curl) ] Set Variable [ $debug; Value:MBS("CURL.GetDebugMessages"; $curl) ] Set Variable [ $list; Value:MBS( "JSON.Colorize";MBS("CURL.GetResultAsEMailList"; $curl)) ] Set Variable [ $r; Value:MBS("CURL.Release"; $curl) ] Set Field [ IMAP Postbox::Log; $debug ] Set Field [ IMAP Postbox::JSON; $list ] If [ $result = "OK" ] #And we create records for emails Set Variable [ $PostBoxID; Value:IMAP Postbox::PostboxID ] Go to Layout [ “IMAP EMails” (IMAP EMails) ] Set Variable [ $r; Value:MBS( "FM.DeleteRecords"; Get(FileName); "IMAP EMails"; "PostboxID"; IMAP Postbox::PostboxID ) ] #for performance, parse once and cache Set Variable [ $jsonList; Value:MBS( "JSON.Parse"; $list ) ] If [ MBS("IsError") = 0 ] Set Variable [ $count; Value:MBS( "JSON.GetArraySize"; $jsonList) ] If [ $count > 0 ] Set Variable [ $index; Value:0 ] Loop Set Variable [ $jsonItem; Value:MBS( "JSON.GetArrayItem"; $jsonList; $index; 1) ] Set Variable [ $Date; Value:MBS( "JSON.GetPathItem"; $jsonItem; "Date"; 1+2) ] Set Variable [ $Subject; Value:MBS( "JSON.GetPathItem"; $jsonItem; "Subject"; 1+2) ] Set Variable [ $UID; Value:MBS( "JSON.GetPathItem"; $jsonItem; "UID"; 1+2) ] Set Variable [ $URL; Value:MBS( "JSON.GetPathItem"; $jsonItem; "URL"; 1+2) ] Set Variable [ $jsonAddresses; Value:MBS( "JSON.GetObjectItem"; $jsonItem; "Addresses"; 1) ] Set Variable [ $To; Value:"" ] Set Variable [ $From; Value:"" ] If [ MBS("IsError") = 0 ] Set Variable [ $AddressCount; Value:MBS( "JSON.GetArraySize"; $jsonAddresses) ] If [ $AddressCount > 0 ] Set Variable [ $AddressIndex; Value:0 ] Loop Set Variable [ $jsonAddress; Value:MBS( "JSON.GetArrayItem"; $jsonAddresses; $Addressindex; 1) ] Set Variable [ $Name; Value:MBS( "JSON.GetPathItem"; $jsonAddress; "Name"; 1+2) ] Set Variable [ $Type; Value:MBS( "JSON.GetPathItem"; $jsonAddress; "Type"; 1+2) ] Set Variable [ $Email; Value:MBS( "JSON.GetPathItem"; $jsonAddress; "Email"; 1+2) ] If [ $Type = "To" ] Set Variable [ $To; Value:$To & If(Length($To)>0; ", "; "") & If(Length($Name) > 0; $Name & " (" & $Email & ")"; $Email) ] Else If [ $Type = "from" ] Set Variable [ $from; Value:$From & If(Length($From)>0; ", "; "") & If(Length($Name) > 0; $Name & " (" & $Email & ")"; $Email) ] End If #next Set Variable [ $AddressIndex; Value:$AddressIndex + 1 ] Exit Loop If [ $AddressIndex ≥ $AddressCount ] End Loop End If End If Set Variable [ $json ] New Record/Request Set Field [ IMAP EMails::Subject; $subject ] Set Field [ IMAP EMails::From; $From ] Set Field [ IMAP EMails::To; $To ] Set Field [ IMAP EMails::Date; $Date ] Set Field [ IMAP EMails::URL; $URL ] Set Field [ IMAP EMails::UID; $UID ] Set Field [ IMAP EMails::PostboxID; $PostboxID ] Set Field [ IMAP EMails::JSON; MBS("JSON.Colorize"; MBS("JSON.Format"; $jsonItem)) ] Commit Records/Requests Set Variable [ $r; Value:MBS( "JSON.Release"; $jsonItem ) ] Set Variable [ $r; Value:MBS( "JSON.Release"; $jsonAddresses ) ] #next Set Variable [ $index; Value:$index + 1 ] Exit Loop If [ $index ≥ $count ] End Loop End If Set Variable [ $r; Value:MBS( "JSON.Release"; $jsonList ) ] End If End If Go to Layout [ “IMAP Postbox” (IMAP Postbox) ]
Fields used in this script	IMAP Postbox::Server URL IMAP Postbox::Username IMAP Postbox::Password IMAP Postbox::Log IMAP Postbox::JSON IMAP Postbox::PostboxID IMAP EMails::Subject IMAP EMails::From IMAP EMails::To IMAP EMails::Date IMAP EMails::URL IMAP EMails::UID IMAP EMails::PostboxID IMAP EMails::JSON
Scripts used in this script
Layouts used in this script	IMAP Postbox IMAP EMails
Tables used in this script	IMAP EMails IMAP Postbox
Table occurrences used by this script	IMAP EMails IMAP Postbox
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Load List]

Script Name	Clear
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script
Scripts that use this script
Script Definition
Script Steps	Truncate Table [ No dialog; Table: “IMAP EMails” ] Truncate Table [ No dialog; Table: “IMAP Postbox” ]
Fields used in this script
Scripts used in this script
Layouts used in this script
Tables used in this script
Table occurrences used by this script
Custom Functions used by this script
Custom menu set used by this script

Download example: IMAP Email List

Used functions: