[XIO]

Ну с вордом то я так более менее разобрался. С оутлуком почти. Но есть ряд вопросов.
Имеется код:

Код:

procedure TForm1.Button7Click(Sender: TObject);
Var
  myItem, myAttachments, myAttachment : Variant;
begin
  Try
    If VarType(OleOutlook) <> varDispatch Then
      OleOutlook := CreateOleObject('Outlook.Application');
    myItem := OleOutlook.CreateItem(olMailItem);
    myItem.Display;
    myItem.To := 'Адреса получателей...';
    myItem.Subject := 'Test My Mail';
    myItem.Body := 'Test My Mail';
    myAttachments := myItem.Attachments;
    //myAttachment := myAttachments.Add("c:\read_me.txt");
    myItem.Send;
  Except
    ShowMessage('OLE error!');
  End;
  OleOutlook := Unassigned;
end;

Данный код вполне работоспособен. Но! Есть ряд нареканий. Во первых myItem.Body имеет тип строки и при попытки присвоить даному свойству Memo.Lines вываливается ошибка.

суть задачи формировать письма по шабонам, и рассылать на указаные адреса. в самом аутлуке есть примеры на бейсике, но ввиду англоязычности не могу догнать истину((( надеюсь на вашу помощь.