Comprises information about a specific News server article.
Contains references to a collection of articles in the current group.
Object.Articles
Articles collection object.
Read-only.
This example shows a typical context of Articles property.
’Gets the groups available on the server
Set news =CreateObject("UCX:INews.news")
’Set the IP address
news.server = "164.99.150.93"
’Establish connection with the server
news.Connect()
Set groups = news.groups
Set group = groups.item("junk")
Set articles = group.articles
Print "The number of group objects is "&articles.count
Print "The group name is "&group.name
Returns the first article object from the articles collection in the current group.
Object.First
Article object.
Read-only.
This example returns the first article object from the articles collection in the group Test.
Gets the groups available on the server
Set news =CreateObject("UCX:INews.news")
’Set the IP address
News.server = "164.99.150.93"
’Establish connection with the server
News.Connect()
Set groups = news.groups
Set group = groups.item("Test")
Set articles = group.articles
Print "The number of group objects is "&articles.count
Set article = group.First
Print article.author
Print article.bytecount
Returns the last article object from the articles collection in the current group.
Object.Last
Article object.
Read-only.
This example returns the bytecount of the last article object from the articles collection in the current group.
Gets the groups available on the server
Set news =CreateObject("UCX:INews.news")
’Set the IP address
News.server = "164.99.150.93"
’Establish connection with the server
News.Connect()
Set groups = news.groups
Set group = groups.item("Test")
Set articles = group.articles
Print "The number of group objects is "&articles.count
Set article = group.Last
Print article.author
Print article.bytecount
Returns the name of the specified group.
Object.Name
String.
Read-only.
This example returns the name of the group.
’Gets the groups available on the server
Set news =CreateObject("UCX:INews.news")
’Set the IP address
news.server = "164.99.150.93"
’Establish connection with the server
news.Connect()
Set groups = news.groups
For each group in groups
Set group = groups.item("junk")
Set articles = group.articles
Print "The group name is "&group.name
Next
Indicates whether the specified group allows articles to be posted to the News server.
Object.PostAllowed
Boolean.
Read-only.
This example indicates whether the specified group allows articles to be posted to the News server.
Gets the groups available on the server
Set news =CreateObject("UCX:INews.news")
’Set the IP address
News.server = "164.99.150.93"
’Establish connection with the server
News.Connect()
Set groups = news.groups
Set group = groups.item("Test")
Set articles = group.articles
Print "The number of group objects is "&articles.count
Set article = group.First
print group.postallowed