eMail über Standard-Mail-Programm verschicken

[benst]

Hi,

wie kann eine eMail über das Standard-Mail-Programm schicken (z.B. Outlook)?
Sprich... ich habe Felder für Empfänder und Betreff und ein Memo für die Nachricht, beim Betätigen von Button wird Mail verschickt, sprich es erscheint eine Mail im Postausgang von z.B. Outlook.
Danke

Gruß
Ben
_____________________________
Delphi 5 Standard, Win XP

[marabu]

Hallo Ben,

im Object Repository (Objektgalerie) findest du die Win95-Logo-Anwendung. Diese enthält schon den Code zum Versenden einer Nachricht über das Simple Mail API.

Grüße vom marabu

[benst]

Hi,

Zitat:

im Object Repository (Objektgalerie) findest du die Win95-Logo-Anwendung. Diese enthält schon den Code zum Versenden einer Nachricht über das Simple Mail API.

Die Win95-Logo-Anwendung habe ich leider nicht gefunden. Ich habe nur über Outlook E-Mail verschicken gefunden.
Das ist schon ganz gut, aber ich möchte, dass die Mail sofort in den Postausgang gelangt und mir nicht erst einmal angezeigt wird.

Gruß
Ben

[Angel4585]

Delphi-Quellcode:

with IdMessage1 do
 begin
 Body.Assign(MemoEMailtext.Lines);
 Recipients.Add.Address:=EmpfaengerEMail;

 from.Address:=Absenderadresse;
 Subject:=Betreff;
 end;
with IdSMTP1 do
 begin
 Username:=benutzername;
 Password:=Passwort;
 Host:=HostIP;
 Connect;
 for i:= 0 to Pred(LBAnhaenge.Items.Count) do
  TIdAttachmentFile.Create(IdMessage1.MessageParts,LBAnhaenge.Items.Strings[i]);
 Send(IdMessage1);
 Disconnect;
 end;

Versuch das mal

[mquadrat]

@Angel

Er möchte über MAPI und das Standard-Programm schicken, nicht direkt per SMTP...

[TeronG]

Zitat von mquadrat:

Er möchte über MAPI und das Standard-Programm schicken, nicht direkt per SMTP...

In der Code-Lib gibt es ein Beispiel zu MAPI

EDIT/ADD:
Das Ding lag bei mir noch so rum (müsste eigentlich funtzen ^^)

Delphi-Quellcode:

function TG_MailVersenden(eMail,Betreff,Mailtext:String;anhang:string='') : Integer;
var
  s: String;
begin
  s := 'mailto:'+eMail+'?Subject='+Betreff+'&Body='+Mailtext;
  if Anhang <> '' then s:=s+'&Attach=""'+Anhang+'""';

  result := ShellExecute(Application.Handle, 'open', PChar(s), nil, nil, SW_SHOWNORMAL);
end;

[benst]

Zitat:

Das Ding lag bei mir noch so rum (müsste eigentlich funtzen ^^)

Das ist sehr schön. Bis auf den Anhang funst das bei mir auch, aber das Problem ist geblieben. Die erstellte eMail öffnet sich und wird nicht abgesendet. Ich wollte einen kleinen Serienmailer schreiben, da kann ich ja nicht jedes mal 20mal auf absenden drücken...
Hat jemand ne Idee, wie ich das beheben kann?
Gruß
Ben

[marabu]

Hi Ben,

zum Thema Extended MAPI sollte es inzwischen mehrere threads in der DP geben.

marabu

[R2D2]

Ich mache das immer so:
 ShellExecute(Application.Handle, 'open', PChar(Param), nil, nil, SW_SHOWNORMAL); wobei Param z. B.

Zitat:

mailto:[e-mail]

enthält.

[benst]

@TeronG:
Weißt du wie ich bei deiner Variante es so machen kann, dass das mit den Anhängen funktioniert?
Bei mir funktioniert es nämlich nicht. (Ich habe 'c:\a.txt' als Parameter angegeben, ist das falsch?)

Gruß
Ben