[Erledigt] Lotus Notes OLE und Speichen in Ordner

[dataspider]

Hallo,

mit folgender Methode sende ich eine Mail in Lotus Notes:

Delphi-Quellcode:

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
    Exit;
  try
    try
      MailItem    := FDataBase.CreateDocument;
      // kan man die gleiche Mail mehrmals senden
      if ASendTo = '' then
        ASendTo := FSendTo;
      SendToItem  := MailItem.ReplaceItemValue(sSendTo, ASendTo);
      SubjectItem := MailItem.ReplaceItemValue(sSubject, FSubject);
      RichItem    := MailItem.CreateRichTextItem(sBody);
      RichStyle   := FSession.CreateRichTextStyle;

      RichStyle.NotesColor := COLOR_BLUE;
      RichStyle.NotesFont  := FONT_COURIER;

      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 := '';

      // dies hier macht einfach nichts !
      if FStoreFolderName <> '' then
        MailItem.PutInFolder(FStoreFolderName, False);

      // MailItem.Save(True, False, True);

      MailItem.Send(False, Recipients);

      Result := True;
    except
      // Sch...
    end;

  finally

    MailItem    := nil;
    SendToItem  := nil;
    SubjectItem := nil;
    RichItem    := nil;
    RichStyle   := nil;
    // Recipients  : OleVariant;

  end;
end;

Die Mail wird versendet, aber ich finde sie in Lotus Notes nicht.
Ich hätte sie aber gern in einem Ordner.
Kennt jemand die Lösung?

Frank

Erledigt: MailItem.SaveMessageOnSend