Monkeybread Software - MBS FileMaker Plugin: Email Parser

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

MBS FileMaker Plugin Example Databases

Email Parser

All examples are included with download of MBS FileMaker Plugin.

Email Parser.fmp12

Overview
Tables	4
Relationships	3
Layouts	4
Scripts	1
Value Lists	0
Custom Functions	0
Custom Menus	33

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
Email Parser	6 fields defined, 1 record	Email Parser
Address	4 fields defined, 3 records	Address
Attachment	3 fields defined, 1 record	Attachment
InlineGraphics	3 fields defined, 0 record	InlineGraphics

Fields

Table Name: Email Parser - 6 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
Input	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		Email Parser		ParseEmail
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		Email Parser		ParseEmail
PlainText	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Email Parser		ParseEmail
HTMLText	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Email Parser		ParseEmail
Mailer	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Email Parser		ParseEmail
EmailID	Normal, Number	Auto-Enter: Allow editing Do not replace existing value for field (if any) Context table: Email Parser Calculation: Get ( RecordID ) Validation: Only during data entry Storage: Repetitions: 1 Indexing: All Index Language: German		Email Parser	Attachment=Email Parser Email Parser=Address Email Parser=InlineGraphics

Table Name: Address - 4 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
Type	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Email Parser Address		ParseEmail
Name	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Email Parser Address		ParseEmail
Email	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Email Parser Address		ParseEmail
EmailID	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: All Index Language: German			Email Parser=Address	ParseEmail

Table Name: Attachment - 3 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
EmailID	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: All Index Language: German		Attachment	Attachment=Email Parser	ParseEmail
Content	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Email Parser Attachment		ParseEmail
FileName	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Email Parser Attachment		ParseEmail

Table Name: InlineGraphics - 3 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
EmailID	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: All Index Language: German		InlineGraphics	Email Parser=InlineGraphics	ParseEmail
Content	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		Email Parser InlineGraphics		ParseEmail
FileName	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		Email Parser InlineGraphics		ParseEmail

Relationship: Email Parser=Address

Table Occurrence	Email Parser		Address
Field	EmailID	=	EmailID
Source Table	Email Parser		Address
Source File	Email Parser.fmp12		Email Parser.fmp12
Allow creation of records via this relationship	Off		Off
Delete related records in this table when a record is deleted in the other table	Off		Off
Sort records	Off		Off

Relationship: Email Parser=InlineGraphics

Table Occurrence	Email Parser		InlineGraphics
Field	EmailID	=	EmailID
Source Table	Email Parser		InlineGraphics
Source File	Email Parser.fmp12		Email Parser.fmp12
Allow creation of records via this relationship	Off		Off
Delete related records in this table when a record is deleted in the other table	Off		Off
Sort records	Off		Off

Layout Hierarchy

Save record changes automatically

Show field frames when record is active

Show field frames only on current record

Show current record indicator in List View

13 Regular Fields
1 Group Buttons
3 Portals

3 Regular Fields

Address

Off

ParseEmail

[File Default]

Attachment

Yes

3 Regular Fields

Attachment

Off

ParseEmail

[File Default]

InlineGraphics

Yes

3 Regular Fields

InlineGraphics

Off

ParseEmail

[File Default]

Layout Objects: Email Parser

Regular Fields

Field Name: Email Parser::Input

Layout Name:

Email Parser

Top: 6 pt
Left: 132 pt
Bottom: 104 pt
Right: 385 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Field Name: Email Parser::Subject

Layout Name:

Email Parser

Top: 120 pt
Left: 132 pt
Bottom: 134 pt
Right: 385 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Email Parser::PlainText

Layout Name:

Email Parser

Top: 162 pt
Left: 132 pt
Bottom: 308 pt
Right: 481 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Email Parser::HTMLText

Layout Name:

Email Parser

Top: 162 pt
Left: 486 pt
Bottom: 308 pt
Right: 835 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Email Parser::Mailer

Layout Name:

Email Parser

Top: 138 pt
Left: 132 pt
Bottom: 152 pt
Right: 385 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Address::Type

Layout Name:

Email Parser

Top: 314 pt
Left: 13 pt
Bottom: 329 pt
Right: 192 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Address::Name

Layout Name:

Email Parser

Top: 314 pt
Left: 193 pt
Bottom: 329 pt
Right: 372 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Address::Email

Layout Name:

Email Parser

Top: 314 pt
Left: 373 pt
Bottom: 329 pt
Right: 551 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Attachment::Content

Layout Name:

Email Parser

Top: 439 pt
Left: 13 pt
Bottom: 455 pt
Right: 144 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Field Name: Attachment::FileName

Layout Name:

Email Parser

Top: 439 pt
Left: 145 pt
Bottom: 455 pt
Right: 275 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: InlineGraphics::Content

Layout Name:

Email Parser

Top: 439 pt
Left: 283 pt
Bottom: 455 pt
Right: 417 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Field Name: InlineGraphics::FileName

Layout Name:

Email Parser

Top: 439 pt
Left: 418 pt
Bottom: 455 pt
Right: 551 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Yes

Field Name: Email Parser::EmailID

Layout Name:

Email Parser

Top: 120 pt
Left: 780 pt
Bottom: 134 pt
Right: 835 pt

Anchoring: Left, Top

Field Format:

Edit Box

Field Behavior:

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

Type:

Text: Parse Email

Layout Name:

Email Parser

Additional Properties:

Change to hand cursor over button
Rectangular

Top: 78 pt
Left: 402 pt
Bottom: 103 pt
Right: 529 pt

Anchoring: Left, Top

Perform Script [ “ParseEmail” ]

Scripts:

ParseEmail

Table:

Address

Layout Name:

Email Parser

Top: 312 pt
Left: 12 pt
Bottom: 433 pt
Right: 553 pt

Anchoring: Left, Top

Field Objects

Address::Type at (314, 13, 329, 192)
Address::Name at (314, 193, 329, 372)
Address::Email at (314, 373, 329, 551)

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

Table:

Attachment

Layout Name:

Email Parser

Top: 438 pt
Left: 12 pt
Bottom: 565 pt
Right: 277 pt

Anchoring: Left, Top

Field Objects

Attachment::Content at (439, 13, 455, 144)
Attachment::FileName at (439, 145, 455, 275)

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

Table:

InlineGraphics

Layout Name:

Email Parser

Top: 438 pt
Left: 282 pt
Bottom: 565 pt
Right: 553 pt

Anchoring: Left, Top

Field Objects

InlineGraphics::Content at (439, 283, 455, 417)
InlineGraphics::FileName at (439, 418, 455, 551)

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

Layout Objects: Address

Regular Fields

Field Name: Address::Type

Layout Name:

Address

Top: 24 pt
Left: 138 pt
Bottom: 38 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: System Default
Go to next field using: Tab key

Yes

Field Name: Address::Name

Layout Name:

Address

Top: 42 pt
Left: 138 pt
Bottom: 56 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: System Default
Go to next field using: Tab key

Yes

Field Name: Address::Email

Layout Name:

Address

Top: 60 pt
Left: 138 pt
Bottom: 74 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: System Default
Go to next field using: Tab key

Yes

Layout Objects: Attachment

Regular Fields

Field Name: Attachment::EmailID

Layout Name:

Attachment

Top: 24 pt
Left: 138 pt
Bottom: 38 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: System Default
Go to next field using: Tab key

Yes

Field Name: Attachment::Content

Layout Name:

Attachment

Top: 42 pt
Left: 138 pt
Bottom: 167 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: System Default
Go to next field using: Tab key

Field Name: Attachment::FileName

Layout Name:

Attachment

Top: 168 pt
Left: 138 pt
Bottom: 182 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: System Default
Go to next field using: Tab key

Yes

Layout Objects: InlineGraphics

Regular Fields

Field Name: InlineGraphics::EmailID

Layout Name:

InlineGraphics

Top: 24 pt
Left: 138 pt
Bottom: 38 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: System Default
Go to next field using: Tab key

Yes

Field Name: InlineGraphics::Content

Layout Name:

InlineGraphics

Top: 42 pt
Left: 138 pt
Bottom: 167 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: System Default
Go to next field using: Tab key

Field Name: InlineGraphics::FileName

Layout Name:

InlineGraphics

Top: 168 pt
Left: 138 pt
Bottom: 182 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: System Default
Go to next field using: Tab key

Yes

Script Hierarchy

ParseEmail

Script Name	ParseEmail
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	Email Parser
Scripts that use this script
Script Definition
Script Steps	Set Variable [ $email; Value:MBS("EmailParser.Parse"; Email Parser::Input) ] If [ MBS("IsError") = 1 ] Show Custom Dialog [ Title: "Failed to parse email."; Message: Middle($email; 7; Length($email)); Default Button: “OK”, Commit: “Yes”; Button 2: “Cancel”, Commit: “No” ] Exit Script [ ] End If #Show text: Set Field [ Email Parser::Subject; MBS("EmailParser.Subject"; $email) ] Set Field [ Email Parser::PlainText; MBS("EmailParser.plainText"; $email) ] Set Field [ Email Parser::HTMLText; MBS("EmailParser.HTMLText"; $email) ] #find all addresses Set Variable [ $EmailRecordID; Value:Get(RecordID) ] Set Variable [ $i; Value:0 ] Set Variable [ $c; Value:MBS("EmailParser.AddressCount"; $email) ] If [ $c > 0 ] Go to Related Record [ From table: “Address”; Using layout: “Address” (Address) ] [ Show only related records ] Go to Layout [ “Address” (Address) ] Delete All Records [ No dialog ] Loop Set Variable [ $Name; Value:MBS("EmailParser.Address"; $email; $i; "name") ] Set Variable [ $emailAddress; Value:MBS("EmailParser.Address"; $email; $i; "email") ] Set Variable [ $type; Value:MBS("EmailParser.Address"; $email; $i; "type") ] New Record/Request Set Field [ Address::Type; $type ] Set Field [ Address::Email; $emailAddress ] Set Field [ Address::Name; $name ] Set Field [ Address::EmailID; $EmailRecordID ] Commit Records/Requests [ Skip data entry validation; No dialog ] #next Set Variable [ $i; Value:$i + 1 ] Exit Loop If [ $i = $c ] End Loop End If #find all attachments Set Variable [ $i; Value:0 ] Set Variable [ $c; Value:MBS("EmailParser.AttachmentCount"; $email) ] If [ $c > 0 ] Go to Related Record [ From table: “Attachment”; Using layout: “Attachment” (Attachment) ] [ Show only related records ] Go to Layout [ “Attachment” (Attachment) ] Delete All Records [ No dialog ] Loop Set Variable [ $Name; Value:MBS("EmailParser.attachment"; $email; $i; "filename") ] Set Variable [ $content; Value:MBS("EmailParser.attachment"; $email; $i; "container") ] New Record/Request Set Field [ Attachment::Content; $content ] Set Field [ Attachment::FileName; $name ] Set Field [ Attachment::EmailID; $EmailRecordID ] Commit Records/Requests [ Skip data entry validation; No dialog ] #next Set Variable [ $i; Value:$i + 1 ] Exit Loop If [ $i = $c ] End Loop End If #find all inline graphics Set Variable [ $i; Value:0 ] Set Variable [ $c; Value:MBS("EmailParser.InlineCount"; $email) ] If [ $c > 0 ] Go to Related Record [ From table: “InlineGraphics”; Using layout: “InlineGraphics” (InlineGraphics) ] [ Show only related records ] Go to Layout [ “InlineGraphics” (InlineGraphics) ] Delete All Records [ No dialog ] Loop Set Variable [ $Name; Value:MBS("EmailParser.inline"; $email; $i; "filename") ] Set Variable [ $content; Value:MBS("EmailParser.Inline"; $email; $i; "container") ] New Record/Request Set Field [ InlineGraphics::Content; $content ] Set Field [ InlineGraphics::FileName; $name ] Set Field [ InlineGraphics::EmailID; $EmailRecordID ] Commit Records/Requests [ Skip data entry validation; No dialog ] #next Set Variable [ $i; Value:$i + 1 ] Exit Loop If [ $i = $c ] End Loop End If Go to Layout [ original layout ] #find a header Set Variable [ $i; Value:0 ] Set Variable [ $c; Value:MBS("EmailParser.HeaderCount"; $email) ] If [ $c > 0 ] Loop Set Variable [ $HeaderName; Value:MBS("EmailParser.Header"; $email; $i; "name") ] If [ $HeaderName = "X-Mailer" ] Set Variable [ $HeaderValue; Value:MBS("EmailParser.Header"; $email; $i; "value") ] Set Field [ Email Parser::Mailer; $HeaderValue ] End If #next Set Variable [ $i; Value:$i + 1 ] Exit Loop If [ $i = $c ] End Loop End If #cleanup Set Variable [ $r; Value:MBS("EmailParser.Free"; $email) ]
Fields used in this script	Email Parser::Input Email Parser::Subject Email Parser::PlainText Email Parser::HTMLText Address::Type Address::Email Address::Name Address::EmailID Attachment::Content Attachment::FileName Attachment::EmailID InlineGraphics::Content InlineGraphics::FileName InlineGraphics::EmailID Email Parser::Mailer
Scripts used in this script
Layouts used in this script	Address Attachment InlineGraphics
Tables used in this script	Address Attachment Email Parser InlineGraphics
Table occurrences used by this script	Address Attachment Email Parser InlineGraphics
Custom Functions used by this script
Custom menu set used by this script

Download example: Email Parser

Used functions: