如何从 Outlook 附件菜单中的上下文菜单中捕获选定的附件项目

Question

我在 Delphi 10.3 (RIO) 中开发，使用 add-in-express ver 9.x 编写 Outlook 插件 我只想从附件列表中“选择”文件。

我将按钮添加到 adxRibbonContextMenu 对象， 当我用鼠标在附件列表中的一个（选定的）或多个文件上单击右键时， 我希望能够只获得选定的一个（一个或多个）。

我在 VB 或 C# 中提供了一些解决方案 - 如何聊天 AttachmentSelection 对象。 但我看不到如何将它翻译成 Delphi。

我试过类似的东西：

Var
  AttachmentSelection: OleVariant;
  ExploreeSelection: OleVariant;
  ISelection: Selection;
  i,j: integer;
  IExpl: _Explorer;
  VIntf: OleVariant;
  Intf: Outlook2000._MailItem;
begin
  AttachmentSelection := OleVariant(RibbonControl.Context);
  ShowMessage(IntToStr(AttachmentSelection.Class));
  if AttachmentSelection.Class = 169 then // olAttachmentSelection = 169
  begin
    for i := 1 to AttachmentSelection.Count do begin
      ShowMessage(AttachmentSelection.Item(i).FileName);
    end;
  end
  else
  if AttachmentSelection.Class = 34 then
  begin // olExplorer = 34

    IExpl := OutlookApp.ActiveExplorer();
    ISelection := nil;
    if Assigned(IExpl) then
    try
      try
          ISelection := IExpl.Selection;
      except
          // "The Explorer has been closed and cannot be used for further operations"
        ISelection := nil;
      end;
    finally
      IExpl := nil;
    end;

    if Assigned(ISelection) then
    Try
      for i := 1 to ISelection.Count do
      begin
          //ShowMessage(ISelection.item(i));

        VIntf := ISelection.Item(i);
        ShowMessage(IntToStr(VIntf.Class));

        if ((VIntf.Class = olAttachment) or (VIntf.Class = olAttachments)) Then
        begin
          ShowMessage('olAttachment or olAttachments');
        end
        else
        if (VIntf.Class = olMail)  Then
        begin
          ShowMessage('olMail');
          IDispatch(Intf) := Self.OutlookApp.ActiveExplorer.Selection.Item(i);
          for j := 1 to Intf.Attachments.count do
          begin // this is not the selected list. it just "ALL THE LIST"

          end;
        end;

        VIntf := Unassigned;
      end;
    finally
      ISelection := nil;
    end;
  end
  else
  begin
    //ShowMessage('Not an AttachmentSelection');
  end;
end;

但这给了我所有列表，我在附件项中找不到任何“选定”属性。 我查看了 IMIBO（扩展 mapi），也没有找到任何解决方案。

有人能拿到这份清单吗？

在 C# 中，代码是：来自https://www.add-in-express.com/forum/read.php?FID=5&TID=13763

object context = control.Context; 
if (context is Outlook._Explorer) 
{ 
    MessageBox.Show("EXPLORER"); 
    Outlook._Explorer window = context as Outlook._Explorer; 
    MessageBox.Show("Count: " + window.AttachmentSelection.Count); 
    GetAttachmentsInfo(item, window.AttachmentSelection); 
    Marshal.ReleaseComObject(window.AttachmentSelection); 
} 
else if (context is Outlook._Inspector) 
{ 
    MessageBox.Show("INSPECTOR"); 
    Outlook._Inspector window = context as Outlook._Inspector; 
    MessageBox.Show("Count: " + window.AttachmentSelection.Count); 
    GetAttachmentsInfo(item, window.AttachmentSelection); 
    Marshal.ReleaseComObject(window.AttachmentSelection); 
} 
else if (context is Outlook._AttachmentSelection) 
{ 
    MessageBox.Show("ATTACHMENTSELECTION"); 
    Outlook._AttachmentSelection attSelection = context as Outlook._AttachmentSelection; 
    MessageBox.Show("Count: " + attSelection.Count); 
    GetAttachmentsInfo(item, attSelection); 
    Marshal.ReleaseComObject(attSelection); 
} 

谢谢。

Answer 1

AttachmentSelection 在Outlook2010 中定义，而您使用Outlook2000。只需将您使用的子句从 Outlook2000 更改为 Outlook2010 以及您提到 Outlook2000 的任何地方。

Answer 2

使用Explorer.AttachmentSelection 集合。 AttachmentSelection.Class 属性为 169 (OlObjectClass.olAttachmentSelection)。

Answer 3

嗨 fpiette / Dmitry / 全部

我试过这个。但我总是只返回第一个选定的项目（我可能不是选定的？？）

procedure TAddInModule.SaveAttachmentsControls0Click(Sender: TObject;
  const RibbonControl: IRibbonControl);
var
  Context             : OleVariant;
  Explorer            : OleVariant;
  AttachmentSelection : _AttachmentSelection;
  count, i            : Integer;
  AttFileName         : String;
  FileName            : String;
  JustFileName        : String;
  attList             : TStringList;
  FileLength          : Integer;
  TakeIt              : Boolean;
begin
  // click on the menu entry of the attachment contextmenu


//if (context is OutlookApp.Explorers) Then
//begin
//    MessageBox.Show("EXPLORER");
//    Outlook._Explorer window = context as Outlook._Explorer;
//    MessageBox.Show("Count: " + window.AttachmentSelection.Count);
//    GetAttachmentsInfo(item, window.AttachmentSelection);
//    Marshal.ReleaseComObject(window.AttachmentSelection);
//end
//else if (context is Outlook._Inspector)
//{
//    MessageBox.Show("INSPECTOR");
//    Outlook._Inspector window = context as Outlook._Inspector;
//    MessageBox.Show("Count: " + window.AttachmentSelection.Count);
//    GetAttachmentsInfo(item, window.AttachmentSelection);
//    Marshal.ReleaseComObject(window.AttachmentSelection);
//}
//else if (context is Outlook._AttachmentSelection)
//{
//    MessageBox.Show("ATTACHMENTSELECTION");
//    Outlook._AttachmentSelection attSelection = context as Outlook._AttachmentSelection;
//    MessageBox.Show("Count: " + attSelection.Count);
//    GetAttachmentsInfo(item, attSelection);
//    Marshal.ReleaseComObject(attSelection);
//}


  AttachmentSelection := nil;
  Context := OleVariant(RibbonControl.Context);
  if context.Class = 169 then // olAttachmentSelection = 169
  begin
    IDispatch(AttachmentSelection) := Context;
  end
  else
  if context.Class = 34 then // olExplorer = 34
  begin
    Explorer := OutlookApp.ActiveExplorer();
    //Explorer := Outlook2010.OutlookApplication.ActiveExplorer;
    IDispatch(AttachmentSelection) := Explorer.AttachmentSelection;
  end;

  if Assigned(AttachmentSelection) then
  begin
    attList := TStringList.Create;
    Try
      attList.Clear;
      count := AttachmentSelection.Count;
      for I := 1 to count do
      begin
        AttFileName := AttachmentSelection.Item(I).FileName;
        //FileName    := GlobalTempDir + '\AttFile_' + IntToStr(I) + '.' + J_ExtFileName(AttFileName);
        TakeIt := True;
        if CheckIfAttachCanbeDroped(AttFileName) Then
        begin
          If (UpperCase(Copy(AttFileName,1,7)) = UpperCase('Image00')) And
             (GetMyFileSize(AttFileName) <= SMALL_FILE_SIZE) Then
            TakeIt := False;
        end;

        If Takeit Then
        begin
          JustFileName := CleanFileName(AttFileName);
          if Length(JustFilename) > MAX_FILE_NAME_LENGTH Then
          begin
            JustFileName    := Copy(J_FirstFileName(JustFileName),1,MAX_FILE_NAME_LENGTH) + '.' + J_ExtFileName(JustFileName);
          end;
          FileName     := GlobalTempDir + '\' +  JustFileName;
          if Length(Filename) > MAX_WINFILENAME_LENGTH Then
          begin
            FileLength := MAX_WINFILENAME_LENGTH - Length(j_PathFileName(Filename)) - Length(J_ExtFileName(Filename)) - 1 {for dot .};
            FileName   := GlobalTempDir + '\' + Copy(J_FirstFileName(JustFileName),1,FileLength) + '.' + J_ExtFileName(FileName);
          end;

          AttachmentSelection.Item(I).SaveAsFile(FileName);
          attList.Add(FileName);
        end;
      end;

      If attList.Count > 0 Then
        IndexAttachmentList(attList);
    Finally
      attList.Free;
    End;
  end;
end;