Vb.net script to send an email

[concordseer]

I'm using Raspbian Stretch with Mono 5.2 on a Raspberry Pi 3. I've created an event where if an alarm is triggered the event will run a vb.net script to send an email to advise what zone was triggered.

The trigger in the event is working fine but the log is advising that the script is running in the background every two minutes. It looks like the script is trying to send the email with no success. Below is a copy of the script. Is there anybody that can see anything obviously wrong with the script that is preventing the email from being sent.

Sending of emails in HS is working fine so credentials are not an issue.

Public Sub Main(ByVal Parm As Object)
Dim AlarmType, Parms() as String
Parms = split(Parm, ",")
' Change device string if it's been renamed'
Dim LZname as String = "System Last Zone Faulted"
Dim LZref as integer = hs.DeviceValueByName(LZname)

if (LZref > 0) then
Dim dv as Scheduler.Classes.DeviceClass
dv = hs.GetDeviceByRef(LZref)

Dim ZoneName as String = dv.Name(hs)
Dim emsg as string = Parms(0) & " received for " & ZoneName
hs.SendEmail("joebloggs@gmail.com","maryjane@gmail.com",""," ","Alarm Recieved",emsg,"")
end if

End Sub

[TeleFragger]

silly question..
can you send an email with a test event that uses the built in email function? I know it was a pita for me to get that working first.. but I wonder if that needs to be set, then you can use a vb to send emails???

here is one of mine as an example..

I also use gmail...

[concordseer]

Not sure where you're coming from here. As I mentioned in the original post the internal email sending function works in HS. I tried you're sample event and it works fine.

The problem for me seems to be buried in the script. A syntax error, a missing bracket or comma possibly. Bear in mind I'm using Raspbian Stretch with Mono 5.2 and NOT Windows. I'm wondering if the vb.script will work with this setup

[TeleFragger]

whelp sorry no help

[jon00]

Try replacing:

Parms = split(Parm, ",")

With:

Parms = Parm.split(",")

The first is a visual basic command.

[concordseer]

Try replacing:

Parms = split(Parm, ",")

With:

Parms = Parm.split(",")

The first is a visual basic command.

Did that jon00 and got the following in the log

Error Compiling script /home/pi/HomeSeer/scripts/AlarmTrigger.vb: Function without an 'As' clause; Object return type assumed.
Dec-07 21:15:44 Error Compiling script /home/pi/HomeSeer/scripts/AlarmTrigger.vb: Value of type 'Object' cannot be converted to 'System.String[]'.
Dec-07 21:15:44 Error Compiling script /home/pi/HomeSeer/scripts/AlarmTrigger.vb: The import 'System.Core' could not be found.
Dec-07 21:15:44 Error Compiling script /home/pi/HomeSeer/scripts/AlarmTrigger.vb: Function without an 'As' clause; Object return type assumed.
Dec-07 21:15:44 Error Compiling script /home/pi/HomeSeer/scripts/AlarmTrigger.vb: Value of type 'Object' cannot be converted to 'System.String[]'.
Dec-07 21:15:44 Error Compiling script /home/pi/HomeSeer/scripts/AlarmTrigger.vb: The import 'System.Core' could not be found.

[concordseer]

Problem solved thanks to vasrc.

I had the string named System Last Zone Faulted named incorrectly. I should have named it to Security Last Zone Faulted to reflect my devices name.

Script is working fine now. Thanks to all for your input.