%
function SendMail(sTo, sFrom, sPriority, sSubject, sBody, sAttachment, bHTML)
on error resume next
cdoLow = 0 ' Low importance
cdoNormal = 1 ' Normal importance (default)
cdoHigh = 2 ' High importance
cdoBodyFormatHTML = 0
cdoBodyFormatText = 1
cdoMailFormatMime = 0
cdoMailFormatText = 1
' Create a new mail object
Set oMailMessage = server.CreateObject("CDONTS.NewMail")
oMailMessage.To = sTo
' Good practice to set a Reply-TO
oMailMessage.Value("Reply-To") = sFrom
oMailMessage.From = sFrom
oMailMessage.subject = sSubject
sPriority = ucase(sPriority)
if sPriority = "LOW" then
oMailMessage.importance = cdoLow
elseif sPriority = "HIGH" then
oMailMessage.importance = cdoHigh
else
oMailMessage.importance = cdoNormal
end if
' Set body format for HTML if needed
if bHTML then
oMailMessage.BodyFormat = cdoBodyFormatHTML
oMailMessage.MailFormat = cdoMailFormatMime
else
oMailMessage.BodyFormat = cdoBodyFormatText
oMailMessage.MailFormat = cdoMailFormatText
end if
oMailMessage.Body = sBody
if sAttachment <> "" then
oMailMessage.Attachfile sAttachment
end if
' Now send it off!
oMailMessage.Send
set oMailMessage = nothing
if Err then
SendMail = false
else
SendMail = true
end if
end function
%>
<%if request.querystring="" then%>

Op.Dr. Ünsal AYBEK
Genel Cerrahi Uzm.
(Özel Ahu Hetman Hastanesi)
Marmaris / MUĞLA
|
|
Bazı Yabancı Site Linkleri