nycboy -
Here is what is in one of the attaachments in you new posting
below in blue)
This looks like you cut code from an HTML message and pasted into an Outlook VBA routine. For some reason this mixture of VBA and HTML is causing some strange problems. Why did you send it as an attachment to the newgroup posting (iassuming you did it purposely). The thousands of messages with those headers looks like the work of an email worm of some kind.
Has anyone seen anything like this before?
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2900.2523" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Fixedsys color=#0000ff size=2>Sub
TestFunction()<BR> OpenOutlookFolder "Outlook", "Personal
Folders", "c:\temp"<BR>End Sub</FONT></DIV>
<DIV><FONT face=Fixedsys color=#0000ff size=2><BR>Sub
OpenOutlookFolder(strProfile As String, strPSTFolder As String, strDataBase As
String)<BR><FONT color=#008000>
'Arguments<BR> ' strProfile - Outlook
profile name<BR> ' strPSTFolder - Outlook PST
folder name<BR> ' strDatabaseTemp - database
temporary folder<BR></FONT> Dim strOutlook As
String<BR> strOutlook = "Outlook 9.0;"<BR>
<BR> Dim strMAPILevel As String<BR>
strMAPILevel = "MAPILEVEL=" & strPSTFolder & "|;" <FONT
color=#008000>'Ends with a PIPE char<BR></FONT>
<BR> Dim strTableType As String<BR>
strTableType = "TABLETYPE=0;"<BR> <BR>
strProfile = "PROFILE=" & strProfile & ";"<BR>
strDataBase = "DATABASE=" & strDataBase & ";"<BR>
<BR> Dim oConn As New ADODB.Connection<BR>
With oConn<BR> .Provider =
"Microsoft.JET.OLEDB.4.0"<BR>
...ConnectionString = strOutlook & strProfile & strMAPILevel &
strDataBase<BR>
...Open<BR> End With</FONT></DIV>
<DIV><FONT face=Fixedsys color=#008000 size=2> </FONT></DIV>
<DIV><FONT face=Fixedsys color=#008000 size=2> ' we can now
use SQL to get a recordset of any folder</FONT></DIV>
<DIV><FONT face=Fixedsys color=#008000 size=2> '
contained in the PST.</FONT></DIV>
<DIV><FONT face=Fixedsys color=#008000 size=2> ' Folders
within folders can be walked recursively</FONT></DIV>
<DIV><FONT face=Fixedsys color=#008000 size=2> ' as an example
we will return the contacts folder</FONT></DIV>
<DIV><FONT face=Fixedsys color=#0000ff size=2> Dim oRS As New
ADODB.Recordset<BR> With
oRS<BR> .Open "Select * from
Contacts", oConn, adOpenStatic,
adLockReadOnly<BR>
...MoveFirst<BR>
Debug.Print oRS(3).Name,
oRS(3).Value<BR>
Debug.Print oRS(10).Name,
oRS(10).Value<BR>
...Close<BR> End With</FONT></DIV>
<DIV><FONT face=Fixedsys color=#0000ff></FONT> </DIV>
<DIV><FONT face=Fixedsys color=#0000ff size=2> Set oRS =
Nothing<BR> oConn.Close<BR> Set oConn =
Nothing</FONT></DIV>
<DIV><FONT face=Fixedsys color=#0000ff></FONT> </DIV>
<DIV><FONT face=Arial size=2><FONT face=Fixedsys color=#0000ff>End
Sub<BR></FONT><BR>-- <BR>Jim Vierra 661815</FONT></DIV></BODY></HTML>
