9/24/2020 1:04 PM | |
Posts: 1 Rating: (0) |
Hello, Please help me in this VBS code.. This code is used to send email on specific address, however it is not working and i cant recieve any email Option Explicit Function action Dim TRG Dim strFrom Dim strTo Dim strSub Dim strBody Dim strSMTP Dim objEmail Set TRG = HMIRuntime.Tags("TRGVAL") strFrom = "ie@mail.com" strTo = "ie@mail.com" StrSub ="TRG Value" strBody = "Test Mail" 'Here you put either the IP number or name of the server "smtp.server.name" strSMTP = "192.192.192.192" Set objEmail = CreateObject("CDO.Message") objEmail.From = strFrom objEmail.To = strTo objEmail.Subject = strSub objEmail.Textbody = strBody objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP 'I dont use this but if it requires a port number add it here objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send End Function ------------------------------------------------------------------------------------------ |
Last edited by: The Helping Hand at: 09/25/2020 11:51:43New subject after splitting |
|
9/27/2020 5:34 PM | |
Joined: 12/12/2011 Last visit: 12/30/2020 Posts: 821 Rating: (41)
|
hi, Make sure you have IIS and SMTP installed on the machine you are going to send it from, i think this is missing for your script. ANother Example with outlook:
b.r. |
Grundkurs/Systemkurs WinCC V7: |
|