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.
<b> TESTING </b>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.3492" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Verdana size=2><b> TESTING
</b><BR></FONT></DIV></BODY></HTML>
<b> TESTING </b>
Rem --- Read HTML text, then delete file
ForReading = 1
Set ts = fso.OpenTextFile("C:\temp\Email.htm", ForReading)
strText = ts.ReadAll
ts.Close
fso.DeleteFile ("C:\temp\Email.htm")
Rem --- Read subject
Set ts = fso.OpenTextFile("C:\te,[\Email.sub", ForReading)
strSubj = ts.ReadAll
ts.Close
Rem --- Read to:
Set ts = fso.OpenTextFile("C:\temp\Email.to", ForReading)
strTo = ts.ReadAll
ts.Close
Rem --- Create HTML message
Set NewMail = ThisOutlookSession.CreateItem(olMailItem)
With NewMail
.BodyFormat = olFormatHTML
.Subject = strSubj
.HTMLBody = strText
.To = strTo
.Display
End With