Thema: Delphi Link per SMTP versenden

Einzelnen Beitrag anzeigen

HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#4

AW: Link per SMTP versenden

  Alt 20. Jan 2015, 14:31
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) = 'Linkthen
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
  Mit Zitat antworten Zitat