• 追加された行はこの色です。
  • 削除された行はこの色です。
&tag(Palm,Program);

Palm標準のMailを使って、他のアプリからメールを送る方法。

-起動コードは''[[sysAppLaunchCmdGoToURL:http://www.palmos.com/dev/support/docs/palmos/AppLaunchCodes.html#1012191]]''。
-パラメータはHTML形式で、宛先、件名、本文をそれぞれmailto:、subject:、body:の後に書く。
-メール編集画面が開く。
-Versa Mail、CLIE Mailも同じ方法で良さそう。
#contents

*送信トレイに入れる [#ieb53e7e]

-起動コード：[[sysAppLaunchCmdAddRecord:http://www.palmos.com/dev/support/docs/palmos/AppLaunchCodes.html#1011469]]。
-パラメータブロック：[[MailAddRecordParamsType:http://www.palmos.com/dev/support/docs/palmos/AppLaunchCodes.html#1011483]]

サンプル
 UInt16		cardNo;
 LocalID		dbID;
 DmSearchStateType searchInfo;
 Char		*cmdPBP;
 
 if (DmGetNextDatabaseByTypeCreator(true, &searchInfo,
     sysFileTApplication, 'mail', true, &cardNo, &dbID)
     != dmErrCantFind)
-パラメータ
--宛先：mailTo
--件名：subject
--本文：body

#geshi(C){{
UInt16		cardNo;
LocalID		dbID;
Char		*string;
DmSearchState	state;
MailAddRecordParamsType *cmdPBP;

if (DmGetNextDatabaseByTypeCreator (true, &state,
    sysFileTApplication, 'mail', true, &cardNo, &dbID)
    != dmErrCantFind)
{
 cmdPBP =
 (MailAddRecordParamsType *)MemPtrNew (sizeof(MailAddRecordParamsType));
 if (cmdPBP)
 {
  cmdPBP = (Char *)MemPtrNew (
             StrLen (MyEmailAddressStr)
           + StrLen (MyEmailSubjectStr)
           + StrLen (MyEmailBodyStr)
           + 23);
 
  StrCopy (cmdPBP, "mailto:");
  StrCat (cmdPBP, MyEmailAddressStr);
  if (*subject || *body)
  string = (Char *)MemPtrNew (StrLen (mailTo)
                            + StrLen (subject)
                            + StrLen (body)+ 3); 
  if (string)
  {
   StrCat (cmdPBP, "?");
   if (*subject)
   {
    StrCat (cmdPBP, "subject=");
    StrCat (cmdPBP, MyEmailSubjectStr);
   }
   if (*body)
   {
    if (*subject)
     StrCat (cmdPBP, "&");
    StrCat (cmdPBP, "body=");
    StrCat (cmdPBP, MyEmailBodyStr);
   }
   StrPrintF (string, "%s%c%s%c%s%c",
              mailTo, chrNull, subject, chrNull, body, chrNull);

   cmdPBP->secret = false;
   cmdPBP->signature = true;
   cmdPBP->confirmRead = false;
   cmdPBP->confirmDelivery = false;
   cmdPBP->priority = mailPriorityNormal;
   cmdPBP->padding = 0;
   cmdPBP->subject = string + StrLen (mailTo) + 1;
   cmdPBP->from = "";
   cmdPBP->to = string;
   cmdPBP->cc = "";
   cmdPBP->bcc = "";
   cmdPBP->replyTo = "";
   cmdPBP->body = string + StrLen (mailTo) + StrLen (subject) + 2;

   if (MemPtrSetOwner (cmdPBP, 0) == errNone
    && MemPtrSetOwner (string, 0) == errNone)
    SysAppLaunch (cardNo, dbID, 0,
                  sysAppLaunchCmdAddRecord, cmdPBP, &result);
   MemPtrFree (string);
  }
 
  if (MemPtrSetOwner(cmdPBP, 0) == errNone)
   SysUIAppSwitch (cardNo, dbID, sysAppLaunchCmdGoToURL, cmdPBP);
  else
   MemPtrFree (cmdPBP);
  MemPtrFree (cmdPBP);
 }
}
}}

*下書きトレイに入れる [#mf81b6fa]

別の方法
-起動コード：''[[sysAppLaunchCmdAddRecord:http://www.palmos.com/dev/support/docs/palmos/AppLaunchCodes.html#1011469]]''。
-パラメータブロック：''[[MailAddRecordParamsType:http://www.palmos.com/dev/support/docs/palmos/AppLaunchCodes.html#1011483]]''
-起動コードは[[sysAppLaunchCmdGoToURL:http://www.palmos.com/dev/support/docs/palmos/AppLaunchCodes.html#1012191]]。
-パラメータブロックは文字列。書式はHTML形式。~
本来は、
#geshi(C){{
mailto:aaa@bbb.com?subject=件名&body=本文
}}
だが、これだとmailto以外のパラメータが入ったときに上手くいかないので、
#geshi(C){{
mailto:?=&to=aaa@bbb.com &subject=件名 &body=本文
}}
とした方が良さそう(?)

で、編集画面を開かずに全ての情報を渡す方法も有る。
サンプル
#geshi(C){{
UInt16		cardNo;
LocalID		dbID;
DmSearchStateType state;
UInt32		result;
Char		*cmdPBP;
Char		gotoURLString[] = "mailto:?=&to=%s &subject=%s &body=%s "

if (DmGetNextDatabaseByTypeCreator(true, &state,
    sysFileTApplication, 'mail', true, &cardNo, &dbID)
    != dmErrCantFind)
{
 cmdPBP = (Char *)MemPtrNew (StrLen (gotoURLString)
                           + StrLen (mailTo)
                           + StrLen (subject)
                           + StrLen (body) + 1);
 if (cmdPBP)
 {
  StrPrintF (cmdPBP, gotoURLString, mailTo, subject, body);
  if (MemPtrSetOwner(cmdPBP, 0) == errNone)
   SysAppLaunch (cardNo, dbID, 0, sysAppLaunchCmdGoToURL, cmdPBP, &result);
  MemPtrFree (cmdPBP);
 }
}
}}