Sample Classic ASP function to send email through mail gun's api

sendMailSample.asp

<%

'---- Sample code to send email though MailGun
'---- You must populate your base url and api-key below

Function SendMailSync(toAddress, fromAddress, subject, body, htmlBody)

	Dim httpPostData
	Dim mailGunMessageUrl

	Const MAILGUN_BASE_URL = "https://api.mailgun.net/v3/{DOMAIN HERE}"
	Const MAILGUN_API_KEY = "key-{API_KEY}"

	httpPostData = "from=" & fromAddress
	httpPostData = httpPostData & "&to=" & toAddress
	httpPostData = httpPostData & "&subject=" & subject
	httpPostData = httpPostData & "&text=" & body
	httpPostData = httpPostData & "&html=" & htmlBody

	set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")

	mailGunMessageUrl = MAILGUN_BASE_URL & "/messages"

	http.Open "POST", mailGunMessageUrl, false, "api", MAILGUN_API_KEY
	http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	http.setRequestHeader "Authorization", "Basic AUTH_STRING"
	http.Send httpPostdata

	If http.status <> 200 Then
		Response.Write "An error occurred: " & http.responseText
	End If

	SendMailSync = http.responseText

	Set http = Nothing

End Function


SendMailSync "adam@example.com", "No Reply noreply@example.com", "Test", "Test Mail", ""


%>