"Basr" <mo****@hetnet. nlwrote in message
news:45******** **************@ text.nova.plane t.nl...
>
"Egbert Nierop (MVP for IIS)" <eg***********@ nospam.invalids chreef in
bericht news:um******** *****@TK2MSFTNG P02.phx.gbl...
>>
"Basr" <mo****@hetnet. nlwrote in message
news:45******* *************** *@text.nova.pla net.nl...
Thanks Mike, it will take six weeks to find what I'm looking for!
Marcel
No kidding?
The first link on google shows what you need.
Thanks
the first item of the link that was given by Mike gives scrips that sends
a
message from the webmaster. ("This is the body" in this case)
I do not understand why these examples should be useful for me
If you give us the source of one of your forms, maybe somebody would program
that for you, for free.
It is not difficult at all. Be sure.
If your ISP revoked CDONTS, it would have been very kind of them to provide
conversion samples.
If the code below really does not help you, you can hire a programmer. You
can hire me.
Public Sub SendMail(vFrom, vTo, vSubject, vCc)
Dim cdoConfig, mail, sch
Set cdoConfig = CreateObject("C DO.Configuratio n")
Set mail = CreateObject("C DO.Message")
sch = "http://schemas.microso ft.com/cdo/configuration/"
with cdoConfig.field s
.item(sch + "sendpassword") .value ="piet1234_"
.item(sch + "sendusername") .value = "yourmailaddres scomeshere"
.item(sch + "smtpauthentica te").value = 1 'cdoBasic
.item(sch + "sendusing").va lue = 2 'cdoSendUsingPo rt
.item(sch + "smtpserver").v alue = "the IP or hostname of your SMTP
server here"
.Update()
End With
Set mail.Configurat ion = cdoConfig
If IsArray(vSubjec t) Then
mail.Subject = vSubject(0)
mail.TextBody = vSubjEct(1)
Else
mail.Subject = Left(vSubject, 255)
mail.TextBody = vSubject
End If
mail.to = vTo
mail.From = vFrom
If not isempty(vCc) Then mail.Cc = vCc
mail.Send
End Sub
--
compatible web farm Session replacement for Asp and Asp.Net
http://www.nieropwebconsult.nl/asp_session_manager.htm