Monkeybread Software - MBS FileMaker Plugin: Email Parser and Preview

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 and Preview

All examples are included with download of MBS FileMaker Plugin.

Email Parser and Preview.fmp12

Overview
Tables	4
Relationships	3
Layouts	4
Scripts	4
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	7 fields defined, 0 record	Email Parser
Address	4 fields defined, 0 record	Address
Attachment	3 fields defined, 0 record	Attachment
InlineGraphics	4 fields defined, 0 record	InlineGraphics

Fields

Table Name: Email Parser - 7 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 Clear Load Test Email
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 ShowEmail
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	ParseEmail
Datum	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

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 - 4 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 ShowEmail
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
CID	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		InlineGraphics		ParseEmail ShowEmail

Relationship: Email Parser=Address

Table Occurrence	Email Parser		Address
Field	EmailID	=	EmailID
Source Table	Email Parser		Address
Source File	Email Parser and Preview.fmp12		Email Parser and Preview.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 and Preview.fmp12		Email Parser and Preview.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

14 Regular Fields
3 Group Buttons
3 Portals
1 Web Viewer Controls

Email Parser

Off

ParseEmail
ShowEmail
Clear

[File Default]

Address

Yes

3 Regular Fields

Address

Off

ParseEmail
Clear

[File Default]

Attachment

Yes

3 Regular Fields

Attachment

Off

ParseEmail
Clear

[File Default]

InlineGraphics

Yes

4 Regular Fields

InlineGraphics

Off

ParseEmail
ShowEmail
Clear

[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: 174 pt
Left: 132 pt
Bottom: 320 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: 174 pt
Left: 486 pt
Bottom: 320 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: 645 pt
Left: 9 pt
Bottom: 660 pt
Right: 188 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: 645 pt
Left: 189 pt
Bottom: 660 pt
Right: 368 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: 645 pt
Left: 369 pt
Bottom: 660 pt
Right: 547 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: 644 pt
Left: 557 pt
Bottom: 660 pt
Right: 688 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: 644 pt
Left: 689 pt
Bottom: 660 pt
Right: 819 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: 644 pt
Left: 830 pt
Bottom: 660 pt
Right: 964 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: 644 pt
Left: 965 pt
Bottom: 660 pt
Right: 1098 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

Yes

Field Name: Email Parser::Datum

Layout Name:

Email Parser

Top: 156 pt
Left: 132 pt
Bottom: 170 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: Default for Data Type
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

Button Properties

Coordinates

Script/Script Step

Type:

Text: Show Preview

Layout Name:

Email Parser

Additional Properties:

Change to hand cursor over button
Rectangular

Top: 145 pt
Left: 731 pt
Bottom: 170 pt
Right: 835 pt

Anchoring: Left, Top

Perform Script [ “ShowEmail” ]

Scripts:

ShowEmail

Button Properties

Coordinates

Script/Script Step

Type:

Text: Load test email

Layout Name:

Email Parser

Additional Properties:

Change to hand cursor over button
Rectangular

Top: 14 pt
Left: 714 pt
Bottom: 39 pt
Right: 831 pt

Anchoring: Left, Top

Perform Script [ “Load Test Email” ]

Scripts:

Load Test Email

Table:

Address

Layout Name:

Email Parser

Top: 643 pt
Left: 8 pt
Bottom: 764 pt
Right: 549 pt

Anchoring: Left, Top

Field Objects

Address::Type at (645, 9, 660, 188)
Address::Name at (645, 189, 660, 368)
Address::Email at (645, 369, 660, 547)

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

Table:

Attachment

Layout Name:

Email Parser

Top: 643 pt
Left: 556 pt
Bottom: 770 pt
Right: 821 pt

Anchoring: Left, Top

Field Objects

Attachment::Content at (644, 557, 660, 688)
Attachment::FileName at (644, 689, 660, 819)

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

Table:

InlineGraphics

Layout Name:

Email Parser

Top: 643 pt
Left: 829 pt
Bottom: 770 pt
Right: 1100 pt

Anchoring: Left, Top

Field Objects

InlineGraphics::Content at (644, 830, 660, 964)
InlineGraphics::FileName at (644, 965, 660, 1098)

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

Web Viewer Controls

Web Viewer Control Properties

Coordinates

Web Address

Object Name:

Layout Name:

Email Parser

Additional Properties:

Allow interaction with web viewer content
Display progress bar
Display status messages
Automatically encode URL

Top: 324 pt
Left: 132 pt
Bottom: 634 pt
Right: 835 pt

Anchoring: Left, Top

"about:blank"

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

Field Name: InlineGraphics::CID

Layout Name:

InlineGraphics

Top: 191 pt
Left: 138 pt
Bottom: 205 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

Next Script: [ShowEmail]

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: Go to Layout [ “Email Parser” (Email Parser) ] New Record/Request 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) ] Set Field [ Email Parser::Datum; MBS("EmailParser.SentDate"; $email) ] Set Field [ Email Parser::EmailID; Get(RecordID) ] Commit Records/Requests [ No dialog ] #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 ] Set Field [ InlineGraphics::CID; MBS( "EmailParser.Inline"; $email; $i; "contentId" ) ] 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 [ “Email Parser” (Email Parser) ] #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) ] Commit Records/Requests [ No dialog ]
Fields used in this script	Email Parser::Input Email Parser::Subject Email Parser::PlainText Email Parser::HTMLText Email Parser::Datum Email Parser::EmailID Address::Type Address::Email Address::Name Address::EmailID Attachment::Content Attachment::FileName Attachment::EmailID InlineGraphics::Content InlineGraphics::FileName InlineGraphics::EmailID InlineGraphics::CID Email Parser::Mailer
Scripts used in this script
Layouts used in this script	Email Parser 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

Previous Script: [ParseEmail]

Next Script: [Clear]

Script Name	ShowEmail
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 [ $html; Value:Email Parser::HTMLText ] Set Variable [ $html; Value:MBS("EmailParser.ProcessImageReferences"; Email Parser::HTMLText) ] Set Variable [ $desktopPath; Value:MBS( "Folders.UserTemporary" ) ] Set Variable [ $tempFolder; Value:MBS( "Path.AddPathComponent"; $desktopPath; "Email") ] Set Variable [ $r; Value:MBS( "Files.CreateDirectory"; $tempFolder ) ] Set Variable [ $htmlFile; Value:MBS( "Path.AddPathComponent"; $tempFolder; "email.html") ] Set Variable [ $r; Value:MBS( "Text.WriteTextFile"; $html; $htmlFile ; "utf8" ) ] Go to Related Record [ From table: “InlineGraphics”; Using layout: “InlineGraphics” (InlineGraphics) ] If [ Get(LastError) = 0 ] Go to Record/Request/Page [ First ] Loop Set Variable [ $name; Value:Substitute(InlineGraphics::CID; "/"; "-") ] Set Variable [ $name; Value:MBS( "Text.RemovePrefix"; $name; "<" ) ] Set Variable [ $name; Value:MBS( "Text.RemovePostfix"; $name; ">" ) ] Set Variable [ $name; Value:"cid-" & $name ] Set Variable [ $file; Value:MBS( "Path.AddPathComponent"; $tempFolder; $name) ] Set Variable [ $r; Value:MBS( "Files.WriteFile"; InlineGraphics::Content; $file) ] Go to Record/Request/Page [ Next; Exit after last ] End Loop If [ MBS("IsWindows") ] Set Variable [ $htmlFile; Value:Substitute($htmlFile; "\\"; "/") ] End If End If Go to Related Record [ From table: “Email Parser”; Using layout: “Email Parser” (Email Parser) ] #allow file URLs for FileMaker 16 on Mac Set Variable [ $htmlFile; Value:MBS( "Path.FilePathToFileURL"; $htmlFIle ) ] Set Web Viewer [ Object Name: "web"; URL: $htmlFile ]
Fields used in this script	Email Parser::HTMLText InlineGraphics::CID InlineGraphics::Content
Scripts used in this script
Layouts used in this script	InlineGraphics Email Parser
Tables used in this script	Email Parser InlineGraphics
Table occurrences used by this script	Email Parser InlineGraphics
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [ShowEmail]

Next Script: [Load Test Email]

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	Go to Layout [ “Address” (Address) ] Delete All Records [ No dialog ] Go to Layout [ “Attachment” (Attachment) ] Delete All Records [ No dialog ] Go to Layout [ “InlineGraphics” (InlineGraphics) ] Delete All Records [ No dialog ] Go to Layout [ “Email Parser” (Email Parser) ] Delete All Records [ No dialog ] Set Field [ Email Parser::Input; "" ] Commit Records/Requests [ No dialog ]
Fields used in this script	Email Parser::Input
Scripts used in this script
Layouts used in this script	Address Attachment InlineGraphics Email Parser
Tables used in this script	Email Parser
Table occurrences used by this script	Email Parser
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [Clear]

Script Name	Load Test Email
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	#Load test email from MBS Server #Start new session Set Variable [ $curl; Value:MBS("CURL.New") ] #Set URL to load (HTTP, HTTPS, FTP, FTPS, SFTP, etc.) Set Variable [ $result; Value:MBS("CURL.SetOptionURL"; $curl; "http://monkeybreadsoftware.de/filemaker/testemail.eml") ] #RUN now Set Variable [ $r; Value:MBS("CURL.Perform"; $curl) ] #Check result Set Field [ Email Parser::Input; MBS("CURL.GetResultAsText"; $curl; "UTF8") ] #Cleanup Set Variable [ $result; Value:MBS("CURL.Cleanup"; $curl) ]
Fields used in this script	Email Parser::Input
Scripts used in this script
Layouts used in this script
Tables used in this script	Email Parser
Table occurrences used by this script	Email Parser
Custom Functions used by this script
Custom menu set used by this script

Download example: Email Parser and Preview

Used functions: