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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)