如何使用vb.net中的兑换从Outlook中删除邮件项 [英] how to delete mailitems from outlook using redemption in vb.net

问题描述

大家好，

我正在使用Outlook，我需要从添加到Outlook配置文件的PST收件箱中删除邮件项目

这是ma代码

昏暗的会话作为赎回.RDOSession
会话= CreateObject("Redemption.RDOSession")
NamSpace.Logon()
昏暗的文件夹作为Redemption.MAPIFolder
Dim Msg As Redemption.RDOMail
文件夹= Session.Session.GetDefaultFolder(Outlook.OlDefault Folders.olFolderInbox)
对于i = 1到Folder.Items.Count

消息= Folder.Items.Item(i)
Msg.Delete()

MessageBox.Show(已删除邮件")

下一个

我找不到类型为"RDOSession"的公共成员会话"时遇到错误.

请帮我搭便车

它非常紧急，请帮助我使用赎回处理删除邮件项.

Hi every one ,

I am working on outlook i need to delete mail items from inbox of a pst which is added to outlook profile

here is ma code

Dim Session As Redemption.RDOSession
Session = CreateObject("Redemption.RDOSession")
NamSpace.Logon()
Dim Folder As Redemption.MAPIFolder
Dim Msg As Redemption.RDOMail
Folder = Session.Session.GetDefaultFolder(Outlook.OlDefault Folders.olFolderInbox)
For i = 1 To Folder.Items.Count

Msg = Folder.Items.Item(i)
Msg.Delete()

MessageBox.Show("Msg Deleted")

Next

i am getting a error as Public member ''Session'' on type ''RDOSession'' not found.

plz helop me to get ride on it

its very urgent plz help me to deal with deletion of mail items using redemption

推荐答案

irfansyed7写道:

irfansyed7 wrote:

文件夹= Session.Session.GetDefaultFolder(Outlook.OlDefault Folders.olFolderInbox)

Folder = Session.Session.GetDefaultFolder(Outlook.OlDefault Folders.olFolderInbox)

应该只是

should be just

Folder = Session.GetDefaultFolder(Outlook.OlDefault Folders.olFolderInbox)

这篇关于如何使用vb.net中的兑换从Outlook中删除邮件项的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！