Email mit Outloook über Delphi verschicken

[Overclocker]

Hi,

mit folgendem Code schicke ich aus meinem Programm heraus eine Email:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
const
  olMailItem = 0;
var
  vMailItem: variant;
begin
  vMailItem := outlookapplication1.createitem(olMailItem);
  vMailItem.Recipients.Add('[e-mail]');
  vMailItem.Subject := 'test email';
  vMailItem.Body := memo1.text;
  //vMailItem.Attachments.Add('C:\temp\sample.txt'); //Anlagen brauche ich nicht
  vMailItem.Send;
end;

So das funktioniert auch, also ich seh Outlook nicht mal und er erzeugt automatisch im Postausgang die Mail und will sie auch gleich verschicken.

Jetzt habe ich schon mit vMailItem.show, vMailitem.open usw. durchprobiert, mir die Email vorher ANZEIGEN zu lassen.

Ich will zuerst vorher die komplette Email sehen und dann selbst auf den "senden" button in outlook drücken.

Hat jemand eine Idee?

Gruß