当前代码打开一个Outlook Calendar数据库,如下所示:

my $outlook = Win32::OLE->GetActiveObject('Outlook.Application') || Win32::OLE->new('Outlook.Application', 'Quit');

my $namespace = $outlook->GetNamespace("MAPI");

## only fetch entries from Jan 1, 2007 onwards
my $restrictDates = "[Start] >= '01/01/2007'";  

===============>>#1 票数:1

由于您没有显示获取对象日期的代码,因此如果不了解您要访问的Outlook对象,就无法回答此问题。

如果您有一组对象,则可以按日期对它们进行排序,并过滤某个对象之前的对象。

my $sub = sub {
       my $ad = $a->date_string_accessor;
       my $bd = $b->date_string_accessor;
       $ad =~ s:(\d+)/(\d+)/(\d+):$3 . sprintf('%0d', $1) . sprintf('%0d', $2):e;
       $bd =~ s:(\d+)/(\d+)/(\d+):$3 . sprintf('%0d', $1) . sprintf('%0d', $2):e;
       return $ad cmp $bd;
};

my @sorted = sort $sub @unsorted;

print join("\n", @sorted);

但是在我看来,您应该使用应用程序本身来执行此操作-大概Outlook具有某种查询/排序功能。

  ask by translate from so

未解决问题?本站智能推荐:

1回复

如何使用Perl和Win32 :: OLE从磁盘打开Outlook MSG文件

我有一个要处理的Outlook .msg文件的目录。 处理将是打开文件并保存附件。 我已经成功使用Win32 :: OLE来处理Outlook文件夹中的消息,但是这些是磁盘上的文件。 如何打开磁盘上的msg文件并使用perl和Win32 :: OLE处理它? 限制 :我在不允许在机器
1回复

perl win32 ole超时

我使用perl和Win32 :: OLE来自动执行一些Excel任务。 由于Excel文件太大,因此该过程需要相当长的时间才能完成...但是将其放置一整夜后,我相信它会由于“超时”问题而卡住。 如果我减小文件大小,那就可以了。 无论如何增加超时时间?? 我的代码部分:
2回复

Win32 Outlook使用sendkeys发送邮件

我目前有一个工作脚本,完成了发送电子邮件的操作。 但是,始终需要通过单击确认窗口中的允许按钮来手动确认发送。 我的目标是自动按下允许按钮。 我当前的脚本: 知道如何在代码中确认窗口吗? 我也尝试使用mail.Display而不是mail.send,但是两者都会在执行最终将
1回复

带有MS Office 2013的Perl的Win32 :: OLE中的问题(32位)

我有一个使用Win32 :: OLE的Perl脚本来访问MS Word文件。 它在MS Office 2010上可以正常工作,但是在我更新到MS Office 2013 32位之后无法使用。 然后,我尝试使用最新版本的ActivePerl(32位和64位)。 我正在使用Windows
1回复

perl WIN32 :: OLE-如何移动Excel工作表(或更改位置)

在使用Win32 :: OLE模块操作Windows Excel的Perl命令列表中,提到了如何在现有WorkSheet之前或之后添加Excel WorkSheet! 我想移动,因此在另一个WorkSheet之前或之后更改现有WorkSheet的位置。 我该如何实现? 难道仅仅是更换a
1回复

Win32 :: OLE以外的任何其他方法可以从Perl中的dll调用对象?

Win32::OLE不是线程安全的。 有办法解决吗? 以下典型的Win32::OLE用法是否可以由任何其他Perl模块代替?
1回复

Python Win32无法读取Outlook电子邮件正文

我试图为Python使用win32模块并获取我的电子邮件的正文。 但是,每当我尝试获取它时,我都会收到我尝试获取的任何电子邮件正文的错误消息。 我能够得到主题/时间已接收/等信息,但是我似乎无法得到身体。 我尝试获取正文的任何​​电子邮件都收到相同的错误。
1回复

使用Win32 :: OLE Perl模块将Excel中的一系列单元格保存为HTML

我想使用Perl脚本将XLS表格中的一系列单元格保存为HTML文件。 我搜索了解决这个问题的方法。 但还没找到。 但是,使用Excel VBA有一个类似的解决方案: 所以,我尝试将其转换为Perl代码,但它给了我以下错误: H:\\ test_code \\ data&g
2回复

使用Win32 :: OLE在Access 2007中执行宏

当前,我正在尝试通过Perl OLE在Microsoft Access中执行宏 我想知道如何正确地发出调用以运行宏。 我努力了 1) $oDatabase -> DoCmd.RunMacro("Macro1"); 2) $oDatabase -> DoCmd -&g
2回复

Perl Win32 :: API和指针

我正在尝试使用Perl的Win32 :: API模块来使用Win32 API函数DsGetSiteName()。 根据Windows SDK,DsGetSiteName的函数原型是: 我成功地使用这个API写了一个小的C ++函数,以便更好地理解它实际上是如何工作的(我自己学习C ++