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

Question

I'm trying to create an Outlook email in a non-default folder using Delphi:

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;

The mail item is displayed, but does not appear in the non-default folder. The folder is good (I can copy emails to it manually, and get items.count programatically). If I use the same code for a non-default tasks folder it works fine, so it appears to be something particular about an email folder. Grateful for any suggestions. Thanks, Paul.

Answer 1

Outlook has an annoying habit of creating messages in the default folder even if you explicitly specify a different folder. Try to move the message there:

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