in message
: "Roland Hall" wrote in message
: : > "Egbert Nierop (MVP for IIS)" wrote in message
: > : > : "Roland Hall" wrote in message
: > : : > : > Is it possible to send/receive nntp messages via CDOSYS without a
3rd
: > : party
: > : > news component? The NNTP links I have found appear to be related to
: MS
: > : > Exchange 2K.
: > : >
: > : > My goal is to write an ASP interface as a customized news reader.
: > :
: > : Yes!
: > : This is perfectly possible. Outlook Express, also uses -the same-
: > component.
: >
: > Hi Egbert...
: >
: > Can you shed some light on where I can find documentation on this? It
is
: my
: > understanding that Exchange would have to be on the same server and I
had
: > hoped this was not a requirement. I cannot find any definitive
: information
: > anywhere.
:
: That's not correct. As I said, CDO is installed on for instance XP, and I
: have -no- Exchange on my system. Outlook Express uses CDO to post and to
: read messages.
: But as soon as you install Exchange on a server, it will replace the
: original CDO and add additional functionailty, that you don't need to
: imitate 'outlook express'.
:
: About documentation, it's not fully documented but not impossible to find
: out. The typelibrary is very extended and if you get comfortable using
that
: API, you also easy can post and read from NNTP servers.
:
:
http://msdn.microsoft.com/library/d...ss/posting_a_message_to_an_nntp_newsgroup.asp
:
: Private Sub POST_NEWS_MESSAGE()
: Dim Msg As New CDO.Message
: Dim Cfg As New CDO.Configuration
:
:
Cfg.Fields("
http://schemas.microsoft.com/cdo/configuration/postusing").Value
: = 2
:
Cfg.Fields("
http://schemas.microsoft.com/cdo/configuration/nntpserver").Valu
: e = "yournntpserver"
:
: Cfg.Fields.Update
: Set Msg.Configuration = Cfg
:
: Msg.Subject = "Hello"
: Msg.From = "(e-mail address removed)"
: Msg.Newsgroups = "yournewsgroup"
: Msg.Post
:
: End Sub
Egbert...
Thanks for responding but this appears to be VB, not VBScript to be used
with ASP. I made some modifications and I got it working but it still needs
some work and now I need to find out how to get the messages and display
them and then write my interface.
Here is what I have currently. I posted this message in the test area.
<%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = True
Const cdoPostUsingPort = 2
Const cdoPostUsingMethod =
"
http://schemas.microsoft.com/cdo/configuration/postusing"
Const cdoNNTPServer =
"
http://schemas.microsoft.com/cdo/configuration/nntpserver"
Const cdoNNTPServerPort =
"
http://schemas.microsoft.com/cdo/configuration/nntpserverport"
Const cdoNNTPConnectionTimeout =
"
http://schemas.microsoft.com/cdo/configuration/nntpconnectiontimeout"
Const cdoNNTPAuthenticate =
"
http://schemas.microsoft.com/cdo/configuration/nntpauthenticate"
Const cdoPostEmailAddress =
"
http://schemas.microsoft.com/cdo/configuration/postemailaddress"
Private Sub Post_News_Message()
Dim Cfg, Fields, Msg
Set Cfg = Server.CreateObject("CDO.Configuration")
Set Fields = Cfg.Fields
Set Msg = Server.CreateObject("CDO.Message")
With Fields
.Item(cdoPostUsingMethod) = cdoPostUsingPort
.Item(cdoNNTPServer) = "msnews.microsoft.com"
.Item(cdoNNTPServerPort) = 119
.Item(cdoNNTPConnectionTimeout) = 10
.Update
End With
With Msg
.Configuration = Cfg
.Newsgroups = "microsoft.test"
.From = "nobody@nowhere"
.Subject = "NNTP Test"
.TextBody = "NNTP Test Sent @ " & Now()
.Post
End With
Set Fields = Nothing
Set Msg = Nothing
Set Cfg = Nothing
End Sub
Post_News_Message
%>
I posted another message after this, after I modified my .From and it went
to the same thread. Do you know if this is based on the subject?
--
Roland Hall
/* This information is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of merchantability
or fitness for a particular purpose. */
Technet Script Center -
http://www.microsoft.com/technet/scriptcenter/
WSH 5.6 Documentation -
http://msdn.microsoft.com/downloads/list/webdev.asp
MSDN Library -
http://msdn.microsoft.com/library/default.asp
