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.
Dim fso As New Scripting.FileSystemObject
Dim File As File
Dim Stream As Scripting.TextStream
Dim mailSession As Object
Dim mail As Object
Set File = fso.GetFile("D:\Shopping Cart Project\Deployment\debuglog.txt")
Set Stream = File.OpenAsTextStream(ForAppending)
Stream.WriteLine " start write" & vbCrLf
Set mailSession = CreateObject("MSMAPI.MAPISession")
Set mail = CreateObject("MSMAPI.MAPIMessages")
On Error GoTo ErrorHandler
mailSession.UserName = "user"
mailSession.Password = "pass"
mailSession.NewSession = True 'force a new session
mailSession.DownLoadMail = False ' don't get new mail
mailSession.LogonUI = False 'suppress dialog box
Stream.WriteLine "about to start session" & vbCrLf
Stream.WriteLine "started session" & vbCrLf
mail.sessionid = mailSession.sessionid
mail.Compose 'clear buffers
mail.RecipAddress = "user@work.com"
mail.MsgSubject = "Order Information"
mail.MsgNoteText = order
Stream.WriteLine "about to send message" & vbCrLf
mail.Send False
Stream.WriteLine "msg sent" & vbCrLf
mailSession.SignOff
Stream.WriteLine "end session ----- mail worked" & vbCrLf
Stream.Close
Exit Sub
ErrorHandler:
Err.Raise Err.Number, Err.source, Err.Description
Stream.Close