Hallo,
ich versuche verzweifelt, einen Link mit Hilfe von RichStyle.PassThruHTML in eineMail einzufügen.
Anhand von Beispielen im WWW (meist mit VB) gehe ich davon aus, dass es funktionieren müsste.
Allerdings kommen die Mails immer im Klartext (Plain-Text) an.
Kann es sein, dass es im Notes noch eine Einstellung gibt, die das verhindert? Oder habe ich einen grösseren Denkfehler?
Hier der Delphi - Code:
function TrwNotesMail.SendMail(ASendTo: string = ''): Boolean;
var
MailItem : IDocument;
SendToItem : IItem;
SubjectItem : IItem;
RichItem : IRichTextItem;
RichStyle : IRichTextStyle;
Recipients : OleVariant;
i: Integer;
begin
Result := False;
if not FConnected then
if not Connect then
Exit;
try
try
if ASendTo = '' then
ASendTo := FSendTo;
Status := 'Senden ('+ASendTo+')...';
MailItem := FDataBase.CreateDocument;
SendToItem := MailItem.ReplaceItemValue(sSendTo, ASendTo);
SubjectItem := MailItem.ReplaceItemValue(sSubject, FSubject);
RichStyle := FSession.CreateRichTextStyle;
RichStyle.PassThruHTML := 1; // bewirkt leider nichts
RichItem := MailItem.CreateRichTextItem(sBody);
RichItem.AppendStyle(RichStyle);
RichItem.AppendText(FBodyText.Text);
for i := 0 to FAttachFiles.Count - 1 do
begin
RichItem.AddNewLine(2, False);
RichItem.EmbedObject(EMBED_ATTACHMENT, '',
FAttachFiles.Strings[i],
ExtractFileName(FAttachFiles.Strings[i]) );
end;
Recipients := '';
MailItem.SaveMessageOnSend := FSaveOnSend;
MailItem.ReplaceItemValue('MarkRead', True);
//MailItem.Save(True, False, True);
MailItem.Send(False, Recipients);
Result := True;
Status := 'Gesendet...';
except
Status := 'Mail konnte nicht gesendet werden...';
end;
finally
MailItem := nil;
SendToItem := nil;
SubjectItem := nil;
RichItem := nil;
RichStyle := nil;
end;
end;
Notes ist Version 7.02
Kennt jemand einen Weg, HTML in eine Mail, welche über OLE versendet wird, einzubetten?
Danke, Frank