pcsoft.us.windevCopyright 2026, PC SOFT8 May 2017 15:46:00 Z4 May 2017 12:19:00 ZHi guys. I am using Exchange WebServices to access multiple mailboxes on an Exchange server. Because I want my application to run as a system service, I cannot - and don't want - to use the built in functions as it relies on outlook and I don't want to create a million Outlook profiles... This solution also has the benefit of running from a non-domain connected computer. If it was possible to get working thoroughly, it could be used as the basis for an archival tool or a way to backup multiple Exchange online accounts (o365) I can log in just fine, list folder contents, load individual messages, save attachments etc. All good. However, What I really want to do is to save the messages as .EML files. According to the EWS API this can only be done by saving the MIMECONTENT of the message as a whole. Here is my code (Most of which works great), hope fully someone will find this useful The bit that doesn't work is the saving of the mimecontent near the end. If anyone has done this successfully, I'd be delighted if you could share Cheers, Bosh ServiceEWS is an ExchangeService(ExchangeVersion.Exchange2013,TimeZoneInfo.Utc) ServiceEWS.Credentials = new WebCredentials("login","pw","WDomain") //Note. Wdomain is the NT style domain name, not the public domain name ServiceEWS.Url = new Uri("https://mail.yourdomain.com/EWS/Exchange.asmx"); //Test read of ten messages in Inbox clInbox is a Folder(ServiceEWS) clInbox <- Folder.Bind(ServiceEWS,WellKnownFolderName.Inbox) clFindresults is a 'FindItemsResults<Microsoft.Exchange.WebServices.Data.Item>' clFindresults <- ServiceEWS.FindItems(WellKnownFolderName.Inbox,new ItemView(10)) clMail is an EmailMessage(ServiceEWS) FOR ALL i OF clFindresults.Items xs is an 'Collection<Microsoft.Exchange.WebServices.Data.PropertyDefinitionBase>' xs.add(ItemSchema.Attachments) clMail <- EmailMessage.Bind(ServiceEWS,i.id, new PropertySet(BasePropertySet.IdOnly, xs)) clMail.Load() Trace(clMail.Subject) END bMoreItems is a boolean = True ipagesize is int = 50 IOffset is int nIIter is int nIDspCnt is int //Search for subfolders of Inbox vi is a FolderView = Null Scfilt is a SearchFilter = Null Scfilt <- new SearchFilter.IsGreaterThan(FolderSchema.TotalCount, 0); vi <- new FolderView(ipagesize,IOffset) vi.PropertySet = new PropertySet(BasePropertySet.IdOnly) vi.PropertySet.Add(FolderSchema.DisplayName) vi.PropertySet.Add(FolderSchema.Id) vi.PropertySet.add(FolderSchema.FolderClass) vi.Traversal = FolderTraversal.Deep Trace("The " + clInbox.DisplayName + " has " + clInbox.ChildFolderCount + " child folders."); // Now do something with the folder, such as display each child folder's name and ID. clFoldersFound is a FindFoldersResults clFolder is a Folder(ServiceEWS) sFolder is string clBMimeContent is a MimeContent() nFile is int clMail2 is an EmailMessage(ServiceEWS) bufMsg is Buffer nLen is int sFname is string WHEN EXCEPTION IN WHILE bMoreItems = True clFoldersFound <- ServiceEWS.FindFolders(WellKnownFolderName.Inbox,Scfilt,vi) bMoreItems = clFoldersFound.MoreAvailable IF bMoreItems = True THEN vi.Offset = vi.Offset + ipagesize END nIIter = 0 nIDspCnt = clFoldersFound.Folders.Count FOR ALL it OF clFoldersFound.Folders clFolder.DisplayName = it.displayname sFolder = Upper(clFolder.displayname) SWITCH Left(sFolder,3) CASE "LON", "HOU", "PER", "NEW", "SGP", "RSA", "BRL" Trace(it.DisplayName) clFindresults2 is a 'FindItemsResults<Microsoft.Exchange.WebServices.Data.Item>' clFindresults2 <- ServiceEWS.FindItems(it.id,new ItemView(10)) Trace("ok") //Get Items FOR ALL i OF clFindresults2.Items sFname = "\ est_" + TimeSys() + "\.eml" xs2 is an 'Collection<Microsoft.Exchange.WebServices.Data.PropertyDefinitionBase>' xs2.add(ItemSchema.MimeContent) xs2.add(ItemSchema.TextBody) clMail2 <- EmailMessage.Bind(ServiceEWS,i.id, new PropertySet(BasePropertySet.IdOnly,xs2)) fDelete(SysDir(srMyDocuments) + sFname) nFile = fOpen(SysDir(srMyDocuments) + sFname,foCreateIfNotExist+foUnicode) //Crashes here :( fWrite(nFile,clMail2.MimeContent.content) fClose(nFile) Trace("woop") END OTHER CASE Trace("no match - " + it.DisplayName) END END END DO END30WEBDEVen_UShttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)guestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60786/read.awp8 May 2017 15:46:00 ZHi Peter, Thanks for the info. I try to avoid .NET as much as possible but this API is too good to miss! :) So many possib…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60786/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60786/read.awpEWS extract mail to .emlguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60772/read.awp8 May 2017 11:19:00 ZHi Bosh, Just FYI: In .Net (C#) any reference type derives from the base Object Class which has the ToString method. So, al…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60772/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60772/read.awpEWS extract mail to .emlguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60771/read.awp8 May 2017 09:42:00 ZHi Jose, Thanks for your help. It works perfectly! Sorry, I didn't see that method in the documentation :0 Cheers Boshhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60771/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60771/read.awpEWS extract mail to .emlguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60770/read.awp8 May 2017 01:02:00 ZSo after all you had a compilation error by windev saying that mimecontent is not a string... Had you say it first, and would…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60770/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60770/read.awpEWS extract mail to .emlguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60765/read.awp7 May 2017 14:24:00 ZHi Tor-Bjarne Thanks for the suggestion but the problem is much simpler. The Windev editor itself is complaining about the sy…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60765/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60765/read.awpEWS extract mail to .emlguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60764/read.awp7 May 2017 11:08:00 ZHi, Perhaps you should try sFname = ".\ est_" + TimeSys() + "\.eml" as you now are trying to save a .eml file in the \ est_" …https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60764/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60764/read.awpEWS extract mail to .emlguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60749/read.awp5 May 2017 18:49:00 ZHi Fabrice I have tried sFname = "\ est_" + TimeSys() + "\.eml" fSaveText(SysDir(srMyDocuments) + sFname,clMail2.MimeCont…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60749/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60749/read.awpEWS extract mail to .emlguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60746/read.awp5 May 2017 15:36:00 ZHi so what is the incorrect syntax you are using? Best regardshttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60746/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60746/read.awpEWS extract mail to .emlguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60732/read.awp4 May 2017 15:31:00 ZHi Fabrice, I tried fsavetext and it reports 'no compatible syntax' :(https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60732/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60732/read.awpEWS extract mail to .emlguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60730/read.awp4 May 2017 15:21:00 ZHi Fabrice Actually the code I posted is slightly incorrect. I am loading each message in the last loop with clmail2.Load(). …https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60730/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60730/read.awpEWS extract mail to .emlguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60728/read.awp4 May 2017 14:41:00 ZHi what is the error message ? Why not do a fsauvetext? Best regardshttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60728/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/60721-ews-extract-mail-eml-60728/read.awpEWS extract mail to .eml