Link per SMTP versenden

[HolgerCW]

Hallo zusammen,

ich versende so E-Mails:

Delphi-Quellcode:

var
 mymessage:TIdMessage;
 IdSMTP:TIdSMTP;
 myAttach: TIdAttachmentFile;
 strAttachment: String;
 strMessage: String;
...

 mymessage := TIdMessage.Create;
 IdSMTP := TIdSMTP.Create;
 try

  IdSMTP.Host := xxx; 
  IdSMTP.Port := xx;
  IdSMTP.Connect;

  mymessage.From.Address := x;
  mymessage.From.Text := x;
  myMessage.Recipients.EMailAddresses := An;
  myMessage.CCList.EMailAddresses := Cc;
  myMessage.Date := myMessage.Date - Date;
 
  strMessage := Text;

  mymessage.ClearBody;
  mymessage.Body.Add(strmessage);
  mymessage.Subject := Subject;

Wie kann ich in der strmessage eine Linkzeile kenntlich machen, das diese auch in Outlook nicht als Text sondern als Link angezeigt wird.

Gruss

holger

[DeddyH]

Ich nehme stark an, dass Du dafür HTML-Mails mit entsprechenden Tags versenden musst.

[himitsu]

Zitat von DeddyH:

Ich nehme stark an, dass Du dafür HTML-Mails mit entsprechenden Tags versenden musst.

Jupp, also erstmal muß er das als HTML-Mail versenden und kann darin dann natürlich auch HTML-Code verwenden.

email html indy

[HolgerCW]

Danke schon mal.

Wenn ich folgendes ergänze:

mymessage.ContentType := 'text/html'; wird das natürlich alles ganz anders dargestellt. Der Link ist zwar nun sichtbar aber der vorher erstellte Text ist nun einfach hintereinander geschrieben.

So habe ich meinen Text gebaut:

Delphi-Quellcode:

strMessage := strMessage + #10#13 + 'Info: Diese E-Mail wurde aus xxx generiert.' + #10#13;
strMessage := strMessage + 'Bitte geben Sie nach Durchführung der Arbeit dem Absender eine Rückmeldung.';

if copy(FormEMail.ED_Anhang.Text,1,4) = 'Link' then
begin

 strMessage := strMessage + #10#13 + #10#13 + #10#13 + 'Link zum Bericht:'  + #10#13;
 strMessage := strMessage + Link; 

end;

Gibt es eine Möglichkeit nur den Link irgendwie anders hinzuzufügen ? Wenn ich die E-Mail von Outlook herraus weiterleite ist bei dem nächsten Empfänger der Link komischerweise unterstrichen und man kann Ihn anklicken.

Kann man hier nicht irgendwie ansetzen:

Delphi-Quellcode:

mymessage.Body.Add(strmessage1); //Normaler Text
mymessage.ContentType := 'text';
mymessage.Body.Add(strmessage2); //Link
mymessage.ContentType := 'text/html';

Gruss

Holger

[DeddyH]

HTML interpretiert nunmal keine Zeilenumbrüche (wobei ich statt #10#13, was unter Windows ja eigentlich #13#10 sein müsste, eher die Konstante sLineBreak verwenden würde). Ersetz die doch einfach durch "<br />", dann hast Du auch Dein Umbrüche wieder. Wenn mich nicht alles täuscht, ist eine Mail entweder im Text- oder im HTML-Format, mischen kann man das nicht.

[HolgerCW]

Alles klar mache das jetzt mit HTML mit dem <br />.

Klappt gut. Danke.