UTF-8
// 
// SMTPサーバを選択するダイアログを開き、結果を表示します。

:Start {
 //log open: dir=Dir.Desktop file="debugMacro.txt";
 //debug: true;
 
 Ex:Mail.SelectSmtpServer: O:waitId=str["waitId"] O:result=strl[10] message="SMTPサーバを選択してください" info-prefix="info";
 if (strl[10].StartsWith{"OK:"} == "false") {
   put: value="キャンセルされました";
   end:
   }
 Ex:InputForm.Wait: waitSec=120 O:result=strl[10] waitId=str["waitId"];
 if (strl[10].StartsWith{"OK:"} == "false") {
   put: value="キャンセルまたはタイムアウトです";
   end:
   }
 
 put: value="選択されたサーバ: ID=" str["info.server.Id"] ", Host=" str["info.server.Address"] ":" str["info.server.Port"];
 put: value="関連するメールアドレス: " str["info.user.Count"] "件";
 intl["count"]=str["info.user.Count"];
 intl[10]=0;
 while (intl[10] < intl["count"]) {
   strl[10]="info.user.";  strl[10]+=intl[10];  strl[10]+=".mailAddr";
   strl[11]="info.user.";  strl[11]+=intl[10];  strl[11]+=".mailName";
   put: value=" " str[strl[10]] " (" str[strl[11]] ")";
   culc: intl[10]++;
   }
 end:
 }