Click here to Skip to main content
15,887,474 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
How to check the printer toner status, and if there is "low toner" or only 30%, send an e-mail and show MsgBox("Low Toner").

What I have tried:

I only have the code to send an email

VB
Dim Outl As Object
            Outl = CreateObject("Outlook.Application")
            If Outl IsNot Nothing Then
                Dim omsg As Object
                omsg = Outl.CreateItem(0)
                omsg.To = "aaa@gmail.com"
                'omsg.cc =
                omsg.subject = "LOW TONER"
                omsg.body = ("here information about the toner")
                
                omsg.Send()

            Else
                MsgBox("Message Error")

            End If
Posted
Comments
CHill60 18-Oct-18 6:03am    
This is surely going to depend on which printer you have - refer to the manufacturer's instructions re their API - if they have one.
Member 13678238 19-Oct-18 1:08am    
yes, the printer has this option, printer is set by default in the Windows system which shows the message "low toner"

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900