?
Solved

Hta that send mails quering the printer description.

Posted on 2008-09-29
2
Medium Priority
?
328 Views
Last Modified: 2012-05-05
Hi,

Hta that send mails quering the printer description.

1. When clicked SEND there should be 2 mails sent in 1 send.

One thats already doing now and another mail to a different TO & CC with a different subject. But the body can be the same.

So in one go i get a call log raised with the vendor and a call log raised in the company logging system also.

Regards
Sharath
Dim strComputer, strEmailServer, strEmailSender, strEmailTo, MyVar, objWMIService, colInstalledPrinters, strMessage
strComputer = "."
strEmailServer = "MAILSERVER"
strEmailSender = "youname@domain.com"
strEmailTo = "yourname@domain.com"
 
Do Until MyVar = 1
	MyVar = 0
	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colInstalledPrinters =  objWMIService.ExecQuery ("Select * from Win32_PrintJob WHERE TotalPages > 100",,48)
	For Each objPrinter in colInstalledPrinters
		strMessage =	"Name: "            & objPrinter.Name   & Chr(10) & Chr(13) & _
				"Print Job Owner: " & objPrinter.Owner  & Chr(10) & Chr(13) & _
				"Total Pages: "  & objPrinter.TotalPages & Chr(10) & Chr(13)
		ShowAlert(strMessage)
	Next
	WScript.Sleep(1000*10)
Loop
 
Sub ShowAlert(msg)
 
'On Error Resume Next
Dim objMessage
Set objMessage = CreateObject("CDO.Message")
with objMessage
.Sender = strEmailSender
.To = strEmailTo
.Subject = "Print Server Alert" 
.TextBody = msg
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strEmailServer 
 
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
 
.Configuration.Fields.Update
.Send
end with 
Set objMessage = Nothing
 
End Sub

Open in new window

0
Comment
Question by:bsharath
2 Comments
 
LVL 58

Accepted Solution

by:
tigermatt earned 2000 total points
ID: 22599000
The code you posted doesn't appear to be in HTA form. However, I've modified it to add the CC mail, let me know of any further changes.

You need to set the Subject line for both the To and CC messages, and then obviously the email addresses for the To and CC messages. The rest will take care of itself.

Matthew
Dim strComputer, strEmailServer, strEmailSender, strEmailTo, MyVar, objWMIService, colInstalledPrinters, strMessage, strEmailCC, strSubjectCC
strComputer = "."
strEmailServer = "MAILSERVER" 'Mail Server Name
strEmailSender = "youname@domain.com" 'Sender Address
strEmailTo = "yourname@domain.com" 'The TO Email Address
strEmailCC = "the-CC-email@domain.com" 'Address to CC to
strSubjectCC = "CC Message Subject" 'The Subject for the CC
strSubjectTo = "TO Message Subject" 'The Subject for the mail sent to the "To" address
 
Do Until MyVar = 1
        MyVar = 0
        Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
        Set colInstalledPrinters =  objWMIService.ExecQuery ("Select * from Win32_PrintJob WHERE TotalPages > 100",,48)
        For Each objPrinter in colInstalledPrinters
                strMessage =    "Name: "            & objPrinter.Name   & Chr(10) & Chr(13) & _
                                "Print Job Owner: " & objPrinter.Owner  & Chr(10) & Chr(13) & _
                                "Total Pages: "  & objPrinter.TotalPages & Chr(10) & Chr(13)
                ShowAlert(strMessage)
        Next
        WScript.Sleep(1000*10)
Loop
 
Sub ShowAlert(msg)
 
'On Error Resume Next
Dim objMessage
Set objMessage = CreateObject("CDO.Message")
with objMessage
.Sender = strEmailSender
.To = strEmailTo
.Subject = strSubjectTo
.TextBody = msg
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strEmailServer 
 
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
 
.Configuration.Fields.Update
.Send
end with 
Set objMessage = Nothing
 
Set objMessage = CreateObject("CDO.Message")
with objMessage
.Sender = strEmailSender
.To = strEmailCC
.Subject = strSubjectCC 
.TextBody = msg
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strEmailServer 
 
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
 
.Configuration.Fields.Update
.Send
end with 
Set objMessage = Nothing
 
End Sub

Open in new window

0
 
LVL 11

Author Comment

by:bsharath
ID: 22602429
Thank U Matthew... Sorry put in the wrong code here
Here is the new post
http://www.experts-exchange.com/Programming/Languages/Scripting/Q_23773550.html
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
Learn the basics of if, else, and elif statements in Python 2.7. Use "if" statements to test a specified condition.: The structure of an if statement is as follows: (CODE) Use "else" statements to allow the execution of an alternative, if the …
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses

569 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question