Send Email About Which Label, How Many Times And Data Source Is Printed

Legacy Poster

• September 03, 2015 12:24

Hi folks,

 

Is it possible through vb scripting when a label is printed that bartender sends out an email which label and data source is printed?

 

For example:

 

test.btw is printed

 

user receives a message:

 

test.btw

20 (which is the amount of prints)

hello world (which is the objects data source)

 

0

• 

  Ian Cummings

  Moderator

  ★ BarTender Hero ★

  • September 07, 2015 13:56

  Yes this is possible.  Use a document level VB script and choose the OnPrintJobEnd event.  A quick Google search will turn up plenty of VBS code examples on how to do this.  Here is one I found that should at least give you a fair idea on how to approach this:

   

  Set emailObj      = CreateObject("CDO.Message")
  
  emailObj.From     = "dc@gail.com"
  emailObj.To       = "dc@gail.com"
  
  emailObj.Subject  = "Test CDO"
  emailObj.TextBody = "Test CDO"
  
  Set emailConfig = emailObj.Configuration
  
  emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
  emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
  emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")    = 2  
  emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  
  emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      = true 
  emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")    = "YourUserName"
  emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "Password1"
  
  emailConfig.Fields.Update
  
  emailObj.Send
  
  If err.number = 0 then Msgbox "Done"
  

  0

Please sign in to leave a comment.