Einzelnen Beitrag anzeigen

Benutzerbild von programmierer
programmierer

Registriert seit: 27. Jan 2006
Ort: Dresden
18 Beiträge
 
Delphi 2005 Personal
 
#21

Re: e-Mail aus Prg heraus versenden

  Alt 1. Feb 2006, 14:21
Also ich arbeite mit Delphi 2005 PE und Indy 10!
Hier mal der Quellcode: (ich setzte erstmal voraus, dass es ein Web.de Konto ist

Delphi-Quellcode:
procedure TForm1.sendenClick(Sender: TObject);
 var empfänger, absender, subject, nachricht, datei:string;
begin
 empfänger:=adresse.Text; //Empfänger-Mail
 absender:=name.Text; //Absendername oder Mail
 subject:=betreff.Text; //Betreff
 nachricht:=text.Text; //Nachricht
 datei:=pfad.Text; //Anhang
 Send_Mail('smtp.web.de', absender, empfänger, subject, nachricht, datei); //Mail senden
end;
Ich weiß, dass das mit dem Dateipfad ni so elegant gelöst ist, aber das interessiert zur Zeit nicht!

//Edit: Erstma Danke, dass ihr mir helfen wolltet, aber ich hab es durch probieren jetzt doch selber hinbekommen.
Stanley F.
  Mit Zitat antworten Zitat