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:

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:

Delphi-Quellcode:

 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

[alzaimar]

Das "mailto:" protokoll erlaubt das Anhängen von Dateien, nur unterstützen das nicht alle Mail-clients.

Code:

mailto:[e-mail]&attach="MyFile"

[Luckie]

Outlook Express tut es zum Beispiel nicht.

[TeronG]

Zitat:

Zitat von benst

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?)

hmm :gruebel: habe es gerade mit

Delphi-Quellcode:

if OpenDialog1.Execute then TG_MailVersenden('[e-mail]','dd','testtexxt',OpenDialog1.FileName);
//bzw.:
TG_MailVersenden('[e-mail]','dd','testtexxt','c:\config.dat');

getestet und da ging es ... :gruebel:
getestet mit MS Outlook (nicht express)

und beim automatischen versand kann ich dir auch nicht weiterhelfen :oops: (hab grad auch wenig zeit zum gugn)

[shmia]

Schau mal auf http://www.delphipraxis.net/internal...ct.php?t=78140
Du müsstest nur die Steuerdatei schreiben und das Kommandozeilenprogramm aufrufen.
Das eignet sich natürlich nicht zum massenweisen EMail-Versand, da durch das Dateischreiben
pro Mail ca. 100ms auf der Stecke bleiben.