Use CDO in Access VBA to create an email in DRAFTS folder in Outlook.Com

[scotwithadevil]

Hi
I have created the code to SEND an email to a BCC group from my Outlook.com email address but I want to store it in DRAFTS instead as the email has to be checked and slightly ordered each time before it is actually sent. I know how to set up the addresses in the BCC line (I have some other code, which I haven't included, to do that).

I have wasted hours and hours on this and would be so grateful for help.
I did have code that just used normal MS Outlook but after an upgrade to Windows 10, I can't get MS Outlook to work so I have re-written the code to use Outlook Live.

This is my code:
On Error GoTo sendoutlookliveemail_Click_Err
Set MyEmail = CreateObject("CDO.Message")

MyEmail.Subject = "Test"
MyEmail.To = "recipient@btinternet.com"
MyEmail.From = "sender@outlook.com"
MyEmail.TextBody = "Is this working?"

Set emailConfig = MyEmail.Configuration
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-mail.outlook.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25


emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sender@outlook.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "sender passwordl"
emailConfig.Fields.Update
MyEmail.Configuration.Fields.Update

‘This is the line that is not working
MyEmail.Save

‘So I am currently using this instead
MyEmail.Send

Set MyEmail = Nothing

sendoutlookliveemail_Click_Exit:
Exit Sub

sendoutlookliveemail_Click_Err:
MsgBox Err.Number & " " & Err.Description
Resume sendoutlookliveemail_Click_Exit
End Sub

[ItsMe]

CDO is old and Outlook.com is newer. What is it you are trying to do? Are you trying to interact with you online Office 365? I think the only way to do that is via Windows Presentation Foundation and .NET. At least, the only examples I have seen is using WPF. I know Office is offering new SDK's all of the time.

Anyway, for the older version of Outlook express you might have been able to do something via CDO.
https://msdn.microsoft.com/en-us/lib...exchg.10).aspx

[scotwithadevil]

Hi
Thanks for taking the time to answer this. Frustratingly, my old code worked really well with desktop Outlook but I am now trying to interact with Outlook online and can no longer get it to save in Drafts as there doesn't appear to be a .SAVE command.
It was enough of a test of my skills to change the code to the above so that I could use .SEND
I'm not sure I have the skills to use WPF - I don't know what that is but will investigate.
Thanks again for taking the time to respond.

[ItsMe]

Do you have a desktop version of Outlook installed? You should be able to use your online account with your desktop Outlook Application. From there, you can use Access to automate Outlook. Then Outlook will synchronize with the online server.

[scotwithadevil]

No. The guy I am trying to do this for has upgraded to Windows 10 and can't get desktop Outlook to load on his machine (thank you MS!) so has set up an Outlook.com account instead. I have now suggested a trip to KnowHow to get the desktop version working! Think that will be a much easier solution than spending any more hours on this code.

[ItsMe]

OK, not sure what the issue with installing Office on W10 is. Of course, trying to buy anything that is not Office 365 is an adventure. So, maybe that was the issue.