Monkeybread Software - MBS FileMaker Plugin: Email Client

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

MBS FileMaker Plugin Example Databases

Email Client

All examples are included with download of MBS FileMaker Plugin.

Email Client.fmp12

Overview
Tables	4
Relationships	3
Layouts	4
Scripts	4
Value Lists	1
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
EmailClient	13 fields defined, 0 record	EmailClient
Address	4 fields defined, 0 record	Address
Attachment	3 fields defined, 0 record	Attachment
InlineGraphics	3 fields defined, 0 record	InlineGraphics

Fields

Table Name: EmailClient - 13 Fields
Field Name	Type	Options	Comments	On Layouts	In Relationships	In Scripts	In Value Lists
Server	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		EmailClient		GetEmails
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		EmailClient		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		EmailClient		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		EmailClient		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		EmailClient		ParseEmail
EmailID	Normal, Number	Auto-Enter: Allow editing Do not replace existing value for field (if any) Context table: EmailClient Calculation: Get ( RecordID ) Validation: Only during data entry Storage: Repetitions: 1 Indexing: All Index Language: German		EmailClient	Attachment=EmailClient EmailClient=Address EmailClient=InlineGraphics
Username	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		EmailClient		GetEmails
Password	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		EmailClient		GetEmails
Type	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Value list: EmailServerType Storage: Global Repetitions: 1 Index Language: German		EmailClient		GetEmails
ErrorLog	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Global Repetitions: 1 Index Language: German		EmailClient		ClearAll GetEmails
Hash	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: Minimal Automatically create indexes as needed Index Language: German		EmailClient		ParseEmail
Source	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		EmailClient		ParseEmail
Source Without Attachment	Normal, Text	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: None Automatically create indexes as needed Index Language: German		EmailClient		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		EmailClient 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		EmailClient 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		EmailClient Address		ParseEmail
EmailID	Normal, Number	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1 Indexing: All Index Language: German			EmailClient=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=EmailClient	ParseEmail
Content	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		EmailClient 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		EmailClient 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	EmailClient=InlineGraphics	ParseEmail
Content	Normal, Binary	Auto-Enter: Allow editing Validation: Only during data entry Storage: Repetitions: 1		EmailClient 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		EmailClient InlineGraphics		ParseEmail

Relationship: EmailClient=Address

Table Occurrence	EmailClient		Address
Field	EmailID	=	EmailID
Source Table	EmailClient		Address
Source File	Email Client.fmp12		Email Client.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: EmailClient=InlineGraphics

Table Occurrence	EmailClient		InlineGraphics
Field	EmailID	=	EmailID
Source Table	EmailClient		InlineGraphics
Source File	Email Client.fmp12		Email Client.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

20 Regular Fields
1 Group Buttons
3 Portals

EmailClient

Off

ClearAll
ParseEmail

[File Default]

Address

Yes

3 Regular Fields

Address

Off

ClearAll
ParseEmail

[File Default]

Attachment

Yes

3 Regular Fields

Attachment

Off

ClearAll
ParseEmail

[File Default]

InlineGraphics

Yes

3 Regular Fields

InlineGraphics

Off

ClearAll
ParseEmail

[File Default]

Layout Objects: EmailClient

Regular Fields

Field Name: EmailClient::Server

Layout Name:

EmailClient

Top: 6 pt
Left: 132 pt
Bottom: 20 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: EmailClient::Subject

Layout Name:

EmailClient

Top: 84 pt
Left: 132 pt
Bottom: 98 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: EmailClient::PlainText

Layout Name:

EmailClient

Top: 126 pt
Left: 132 pt
Bottom: 272 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: EmailClient::HTMLText

Layout Name:

EmailClient

Top: 126 pt
Left: 486 pt
Bottom: 272 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: EmailClient::Mailer

Layout Name:

EmailClient

Top: 102 pt
Left: 132 pt
Bottom: 116 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:

EmailClient

Top: 278 pt
Left: 13 pt
Bottom: 293 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:

EmailClient

Top: 278 pt
Left: 193 pt
Bottom: 293 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:

EmailClient

Top: 278 pt
Left: 373 pt
Bottom: 293 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:

EmailClient

Top: 403 pt
Left: 13 pt
Bottom: 419 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:

EmailClient

Top: 403 pt
Left: 145 pt
Bottom: 419 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:

EmailClient

Top: 403 pt
Left: 283 pt
Bottom: 419 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:

EmailClient

Top: 403 pt
Left: 418 pt
Bottom: 419 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: EmailClient::EmailID

Layout Name:

EmailClient

Top: 84 pt
Left: 780 pt
Bottom: 98 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: EmailClient::Username

Layout Name:

EmailClient

Top: 24 pt
Left: 132 pt
Bottom: 38 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: EmailClient::Password

Layout Name:

EmailClient

Top: 42 pt
Left: 132 pt
Bottom: 56 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: EmailClient::Type

Layout Name:

EmailClient

Top: 60 pt
Left: 132 pt
Bottom: 74 pt
Right: 385 pt

Anchoring: Left, Top

Field Format:

Drop-down List
Display values from: EmailServerType
Auto-complete using value list

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: EmailClient::ErrorLog

Layout Name:

EmailClient

Top: 6 pt
Left: 708 pt
Bottom: 74 pt
Right: 961 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: EmailClient::Hash

Layout Name:

EmailClient

Top: 534 pt
Left: 138 pt
Bottom: 548 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: EmailClient::Source

Layout Name:

EmailClient

Top: 552 pt
Left: 138 pt
Bottom: 734 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: EmailClient::Source Without Attachment

Layout Name:

EmailClient

Top: 552 pt
Left: 552 pt
Bottom: 733 pt
Right: 805 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: Download emails

Layout Name:

EmailClient

Additional Properties:

Change to hand cursor over button
Rectangular

Top: 48 pt
Left: 402 pt
Bottom: 73 pt
Right: 529 pt

Anchoring: Left, Top

Perform Script [ “GetEmails” ]

Scripts:

GetEmails

Table:

Address

Layout Name:

EmailClient

Top: 276 pt
Left: 12 pt
Bottom: 397 pt
Right: 553 pt

Anchoring: Left, Top

Field Objects

Address::Type at (278, 13, 293, 192)
Address::Name at (278, 193, 293, 372)
Address::Email at (278, 373, 293, 551)

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

Table:

Attachment

Layout Name:

EmailClient

Top: 402 pt
Left: 12 pt
Bottom: 529 pt
Right: 277 pt

Anchoring: Left, Top

Field Objects

Attachment::Content at (403, 13, 419, 144)
Attachment::FileName at (403, 145, 419, 275)

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

Table:

InlineGraphics

Layout Name:

EmailClient

Top: 402 pt
Left: 282 pt
Bottom: 529 pt
Right: 553 pt

Anchoring: Left, Top

Field Objects

InlineGraphics::Content at (403, 283, 419, 417)
InlineGraphics::FileName at (403, 418, 419, 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

Value Lists

Value List Name	Source	Values	On Layouts
EmailServerType	Custom	POP3, IMAP	EmailClient

Next Script: [GetEmails]

Script Name	ClearAll
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 [ “EmailClient” (EmailClient) ] Delete All Records [ No dialog ] 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 [ original layout ] Set Field [ EmailClient::ErrorLog; "" ] Commit Records/Requests
Fields used in this script	EmailClient::ErrorLog
Scripts used in this script
Layouts used in this script	EmailClient Address Attachment InlineGraphics
Tables used in this script	EmailClient
Table occurrences used by this script	EmailClient
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [ClearAll]

Next Script: [Hide ProgressDialog]

Script Name	GetEmails
Run script with full access privileges	Off
Include In Menu	Yes
Layouts that use this script	EmailClient
Scripts that use this script
Script Definition
Script Steps	# get URL If [ EmailClient::Type = "IMAP" ] Set Variable [ $URL; Value:"imap://" & EmailClient::Server & "/INBOX" ] Set Variable [ $imap; Value:1 ] Set Variable [ $pop3; Value:0 ] Else If [ EmailClient::Type = "POP3" ] Set Variable [ $URL; Value:"pop3://" & EmailClient::Server & "/" ] Set Variable [ $imap; Value:0 ] Set Variable [ $pop3; Value:1 ] Else Exit Script [ ] End If # show progress Set Variable [ $r; Value:MBS("ProgressDialog.SetTopText"; "Get Email") ] Set Variable [ $r; Value:MBS("ProgressDialog.SetBottomText"; "List emails...") ] Set Variable [ $r; Value:MBS("ProgressDialog.SetProgress"; -1) ] Set Variable [ $r; Value:MBS("ProgressDialog.Show") ] # 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; EmailClient::Username) ] Set Variable [ $r; Value:MBS("CURL.SetOptionPassword"; $curl; EmailClient::Password) ] If [ $imap ] Set Variable [ $r; Value:MBS("CURL.SetOptionCustomRequest"; $curl; "FETCH 1:* FLAGS") ] End If Set Variable [ $result; Value:MBS("CURL.Perform"; $curl) ] Set Field [ EmailClient::ErrorLog; MBS("CURL.GetDebugMessages"; $curl) ] Set Variable [ $output; Value:MBS("CURL.GetResultAsText"; $curl) ] Set Variable [ $r; Value:MBS("ProgressDialog.Update") ] If [ $result ≠ "OK" ] Show Custom Dialog [ Title: "Failed to get emails"; Message: "See error log field for details."; Default Button: “OK”, Commit: “Yes”; Button 2: “Cancel”, Commit: “No” ] Else # get emails Set Variable [ $EmailCount; Value:ValueCount ( $output ) ] Set Variable [ $EmailIndex; Value:1 ] Loop Set Variable [ $r; Value:MBS("ProgressDialog.SetProgress";100 * $EmailIndex / ($EmailCount-1) ) ] Set Variable [ $r; Value:MBS("ProgressDialog.SetBottomText"; "Get Email " & ($EmailIndex+1) & " of " & ($EmailCount-1) ) ] Set Variable [ $r; Value:MBS("ProgressDialog.Update") ] # get an email ID Set Variable [ $EmailID; Value:GetValue ( $output ; $EmailIndex ) ] Set Variable [ $r; Value:MBS("CURL.SetOptionCustomRequest"; $curl; "") ] If [ $imap ] Set Variable [ $EmailID; Value:GetValue(Substitute($EmailID; " "; ¶); 2) ] Set Variable [ $r; Value:MBS("CURL.SetOptionURL"; $curl; $URL & ";UID=" & $EmailID) ] Else Set Variable [ $EmailID; Value:GetValue(Substitute($EmailID; " "; ¶); 1) ] Set Variable [ $r; Value:MBS("CURL.SetOptionURL"; $curl; $URL & $EmailID) ] End If If [ $EmailID ≠ "" ] // Set Variable [ $r; Value:MBS("Log"; "EmailID: "; $EmailID) ] # get an email Set Variable [ $result; Value:MBS("CURL.Perform"; $curl) ] Set Field [ EmailClient::ErrorLog; MBS("CURL.GetDebugMessages"; $curl; "UTF-8") ] If [ $result ≠ "OK" ] Show Custom Dialog [ Title: "Failed to load an email."; Message: "See error log field for details."; Default Button: “OK”, Commit: “Yes”; Button 2: “Cancel”, Commit: “No” ] Exit Loop If [ 1 ] Else # parse email Set Variable [ $EmailRef; Value:MBS("CURL.GetResultAsEmail"; $curl) ] If [ MBS("IsError") ] Show Custom Dialog [ Title: "Failed to get an email."; Message: "See error log field for details."; Default Button: “OK”, Commit: “Yes”; Button 2: “Cancel”, Commit: “No” ] Exit Loop If [ 1 ] Else Perform Script [ “ParseEmail”; Parameter: $EmailRef ] End If End If End If # next Set Variable [ $EmailIndex; Value:$EmailIndex + 1 ] Exit Loop If [ $EmailIndex > $EmailCount ] Exit Loop If [ MBS("ProgressDialog.GetCancel") ] End Loop End If Set Variable [ $r; Value:MBS("ProgressDialog.Hide") ] Set Variable [ $r; Value:MBS("CURL.Release"; $curl) ]
Fields used in this script	EmailClient::Type EmailClient::Server EmailClient::Username EmailClient::Password EmailClient::ErrorLog
Scripts used in this script	ParseEmail
Layouts used in this script
Tables used in this script	EmailClient
Table occurrences used by this script	EmailClient
Custom Functions used by this script
Custom menu set used by this script

Previous Script: [GetEmails]

Next Script: [ParseEmail]

Script Name	Hide ProgressDialog
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	Set Variable [ $r; Value:MBS("ProgressDialog.Hide") ]
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

Previous Script: [Hide ProgressDialog]

Script Name	ParseEmail
Run script with full access privileges	Off
Include In Menu	No
Layouts that use this script
Scripts that use this script	GetEmails
Script Definition
Script Steps	Set Variable [ $email; Value:Get(ScriptParameter) ] Set Variable [ $hash; Value:MBS("EmailParser.Hash"; $email) ] Go to Layout [ “EmailClient” (EmailClient) ] #Show text: If [ /* detect duplicates / GetAsNumber(MBS("FM.ExecuteSQL"; "SELECT COUNT() FROM EMailClient WHERE Hash='" & $Hash & "'")) < 1 ] New Record/Request Set Field [ EmailClient::Hash; $hash ] Set Field [ EmailClient::Source; MBS("EmailParser.Source"; $email) ] Set Field [ EmailClient::Source Without Attachment; MBS("EmailParser.SourceWithoutAttachments"; $email) ] Set Field [ EmailClient::Subject; MBS("EmailParser.Subject"; $email) ] Set Field [ EmailClient::PlainText; MBS("EmailParser.plainText"; $email) ] Set Field [ EmailClient::HTMLText; MBS("EmailParser.HTMLText"; $email) ] Commit Records/Requests [ Skip data entry validation; 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) ] 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) ] 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) ] 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 [ EmailClient::Mailer; $HeaderValue ] End If #next Set Variable [ $i; Value:$i + 1 ] Exit Loop If [ $i = $c ] End Loop End If End If #cleanup Set Variable [ $r; Value:MBS("EmailParser.Free"; $email) ]
Fields used in this script	EmailClient::Hash EmailClient::Source EmailClient::Source Without Attachment EmailClient::Subject EmailClient::PlainText EmailClient::HTMLText Address::Type Address::Email Address::Name Address::EmailID Attachment::Content Attachment::FileName Attachment::EmailID InlineGraphics::Content InlineGraphics::FileName InlineGraphics::EmailID EmailClient::Mailer
Scripts used in this script
Layouts used in this script	EmailClient Address Attachment InlineGraphics
Tables used in this script	Address Attachment EmailClient InlineGraphics
Table occurrences used by this script	Address Attachment EmailClient InlineGraphics
Custom Functions used by this script
Custom menu set used by this script

Download example: Email Client

Used functions: