• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 151
  • 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
    .Save
  End With
0
STKeith
Asked:
STKeith
1 Solution
 
SMosherCommented:
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.
0
 
STKeithAuthor Commented:
I guess I'll just have to settle for moving the file after it's created. Thanks.
0
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

Cloud Class® Course: CompTIA Cloud+

The CompTIA Cloud+ Basic training course will teach you about cloud concepts and models, data storage, networking, and network infrastructure.

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