[Голышев Михаил]

UPD: Пример добавления нескольких атачментов:

CREATE(objMailApplication);
objMailItem := objMailApplication.CreateItem(0);
objMailItem."To"(sToName);
objMailItem.CC(sCCName);
objMailItem.Subject(sSubject);
IF bFormatHTML THEN
  objMailItem.HTMLBody(sBody)
ELSE
  objMailItem.Body(sBody);
IF (sAttachFileName1 <> '') OR (sAttachFileName2 <> '') OR (sAttachFileName3 <> '') THEN BEGIN
  objMailAttachments := objMailItem.Attachments;
  IF (sAttachFileName1 <> '') THEN
	objMailAttachments.Add(sAttachFileName1);
  IF (sAttachFileName2 <> '') THEN
	objMailAttachments.Add(sAttachFileName2);
  IF (sAttachFileName3 <> '') THEN
	objMailAttachments.Add(sAttachFileName3);
END;

objMailItem.Categories := 'Navision';
IF bDontSend THEN
  objMailItem.Display(FALSE)
ELSE
  objMailItem.Send;
CLEAR(objMailApplication);

все automation - это Microsoft Outlook 11.0 Object Library