"Basr" <> wrote in message
news:45951cfc$0$3240$. ..
>
> "Egbert Nierop (MVP for IIS)" <> schreef in
> bericht news:...
>>
>> "Basr" <> wrote in message
>> news:4593e6f7$0$13606$ ...
>> > 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("CDO.Configuration")
Set mail = CreateObject("CDO.Message")
sch = "http://schemas.microsoft.com/cdo/configuration/"
with cdoConfig.fields
.item(sch + "sendpassword").value ="piet1234_"
.item(sch + "sendusername").value = "yourmailaddresscomeshere"
.item(sch + "smtpauthenticate").value = 1 'cdoBasic
.item(sch + "sendusing").value = 2 'cdoSendUsingPort
.item(sch + "smtpserver").value = "the IP or hostname of your SMTP
server here"
.Update()
End With
Set mail.Configuration = cdoConfig
If IsArray(vSubject) 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