Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Printer Error!"
objMessage.Sender = "Techsupport <techsupport@swecoinus.com>"
objMessage.From = "Techsupport <techsupport@swecoinus.com>"
objMessage.To = "manfred.w@swecoinus.com"
objMessage.TextBody = "Paper error! Printer needs attention! \nError: " + Wscript.Arguments.Item(0)

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

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

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

objMessage.Configuration.Fields.Update

objMessage.Send