<%@LANGUAGE = VBSCRIPT%> Julie Sattler Award <% 'sMessage = "" ' set variable for success or failure message ' Create the JMail message Object set msg = Server.CreateOBject( "JMail.Message" ) Set upload = Server.CreateObject( "w3.Upload" ) ' Set logging to true to ease any potential debugging ' And set silent to true as we wish to handle our errors ourself msg.Logging = true msg.silent = true ' Most mailservers require a valid email address ' for the sender msg.From = "do_not_reply@hoban.com.au" msg.FromName = "2008 HOBAN AWARD nomination" ' Next we have to add some recipients. ' The addRecipients method can be used multiple times. ' Also note how we skip the name the second time, it ' is as you see optional to provide a name. 'msg.AddRecipient "recruit@hoban.com.au", "Hoban" msg.AddRecipient "award@hoban.com.au", "Award" 'msg.AddRecipient "andrew@evolving.com.au", "Andrew" 'msg.AddRecipient "scottscottm@hotmail.com", "Scott" 'msg.AddRecipient "recipientelle@herDomain.com" ' The subject of the message msg.Subject = "HOBAN AWARD nomination from website." ' The body property is both read and write. ' If you want to append text to the body you can ' use JMail.Body = JMail.Body & "Hello world! " ' or you can use JMail.AppendText "Hello World! " ' which in many cases is easier to use. ' ' Note the use of vbCrLf to add linebreaks to our email msg.Body = "Name of nominator: " & upload.Form("contact_name") & vbCrLf & "Nominator's Company: " & upload.Form("contact_company") & vbCrLf & "Nominator's Contact: " & upload.Form("contact_phone") & vbCrLf & vbCrLf & "Nomination: " & upload.Form("contact_nomination") & vbCrLf & "Reason for nomination: " & upload.Form("contact_reason") ' There.. we have now succesfully created our message. ' Now we can either send the message or save it ' as a draft in a Database. ' To save the message you would typicly use the ' Message objects Text property ' to do something like this: ' ' SaveMessageDraft( msg.Text ) ' Note that this function call is only an ' example. The function does not exist by ' default, you have to create it yourself. ' To send the message, you use the Send() ' method, which takes one parameter that ' should be your mailservers address ' ' To capture any errors which might occur, ' we wrap the call in an IF statement if not msg.Send("localhost") then Response.write "
" & msg.log & "
" else ' Response.write "Message sent succesfully!" end if ' And we're done! the message has been sent. %>
 
  Home Job Seekers Employers Hoban News About Hoban Contact Us  

 

The winner of the 2008 Julie Sattler Achievement Award is:

Bessie Koutsou,

EA to Director of Operations and Director of Retail Stores, Myer.

Congratulations Bessie!

 

L to R John Hawker (Myer), Julie Sattler (HOBAN), Bessie Koutsou, Nick Abboud (Myer)

This year’s winner will attend the International Conference Quasar, hosted by the Australian Institute of Office Professionals at Rydges Hotel Melbourne from 7th to 9th September 2008.

HOBAN Recruitment was encouraged by the quality of nominations received.  Thank you to those companies who nominated a staff member they believed went "the extra mile". 

>> Click here for more photos

 

Privacy