Cdo/nts

Koden för att skicka email med NTs inbyggda SMTP server för IIS 4.0

Sub SendMail(szTo, szFrom, szCC, szBCC, szSubject, szBody, intPriority)

	Set objMail = CreateObject("CDONTS.NewMail")
	
	objMail.From = szFrom
	objMail.To = szTo
	objMail.CC = szCC
	objMail.BCC = szBCC
	objMail.Subject = szSubject
	objMail.Body = szBody
	
	Select Case intPriority
		Case 0 ' -- Low Importance
			objMail.Importance = 2
		Case 1 ' -- Normal
			objMail.Importance = 0
		Case 2 ' -- High Importance
			objMail.Importance = 1
		Case Else
			objMail.Importance = 0
	End Select
	
	objMail.Send
	
	Set objMail = Nothing

End Sub