Hallo Alle!

Ich wollte mit diesem Code Emails versenden. Text-Mails versenden geht, aber leider klappen keine HTML- Mail damit. Warum nicht? Ich komme einfach nicht darauf.

zusammenfalten · markieren

Delphi-Quellcode:

var
  SMTP_HOST : string = 'mail.gmx.net';
  POP3_HOST : string = 'pop.gmx.net';
  USERNAME : string = ''; // wichtig bei gmx die kundennr
  PASSWORD : string = '*****';
  FROM_ADRESS : string = 'email@gmx.de';
  TO_ADRESS : string = 'email@gmx.de';


function Tmain1.SendEmail(Recipient:string;CCList:string;sSubject:string;Body:TStringList):boolean;
begin
idSMTP.Host := SMTP_HOST;
idSMTP.Username := USERNAME;
idSMTP.Password := PASSWORD;
idMessage.From.text := FROM_ADRESS;
idMessage.Sender.text:= idMessage.From.text;

idMessage.Recipients.EMailAddresses:= Recipient;
idMessage.CCList.EMailAddresses := CCList;
idMessage.Subject:=sSubject;

idMessage.Body.Clear;
idMessage.Body := Body;

try
   idSMTP.Connect;
   idSMTP.Send(idMessage);
   idSMTP.Disconnect;
   result:=True;
   except on E : Exception do
     begin
       if idSMTP.connected then try idSMTP.disconnect; except end;
       result := false;
     end;
end;
end;

{email senden }  
procedure TForm1.Button1Click(Sender: TObject);
begin
    IdPOP3.Host := POP3_HOST;
    IdPOP3.Username := USERNAME;
    IdPOP3.Password := PASSWORD;
    IdPOP3.Connect(-1);
    if IdPOP3.Connected = TRUE then begin
      st := TStringList.Create;
      st.Text := eMailMemo.Lines.Text;
      Main1.SendEmail(TO_ADRESS, '', 'Betreff', st);
      st.Free;
      IdPOP3.Disconnect;
    end;

end;

Zitat von smart:

... aber leider klappen keine HTML- Mail damit ...

aaaha.....

"Es ist ein unbekannter Fehler aufgetreten, bitte starten sie neu."

Dieser und der folgende Beitrag verraten Dir die Ursache. Ansonsten suche mal nach [dp]HTML Email*[/dp], da wirst Du findig.

......

Ich weiß zwar keine Lösung für dein Problem, aber das Passwort solltest du nicht unverschlüsselt in den Quelltext schreiben, sonst kann man es später ganz einfach aus der EXE-Datei rauslesen.