在非默认文件夹中创建Outlook电子邮件

Question

我尝试使用Delphi在非默认文件夹中创建Outlook电子邮件：

procedure NewMail;
var
  ParentFolder, Myfolder:  MAPIFolder;
  MyMail: MailItem;

begin
  Parentfolder := MAPI.GetDefaultFolder(olFolderInbox).Parent as MAPIFolder;
  MyFolder := ParentFolder.Folders.Item('MyMessages') as MAPIFolder;
  MyMail := MyFolder.Items.Add(olMailItem) as MailItem;
  MyMail.Save;
  MyMail.Display(false);
end;

显示邮件项目，但不会出现在非默认文件夹中。文件夹很好（我可以手动将电子邮件复制到它，并以编程方式获取items.count）。如果我对非默认任务文件夹使用相同的代码它工作正常，所以它似乎是一个特定的电子邮件文件夹。感谢任何建议。谢谢，保罗。

Answer 1

即使您明确指定了其他文件夹，Outlook也会在默认文件夹中创建消息。尝试将消息移到那里：

MyMail := MyFolder.Items.Add(olMailItem) as MailItem;
MyMail := MyMail.Move(MyFolder);