• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 147
  • Last Modified:

Outlook e-mail automation

I need for my application to create a new Outlook e-mail item in a specific Outlook folder. The problem is that my new message always goes to the Drafts folder not the folder that I created. Here is my code:

'after creating the Outlook app object and opening a namespace, I get the default OutBox folder
  Set olOFolder = olNameSpace.GetDefaultFolder(olFolderOutbox)

'set a folder object to my folder which is a subfolder in the Outbox
  Set olMyFolder = olOFolder.Folders("My Folder")

'add new mail item to my folder
  Set olItem = olMyFolder.Items.Add(olMailItem)
'set MailItem properties and save item
  With olItem
    .Subject = Subject
    .Recipients.Add Recipient
    .Body = Message
  End With
1 Solution
This seems to be a peculiarity of the default message form. I have not finished playing around with it myself, but have it on good authority that, if you use a custom form instead of the default, this doesn't happen.

Another possible solution would be to use the Move method on the item after you Save it.
STKeithAuthor Commented:
I guess I'll just have to settle for moving the file after it's created. Thanks.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now