OLE mit Delphi und Durchgangs-HTML

[dataspider]

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:

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

[m3]

Wirf mal einen Blick auf "Working with a MIME entity in LotusScript classes" in der Designer-Hilfe. Ich denke, das ist für Dich der "bessere" Weg.

[dataspider]

Wirf mal einen Blick auf "Working with a MIME entity in LotusScript classes" in der Designer-Hilfe. Ich denke, das ist für Dich der "bessere" Weg.

Hi,

danke für den Tip. In der importierten Typenbibliothek ist auf jeden Fall alles vorhanden.
Ich hatte zwar gehofft, es mit geringstem Aufwand zu lösen, aber die Umstellung auf MIMEEntity scheint doch einige weitere Vorteile zu haben. So mach ich mich mal ans Testen...

Danke, Frank

[dataspider]

Hi m3,

noch mal herzlichen Dank. Es war zwar doch eine Menge Arbeit, aber es funktioniert bis auf eine Kleinigkeit mit Anhängen. Aber dafür mache ich mal einen neuen Thread auf.

Frank