Access 2007 create email in Outlook; how to save it in a specific fold

[DougP]

I have this code which works great and saves the file in the "Drafts" folder. I was hoping there was a way to save these emails in a folder called "Parents", is that possible?

        Dim OlApp As Object
        Dim OlMail As Object
    
        Set OlApp = CreateObject("Outlook.Application")
        Set OlMail = OlApp.createitem(olmailitem)
        
        OlMail.Recipients.Add Email
        
        'Add the two attachments
        OlMail.Attachments.Add FullPath & PDFFile
        OlMail.Attachments.Add "my.pdf"
        
        OlMail.subject = subject
        OlMail.htmlBody = newmessage
    
        ' save the message
        OlMail.Save

TIA

DougP

 

[UnsolvedCoding]

First, which version of Access are you running?

Second, it may be easier to save it to the drafts folder in Outlook and then move it.

 

[DougP]

I am saving it in the drafts now i.e. OlMail.Save
I need to generate 160+ emails and need them in 9 groups
Grade 1
Grade 2
Grade 3
etc

DougP

 

[DougP]

the version of Access is in the title of the post
"Access 2007 create email in Outlook; how to save it in a specific fold"

which is how I always start all my posts, since there are so many versions of eveything.


DougP