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 & "
|
'bodytextsmallbold'>Attachments (Click on the
filename(s) below to open in a new browser window)"
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 > 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 = "
'bodytextsmall' style='cursor:hand; text-decoration:underline' onClick =
'javascript:newwin_scrollAttach(" & """" & sLocation & """" & ", 700, 510, "
& """" & "message Attachments" & """" & ");'>" & sFileName &
""
strMsg = strMsg & strHREF
Next
End If
Archived from group: microsoft>public>exchange2000>application>conversion
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
