SMTP_Send

version 6.5

SMTP_Send (smtp_ID) --> 整数

SMTP_Send コマンドは smtp_ID で参照されるメッセージを送信します。しかしメモリからデータをクリアすることはありません。

smtp_ID は SMTP_New コマンドで作成された倍長整数のメッセージ参照です。

この例題では、メッセージが作成され、スタティックな要素がループの外側で定義されています。そののち、[People] テーブルのレコード毎にメッセージがカスタマイズされ、送信されます。

   $error:=SMTP_New ($smtp_id)
   $error:=SMTP_Host ($smtp_id;"wkrp.com")
   $error:=SMTP_From ($smtp_id;"herb_tarlick@wkrp.com")
   $error:=SMTP_ReplyTo ($smtp_id;"bigguy@wkrp.com")
   $error:=SMTP_Subject ($smtp_id;"Discounts on Ad Space!")
   FIRST RECORD([People])
   For($i;1;Records in selection([People]))
      If ([People]Sales2Date>100000)
         $Body:=<>BigDiscText
      Else
         $Body:=<>SmlDiscText
      End if
      $Body:=Replace string ($BoilerPlate;"<Salutation>";[People]Firstname)
      $error:=SMTP_To ($smtp_id;[People]Email;1)   `"To"ヘッダを新しい値で置き換える
      $error:=SMTP_Body ($smtp_id;$Body)
      $error:=SMTP_Send ($smtp_id)
      NEXT RECORD([People])
   End for 
   $error:=SMTP_Clear ($smtp_id)

SMTP_New.