Как лучше делать пошаговую email-рассылку?

function RegMail(){   
$ID = 258;//Выпуск почтовой рассылки
$rsPosting = CPosting::GetByID($ID);
      $arPosting = $rsPosting->Fetch();
      
      if($arPosting && $arPosting["STATUS"] == "S"){

$mess = "содержимое";   
         
$posting = new CPosting;
            $arFields = Array(
               "BODY" => $mess,
               "STATUS" => "D",
            );

            if(!$posting->Update($ID, $arFields)){   
               $strError = $posting->LAST_ERROR;
            }else{      
               $posting->ChangeStatus($ID, "P");
               $posting->SendMessage($ID);
            }      
}
   return 'RegMail();';
   }