将 RSS 源项目转换为 Outlook 中的任务

发布于 2025-01-07 01:32:12 字数 736 浏览 4 评论 0原文

可能的重复:
使用 Outlook VBA 宏处理 RSS 源

我收到作业通过 RSS Feed,我希望能够将 feed 项目转换为任务。

如何在 VBA 中获取 RSS 提要?我找不到“RSSItem”,但我可以找到 TaskItem。

我尝试通过下面的方法获取 RSS 提要,但无法将提要项的正文放入字符串中。它甚至不让我找到字符串的长度。当我运行它时,我收到“无效限定符”错误。

Sub ProcessRSS()
' Read RSS items and process the usful ones.
Dim objList As Object
Dim objItem As Object
Dim contents As String

Set objList = Application.ActiveExplorer.CurrentFolder.Items
contents = objList(1).Body

'Print Lenght of String
MsgBox (Str(contents.Lenght))
End Sub

如何将 RSS 源项目转换为 Outlook 2010 VBA 中的任务?

Possible Duplicate:
Processing an RSS Feed using Outlook VBA Macro

I receive my homework through RSS Feed and I want to be able to convert feed items to tasks.

How do I get the RSS feed in VBA? I cannot find an "RSSItem", but I can find a TaskItem.

I've tried getting the RSS feed through the method below but I cant put the body of the feed item into a string. It won't even let me find the length of the string. I receive an "Invalid Qualifier" error when I run it.

Sub ProcessRSS()
' Read RSS items and process the usful ones.
Dim objList As Object
Dim objItem As Object
Dim contents As String

Set objList = Application.ActiveExplorer.CurrentFolder.Items
contents = objList(1).Body

'Print Lenght of String
MsgBox (Str(contents.Lenght))
End Sub

How can I convert an RSS feed item to a task in Outlook 2010 VBA?

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(1

凉栀 2025-01-14 01:32:12

我不确定您的总体问题,但这修复了您上面的代码:

Sub ProcessRSS()
' Read RSS items and process the usful ones.
Dim objItem As Object

Set objItem = Application.ActiveExplorer.CurrentFolder.Items(1)
'Print Length of String
MsgBox Len(objItem.Body)
End Sub

I'm not sure about your overall question, but this fixes your code above:

Sub ProcessRSS()
' Read RSS items and process the usful ones.
Dim objItem As Object

Set objItem = Application.ActiveExplorer.CurrentFolder.Items(1)
'Print Length of String
MsgBox Len(objItem.Body)
End Sub
~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文