我有一个共同的收件箱在outlook,我想写一些代码,以使我的电子邮件从共享收件箱。现在,我可以从我的主要收件箱收到电子邮件,但我想为另一个收件箱。
这是目前为止的代码:
import os
import win32com.client
outlook = win32com.client.Dispatch('Outlook.Application').GetNamespace('MAPI')
inbox = outlook.GetDefaultFolder(6).Folders('Some Magic Folder')
messages = inbox.Items
我的猜测是,我不应该看GetDefaultFolder方法,而应该看其他的东西,但是我不太确定应该在哪里查看。
发布于 2015-06-15 15:27:15
Namespace类的GetSharedDefaultFolder方法返回一个文件夹对象,该文件夹对象表示指定用户的指定默认文件夹。
Sub ResolveName()
Dim myNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim CalendarFolder As Outlook.Folder
Set myNamespace = Application.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("Eugene Astafiev")
myRecipient.Resolve
If myRecipient.Resolved Then
Call ShowCalendar(myNamespace, myRecipient)
End If
End Sub
Sub ShowCalendar(myNamespace, myRecipient)
Dim CalendarFolder As Outlook.Folder
Set CalendarFolder = _
myNamespace.GetSharedDefaultFolder _
(myRecipient, olFolderCalendar)
CalendarFolder.Display
End Sub
https://stackoverflow.com/questions/30848825
复制相似问题