我想在收件箱旁边添加一些新文件夹,使用OLE自动化发送,发送,垃圾文件夹。我首选的语言是VFP,但VB也可能很有用。
这是我已经挖到应用程序对象的多远来搜集它。
loApp = CREATEOBJECT("outlook.application")
loSpace = loApp.GetNameSpace("MAPI")
UU = ""
FOR EACH loFolder IN loSpace.Folders
IF NOT LOWER(loFolder.Name)$"outlook data file archives wek@santaclaus.com "
*? "______________________________"
*? loFolder.Name
*? CHR(9)+"-----"
IF LOWER(loFolder.NAME) = LOWER("davidcosmos@metaworld.com")
? loFolder.NAME && This is where the Accounts
FOR EACH loSubFolder IN loFolder.Folders
? CHR(9)+loSubFolder.Name+"-----"
SET STEP ON
IF loSubFolder.Name = "Inbox"
FOR EACH Email IN loSubFolder.Items
* Here the Email object represents each Email
ENDFOR
ELSE
ENDIF
ENDFOR
ELSE
ENDIF
ELSE
ENDIF
ENDFOR
- 我假设应该在losubfolder层上完成文件夹的创建。
losubfolder。
任何好主意都会很棒...
tia
dk
应该与使用文件夹一样简单。ADD方法,这是Excel VBA链接,但该方法也应在OLE中可用:
https://msdn.microsoft.com/en-us/vba/outlook-vba/articles/folders-add-method-outlook
因此,在您的情况下,您会找到要添加一个新文件夹的文件夹(或子文件夹,仍然是文件夹(,并按照以下方式调用某些内容:
loSubFolder.Folders.Add("new folder name")
如果您未在添加方法中指定第二个参数,则它将创建一个文件夹,该文件夹与该项目相同类型的项目,在这种情况下,在这种情况下,在losubfolder中的项目类型。
您还可以指定第二个参数,该参数是几个明确指定的OldefaultFolders常数之一,例如:
loSubFolder.Folders.Add("new folder name", olFolderInbox)
在以下代码中,我们添加了2个文件夹,其中1个在默认收件箱中,其他与收件箱本身相同的级别。另请注意,您可能有多家商店,因此我们正在使用默认收件箱所在的商店。
#Define olFolderInbox 6
Local oOutlook As 'Outlook.Application', ;
oNameSpace As 'Outlook.NameSpace', ;
oMailFolder As 'Outlook.MAPIFolder', ;
oTopFolder As 'Outlook.MAPIFolder'
Local lcFolderName1, lcFolderName2
lcFolderName1 = "My Dummy Folder - inbox"
lcFolderName2 = "My Dummy Folder"
m.oOutlook = createobject("Outlook.Application")
m.oNameSpace = m.oOutlook.GetNamespace("MAPI")
m.oMailFolder = m.oNameSpace.GetDefaultFolder( olFolderInbox )
m.oTopFolder = m.oMailFolder.Parent
If Type("m.oMailFolder.Folders(m.lcFolderName1).Name") != 'C'
m.oMailFolder.Folders.Add(m.lcFolderName1, olFolderInbox)
Endif
If Type("m.oTopFolder.Folders(m.lcFolderName2).Name") != 'C'
m.oTopFolder.Folders.Add(m.lcFolderName2, olFolderInbox)
Endif
MessageBox('Done')
注意:为此,Outlook不应运行。您可能希望用try .. catch ... endry包裹。我不建议使用getObject克服这一点,我真的怀疑它是否可以使用(我从不建议使用任何com使用任何com(。
note2:如果您需要一个文件夹,则除了默认收件箱的位置外,您可以像以下位置一样:
m.MyFolder = m.oNameSpace.Folders("My Desired Folder")