Problem with sp3 on win2000   

We have intranet site. People post messages to exchange server. Some of
these may have attachments. The dll picks up the messages from exchange
server and display in intranet site. After we applied service pack3 on
exchange server machine (win2000), it is only displaying attachments which
are We have intranet site. People post messages to exchange server. Some of
these may have attachments. The dll picks up the messages from exchange
server and display in intranet site. After we applied service pack3 on
exchange server machine (win2000), it is only displaying attachments which
are pasted in between text(.rtf format in outlook2003), but not attachments
which are attached by using tool bar.

Here I am adding psuedo code dll code also. Can any one please help me.

Thanks in advance,

Srinivasa rao Y



Set objCDO = CreateObject("CDO.Message")

strFolderPath = "http://" & strExchangeServer & "/public/TTIntranet/" &
strSource

objCDO.DataSource.Open (strFolderPath & "/" & strMailPath & "/" &
strMailID), cnnExchange, adModeRead

objCDO.MimeFormatted = True

    strMsg = objCDO.HTMLBody



     If objCDO.Attachments.Count > 0 Then

            strMsg = strMsg & "<table><tr><td class =
'bodytextsmallbold'>Attachments <SPAN class = 'bodytextsmall'>(Click on the
filename(s) below to open in a new browser window)</SPAN></td></tr>"

            bFlag = True

        For i = 1 To objCDO.Attachments.Count

            Set oAttach = objCDO.Attachments(i)



            Log ("Source: " & oAttach.Source)

            Set collFields = objCDO.Attachments(i).Fields

            ' get the filename from the content location

            sFileName =
objCDO.Attachments(i).Fields("urn:schemas:mailheader:content-location").Valu
e

            sFileName = Replace(sFileName, "%20", " ")

            ' if its an internet based pic...

            If InStr(1, sFileName, "http://") Or InStr(1, sFileName,
"https://") Or InStr(1, sFileName, "ftp://") Then

                sFileName = objCDO.Attachments(i).FileName

            End If



            ' create the location of the file

            sLocation = strFolderPath & "/" & strMailPath & "/" & strMailID
& "/1_multipart/" & sFileName

            ' if the document is a word doc / text file

           ' If InStr(1, sFileName, ".doc", vbTextCompare) Or InStr(1,
sFileName, ".xls", vbTextCompare) Then

            '    sLocation = strFolderPath & "/" & strMailPath & "/" &
strMailID & "/" & sFileName

           ' ElseIf InStr(1,
objCDO.Attachments(i).Fields("urn:schemas:httpmail:content-media-type"),
"octet-stream", vbTextCompare) Or InStr(1,
objCDO.Attachments(i).Fields("urn:schemas:httpmail:content-media-type"),
"image/", vbTextCompare) Or InStr(1,
objCDO.Attachments(i).Fields("urn:schemas:httpmail:content-media-type"),
"msword", vbTextCompare) Then

           If
objCDO.Attachments(i).Fields("urn:schemas:httpmail:content-media-type") <>
"" Then

                sLocation = strFolderPath & "/" & strMailPath & "/" &
strMailID & "/" & sFileName

           End If

            ' replace the << filename >> text

            strSearch = "<<" & vbCrLf & objCDO.Attachments(i).FileName
& vbCrLf & ">>"

            strMsg = Replace(strMsg, strSearch, "", 1, 1)

            ' build the HREF to be added to the message for the attachement

            strHREF = "<tr><td class = 'blacknormallink'> <A class =
'bodytextsmall' style='cursor:hand; text-decoration:underline' onClick =
'javascript:newwin_scrollAttach(" & """" & sLocation & """" & ", 700, 510, "
& """" & "message Attachments" & """" & ");'>" & sFileName &
"</A></td></tr>"

            strMsg = strMsg & strHREF

        Next

    End If

date: Thu, 3 Mar 2005 21:03:35 +0530   author:   srini2005