Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
release all LIKE 'ded*'
* clear all
LOCAL CurItem, NewItem
USE inmail
GO BOTTOM
NewItem = messageno + 1
? newitem
dedOlApp = CREATEOBJECT("Outlook.Application")
dedNameSpace = dedOlApp.GetNameSpace("MAPI")
dedFolder = dedNameSpace.GetDefaultFolder(6)
FOR CurItem = NewItem TO dedfolder.items.count
dedMailIn = dedfolder.items(CurItem)
WITH dedMailIn
INSERT INTO inmail;
VALUES (NewItem, .subject, .Body, .to, .cc, .bcc, .receivedtime, .sendername)
ENDWITH
NewItem = NewItem +1
ENDFOR