var
MI: MailItem;
begin
MI := Outlook.CreateItem(olMailItem) as MailItem;
MI.Recipients.Add('Debs@djpate.freeserve.co.uk');
MI.Subject := 'Greetings, O gorgeous one';
MI.Body := 'Your web pages fill me with delight';
MI.Attachments.Add('C:/CreditCardNo.txt', EmptyParam, EmptyParam, EmptyParam);
MI.Send;