这一句是收件葙,我想设置已发送邮件怎么设置!谢谢!

lj1226189

Set myNameSpace = myolapp.GetNamespace("MAPI")

aaaaabbbbb

这一句不是收件箱。
Sub ChangeCurrentFolder()
    Dim myolApp As New Outlook.Application
    Dim myNamespace As Outlook.NameSpace
   
    Set myNamespace = myolApp.GetNamespace("MAPI")
    Set myolApp.ActiveExplorer.CurrentFolder = _
    myNamespace.GetDefaultFolder(olFoldersendmail)
End Sub


Outlook 开发人员参考
OlDefaultFolders 枚举
指定当前 Outlook 配置文件的文件夹类型。
名称 值 描述
olFolderCalendar 9 “日历”文件夹。
olFolderConflicts 19 “冲突”文件夹（“同步问题”文件夹的子文件夹）。仅对 Exchange 帐户可用。
olFolderContacts 10 “联系人”文件夹。
olFolderDeletedItems 3 “已删除邮件”文件夹。
olFolderDrafts 16 “草稿”文件夹。
olFolderInbox 6 “收件箱”文件夹。
olFolderJournal 11 “日记”文件夹。
olFolderJunk 23 “垃圾电子邮件”文件夹。
olFolderLocalFailures 21 “本地故障”文件夹（“同步问题”文件夹的子文件夹）。仅对 Exchange 帐户可用。
olFolderManagedEmail 29 托管文件夹组中的顶级文件夹。有关托管文件夹的详细信息，请参阅 Microsoft Office Outlook 中的“帮助”。仅对 Exchange 帐户可用。
olFolderNotes 12 “便笺”文件夹。
olFolderOutbox 4 “发件箱”文件夹。
olFolderSentMail 5 “已发送邮件”文件夹。
olFolderServerFailures 22 “服务器故障”文件夹（“同步问题”文件夹的子文件夹）。仅对 Exchange 帐户可用。
olFolderSyncIssues 20 “同步问题”文件夹。仅对 Exchange 帐户可用。
olFolderTasks 13 “任务”文件夹。
olFolderToDo 28 “待办事项”文件夹。
olPublicFoldersAllPublicFolders 18 Exchange 公用文件夹存储中的“所有的公用文件夹”文件夹。仅对 Exchange 帐户可用。
olFolderRssFeeds 25 “RSS 源”文件夹。