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.
'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************
Function Main()
Dim myMail
Set myMail=CreateObject("CDO.Message")
myMail.Subject="New AgeIn Load"
myMail.From="name@domain.com"
myMail.To= "name@domain.com"
myMail.TextBody="Enter Your Message Here, " & Chr(13) & Chr(13) _
& "Make Sure to Delimit Lines" & Chr(13) & Chr(13) _
& "Thanks," & Chr(13) & "<auto generated message>"
myMail.Configuration.Fields.Item _
("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")=2[/URL]
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserver")[/URL] _
=[b]ENTER IP ADDRESS TO SEND FROM HERE[/b]
'Server port default = 25
myMail.Configuration.Fields.Item _
("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverport")[/URL] _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
If ErrorCount <> 0 Then
Main = DTSTaskExecResult_Success
Else
Main = DTSTaskExecResult_Failure
End If
End Function
Ok, if I try the code you have above, what do I need to manually change to make this work???