502,741 active members
4,460 visitors online
Register for free
Login
IndustryArena Forum > Machine Controllers Software and Solutions > Mach Software (ArtSoft software) > How can I get an email notification of job complete?
Results 1 to 3 of 3
  1. #1
    Registered
    Join Date
    Apr 2006
    Posts
    40

    How can I get an email notification of job complete?

    I am was wondering how I can modify a script so that I can get email notification that my job is complete. I am using the mach3 2010 screenset with latest Mach3.

    Thanks,
    CP

  2. #2
    Registered
    Join Date
    Mar 2006
    Posts
    113
    This is a text messaging that works with Verizon (vtext). I would assume you can play with it to get it to work via email. Where is says xxx@xxxx.com put in your email. Where it says xxxxxxxxxx put in your phone number. Where it says xxxxxx put in your email user ID and Password.



    'M3030 Macro

    Message " MACHINE #549, Process COMPLETED Call Home"


    Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
    Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

    Const cdoAnonymous = 0 'Do not authenticate
    Const cdoBasic = 1 'basic (clear-text) authentication
    Const cdoNTLM = 2 'NTLM

    Set objMessage = CreateObject("CDO.Message")
    objMessage.Subject = "Machine Alert"
    objMessage.From = """Machine #549"" "
    objMessage.To = "xxxxxxxxxx@vtext.com"
    objMessage.TextBody = "Machine #549 Process Completed.." & vbCRLF & "Thank You(;-)"

    '==This section provides the configuration information for the remote SMTP server.

    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    'Name or IP of Remote SMTP Server
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx@xxxxx.com"

    'Type of authentication, NONE, Basic (Base64 encoded), NTLM
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

    'Your UserID on the SMTP server
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxxxxx"

    'Your password on the SMTP server
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxx"

    'Server port (typically 25)
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    'Use SSL for the connection (False or True)
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

    'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
    objMessage.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

    objMessage.Configuration.Fields.Update

    '==End remote SMTP server configuration section==

    objMessage.Send
    End

  3. #3
    Registered
    Join Date
    Apr 2006
    Posts
    40
    Thanks, that worked great.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •