hello
i have copied the lines
this is line 168
if ReturnReceipt <> "" then
objMail.Value ("Disposition-Notification-To") = ReturnReceipt
'======================================
' Sends an email with CDONTS
function CDONTS_Mailer(MailPar_1, MailPar_2, MailPar_3, MailPar_4, MailPar_5, FromName, FromMail, ReplyName, ReplyMail, ToName, ToMail, CcList, BccList, ReturnReceipt, MailFormat, Priority, MailObject, Message)
Dim objMail, Risp
Set objMail = Server.CreateObject("CDONTS.NewMail")
if ToName<>"" then
objMail.To = ToName & " <" & ToMail & ">"
else
objMail.To = ToMail
end if
if FromName<>"" then
objMail.From = FromName & " <" & FromMail & ">"
else
objMail.From = FromMail
end if
if ReplyMail<>"" then
if ReplyName<>"" then
objMail.Value("Reply-to") = ReplyName & " <" & ReplyMail & ">"
else
objMail.Value("Reply-to") = ReplyMail
end if
end if
if ReturnReceipt <> "" then
objMail.Value ("Disposition-Notification-To") = ReturnReceipt
end if
if CcList<>"" then
objMail.Cc = replace(CcList,",",";")
end if
if BCcList<>"" then
objMail.BCc = replace(BCcList,",",";")
end if
if clng(MailFormat) = 1 then
objMail.BodyFormat = 0
objMail.MailFormat = 0
else
objMail.BodyFormat = 1
objMail.MailFormat = 1
end if
select case clng(Priority)
case 1: objMail.importance = 2
case 2: objMail.importance = 1
case 3: objMail.importance = 0
end select
objMail.Subject = MailObject
objMail.Body = Message
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Login
Unread message![Read message [popular]](http://forum.dwzone-it.com/template/subSilver/images/folder_hot.gif)
Read message [popular] ![Unread message [popular]](http://forum.dwzone-it.com/template/subSilver/images/folder_new_hot.gif)
Unread message [popular]![Read message [locked]](http://forum.dwzone-it.com/template/subSilver/images/folder_lock.gif)
Read message [locked] ![Unread message [locked]](http://forum.dwzone-it.com/template/subSilver/images/folder_lock_new.gif)
Unread message [locked]