Blockchain is a technology that underpins the success of Bitcoin and other digital currencies, but it has uses far beyond finance. Learn how blockchain works and why it is proving disruptive to other areas of IT.
Set OlApp = CreateObject("Outlook.Application") Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox) Set rstAddEmail = CurrentDb.OpenRecordset("tblInvestigationEmails") Set rstAddAttachment = CurrentDb.OpenRecordset("tblInvestigationAttachments") Set Mailobject = OlApp.ActiveExplorer.Selection(1) With rstAddEmail On Error Resume Next .AddNew !DateAdded = Now !EmailNumber = strEmailNumber !Subject = Mailobject.Subject !From = Mailobject.SenderName !To = Mailobject.To !Body = Mailobject.Body !DateSent = Mailobject.SentOn .Update 'Mailobject.Read = True End With
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.