Indy Html-Emails

[horst]

ich bekomme keine html-emails versendet, please help ...

sendNewsLetter(an, Listbox1.items, memo1.Lines, '[e-mail]', 'Test', 'mpnormal', 'text/html', 'mail.server.de', 'viuser', 'passwort', 25, 0);

Delphi-Quellcode:

procedure sendNewsLetter(an: Tstringlist; att, Text: Tstrings;
  vonMail, Betreff, Priority, ContentTyp, SMTPServer, SMTPUsername, SMTPPass: string;
  SMTPPort, SmtpAuthType: integer);

var IdMsgSend: TidMessage; SMTP: TidSmtp; i: integer; s: string;
begin
  IdMsgSend := TidMessage.Create(nil);
  SMTP := TidSmtp.Create(nil);
  with IdMsgSend do
  begin
  ContentType := ContentTyp;
  //   ContentTyp := 'text/html' ;
    Body.Assign(text);
    From.Text := vonMail;
    ReplyTo.EMailAddresses := vonMail;
    Subject := Betreff;
    Priority := Priority;
    s := '';
    for i := 0 to an.Count - 1 do
    begin
      s := s + BccList.EMailAddresses + an.Strings[i] + ';'
    end;
    BccList.EMailAddresses := s;
  //  ReceiptRecipient.Text := vonMail;
  end;

  if att.Count >= 1 then
  begin
    for i := 0 to att.Count - 1 do
    begin
      TIdAttachment.Create(IdMsgSend.MessageParts, att.Strings[i]);
    end;
  end;
// IdMsgSend.ContentType := ContentTyp;

  case SmtpAuthType of
    0: SMTP.AuthenticationType := atNone;
    1: SMTP.AuthenticationType := atLogin;
  end;
  SMTP.Username := SMTPUsername;
  SMTP.Password := SMTPPass;

  SMTP.Host := SMTPServer;
  SMTP.Port := SMTPPort;

  SMTP.Connect;
  try
    SMTP.Send(IdMsgSend);

  finally
    SMTP.Disconnect;
  end;
  IdMsgSend.free;
  SMTP.free;
end;

[edit=r_kerber]In Delphi-Tags geändert! Mfg, r_kerber[/edit]

[horst]

ok...
hat sich erledigt ;)

[phlux]

Dann poste doch bitte woran es lag, damit anderen Usern auch geholfen wird, wenn sie dein Problem haben ;)

mfg phlux :hi:

[horst]

liebend gerne...
danke nochmal an kuisli ;)
http://www.swissdelphicenter.ch/de/f...pic.php?t=7419


das problem liegt wohl hier:

Delphi-Quellcode:

ContentType := ContentTyp;

benenne den contenttype im Procedureaufruf nicht identisch wie das property vom idmessage - dann sollte es funktionieren.
z.B.

Delphi-Quellcode:

procedure sendNewsLetter(an: Tstringlist; att, Text: Tstrings; 
  vonMail, Betreff, Priority, CTyp, SMTPServer, SMTPUsername, SMTPPass: string; 
  SMTPPort, SmtpAuthType: integer);

gruss
kuisli

[Sharky]

Hai horst,

denke aber bitte daran auch einen Plain-Text Teil in deiner eMail zu haben. Wenn es schon unbedingt eine *** HTML-Mail sein muss. Soll diese auch einen PlainText haben.

Und immer daran denken. Es gibt zum Glück inzwichen Mailsysteme die nehmen keine HTML-Mails mehr an bzw. verarbeiten sie nicht.

[horst]

guter gedanke!
mir persönlich ist es egal ob ich html oder textemails bekomme.
was hat alle welt gegen diese html mails? merkwürdig.
wie kriege ich den plain-text zusammen mit html veschickt, falls der user den html-kram abgestellt hat?

[Sharky]

Ufff... ist schon lange her. Wenn ich mich recht entsinne wird das über die MessageParts gelöst.

[OT-On]Warum keine HTML-Mails? a)Unnötige Datenmengen , b)Potentiell gefährlich [OT-Off]

[horst]

hmm MessageParts, sagt mir grad nix, dann googel ich mal danach ...

Zitat:

Warum keine HTML-Mails? a)Unnötige Datenmengen , b)Potentiell gefährlich

ja nun, was ist schon nicht alles überflüssig und potentiell gefährlich ;)
spam nervt halt.

[r_kerber]

Zitat:

Zitat von horst

ja nun, was ist schon nicht alles überflüssig und potentiell gefährlich ;)
spam nervt halt.

Ich kann das so nicht stehen lassen. Im HTML-Teil ist es durchaus möglich Skripte zu starten, die auf dem jeweiligen PC großen Schaden anrichten können. Und dies ist nicht nur eine theoretisch Möglichkeit sondern wird in der Praxis tatsächlich so gemacht! Deshalb ist mein e-Mail-Client so eingestellt, dass er nur den Textteil anzeigt. hat die Mail keinen, dann lösche ich sie gnadenlos, ganz egal von wem sie kommt. Außerdem verschickt mein e-Mail-Client die Mails ausschließlich als Plain-Text.

[horst]

...und ist auch gefährlich, viel spass beim löschen der emails. ;)