FileMaker で Google Apps (Gmail) の PermanentLink を取得するカスタム関数

自分用に、Google Apps の個々のメールの PermanentLink を取得する FileMaker のカスタム関数を作りました。

理屈は、別記事：Google Apps (Gmail) で PermanentLink を取得する方法の通りです。

____________________
GetGmailURL ( webviewerObjectName ; shvaOption )
____________________

// Created: 2011/02/15
// by bison
//
// Parameter:
// 　webviewerObjectName : Webビューアのオブジェクト名
// 　shvaOption : 0 の場合 shvaパラメータを省略します。
// 　　1 もしくは 空値 ( "" ) の場合は ?shva=1 を付けます。
// Explanation:
// 　GMail (Google Apps) の個別メッセージURLの場合、
// 　個々のメッセージのパーマネントURL を返します。
// 　それ以外の場合、当該Webビューアで表示中のURLを返します。
/////////////////
Let (
[
$myurl = GetLayoutObjectAttribute ( webviewerObjectName ; "source" ) ;
$gmailJudgeText = "https://mail.google.com/mail/" ;
$startPos = Length ( $gmailJudgeText ) ;
$gmailFlag = Left ( $myurl ; $startPos ) = $gmailJudgeText ;
$spos = Position ( $myurl ; "/" ; 1 ; PatternCount ( $myurl ; "/" ) ) // Position of last slash
] ;

Case ( $gmailFlag ;
	Replace ( $myurl ; $startPos ; $spos - $startPos ;
	Case ( shvaOption = 0 or IsEmpty ( shvaOption ) ; "/#all" ;
	"/?shva=1/#all" ) )
	; $myurl ) // Case
)

____________________

____________________

GetGmailURL ( webviewerObjectName ; shvaOption )

____________________

// Created: 2011/02/15

// by bison

// Parameter:

// 　webviewerObjectName : Webビューアのオブジェクト名

// 　shvaOption : 0 の場合 shvaパラメータを省略します。

// 　　1 もしくは空値 ( "" ) の場合は ?shva=1 を付けます。

// Explanation:

// 　GMail (Google Apps) の個別メッセージURLの場合、

// 　個々のメッセージのパーマネントURL を返します。

// 　それ以外の場合、当該Webビューアで表示中のURLを返します。

/////////////////

Let (

[

$myurl = GetLayoutObjectAttribute ( webviewerObjectName ; "source" ) ;

$gmailJudgeText = "https://mail.google.com/mail/" ;

$startPos = Length ( $gmailJudgeText ) ;

$gmailFlag = Left ( $myurl ; $startPos ) = $gmailJudgeText ;

$spos = Position ( $myurl ; "/" ; 1 ; PatternCount ( $myurl ; "/" ) ) // Position of last slash

] ;

Case ( $gmailFlag ;

Replace ( $myurl ; $startPos ; $spos - $startPos ;

Case ( shvaOption = 0 or IsEmpty ( shvaOption ) ; "/#all" ;

"/?shva=1/#all" ) )

; $myurl ) // Case

)

____________________

※ shvaOption については、
Gmail’s SHVA Parameter
Gmailで日本語を検索した際の不具合
あたりを参照してください。

コメント