Загружаю вложение в Outlook и отсылаю таким кодом:

with OutlookApplication1.CreateItem(olMailItem) as mailitem do
begin
To_ := 'MyBox@mail.ru';
Subject := 'Test';
Attachments.Add(OpenDialog1.FileName,1,1,'');
Body :='Filename '+ExtractFileName(OpenDialog1.FileName);
Send;
end;

Как сделать, чтобы Outlook перед отправкой сделался видимым ?
(нужно вписать туда письмо)

Вопрос решился сам

mail:=OutlookApplication1.CreateItem(olMailItem) as mailitem

with mail do
begin
To_ := 'MyBox@mail.ru';
Subject := 'Test';
Attachments.Add(OpenDialog1.FileName,1,1,'');
Body :='Filename '+ExtractFileName(OpenDialog1.FileName);
display(true);
Send;
end;