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ß

[Overclocker]

habs schon

mailitem1.display funktioniert :)

Perfekt!!!


kann in die code library falls es jemanden interessiert, haut super hin

grüße

[Delphi-Phil]

hi,

also ich mache es so!

Delphi-Quellcode:

procedure THauptForm.JvXPBar5Items0Click(Sender: TObject);
var
mail : String;
begin
mail := DataForm.QryKontakte.FieldByName('Email').AsString;
ShellExecute(Application.Handle, 'open',
PChar('mailto:'+mail+'?subject='), nil, nil, sw_ShowNormal);
end;

[Overclocker]

jap mit shellexecute funktioniert es auch nur mit einem richtext funktioniert das weniger schön, weil keine absätze etc. mit drinnen sind ;)

[ATSV]

Hi,
muss ich noch was bei uses dazuschreiben damit das funktioniert? bin ncoh absoluter anfänger :?

[Delphi-Phil]

meinst du jetzt, wennn man es so wie ich macht oder wobei?

wenn ja dann musst du in die Uses Klausel noch ShellApi eintragen!

[ATSV]

ich meinte eig wie im ersten beitrag trotzdem danke für deine antwort

Edit: Hab jetzt acuh mal die andere variante ausprobiert funktioniert aber nicht wirklich...

Delphi-Quellcode:

ShellExecute(Application.Handle, 'open',
  PChar('mailto:'+Edit6.Text+'?subject='+Edit7.Text'&Body='+Memo2.Text), nil, nil, sw_ShowNormal);

kann mir jemand sagen was da falsch ist?

[ATSV]

hat sich geklärt hatte nur ein '+' vergessen

wärt trotzdem praktisch zu wissen was in die uses klausel beim ersten code muss