---
title: "Cdo/nts"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38088-cdo-nts"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Vide"
published: "2000-06-30T13:28:00.000Z"
updated: "2000-06-30T13:28:00.000Z"
replies: 0
views: 971
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/38088-cdo-nts"
---

# Cdo/nts

## #1 — Vide, 2000-06-30T13:28Z

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
```

Permalänk: https://www.webforum.nu/p/38088

---

Tråden på webben: https://www.webforum.nu/amne/asp/38088-cdo-nts