ASP, CDO for Windows 2000 & Embedded / In-line Images Showing as Attachments

[David Morgan]

Hello

I have been using the CDONTS.Newmail object for a number of years to send
nicely formatted HTML Emails with inline images.

I am now trying to switch over to using CDO and I cannot reproduce this
functionality. I am using the AddAttachment method instead of the old
AttachURL method but the attached images just show as separately attached
files rather than in line in the HTML.

According to MSDN:

"If you populate the HTMLBody property before calling the AddAttachment
method, any inline images are displayed as part of the message."

Well, I am doing that but it is not working. The images show up as if I had
attached them using the old AttachFile method.

Code follows.

Any help would be appreciated.

David

If bHasResults Then
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = cdoSendUsingPort
.Item(sch & "smtpserver") = "192.168.0.1"
.Update
End With
For j = 0 To iResults
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = arrResults(1, j)
.To = arrResults(2, j)
.Subject = arrResults(3, j)
If arrResults(5, j) Then ' The email has an HTML Body and may have inline
attachments
.MIMEFormatted = True
.HTMLBody = arrResults(4, j)
.AutoGenerateTextBody = True
If Not IsNull(arrResults(6, j)) Then ' It does have inline attachments
arrAttachURL = Split(arrResults(6, j), ",")
For i = 0 To UBound(arrAttachURL) Step 2
.AddAttachment arrAttachURL(i) ', arrAttachURL(i +1)
Next
End If
Else ' It's a text email
.MIMEFormatted = False
.TextBody = arrResults(4, j)
End If
.Send
objConn.Execute "DELETE FROM dbo.tblOutboundEmailQueue WHERE (EmailID = "
& arrResults(0, j) & ")", , adCmdText + adExecuteNoRecords
End With
Set cdoMessage = Nothing
Next
End If

[David Morgan]

Here an sample section from the CDOSYS method which does not render inline:
------=_NextPart_000_0002_01C411A4.CD9131D0
Content-Type: image/gif;
name="header1.gif"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="header1.gif"
Here is an sample section from CDONTS.Newmail that does render the image
inline:

------=_NextPart_000_0000_01C411B8.EC712830
Content-Type: image/gif
Content-Transfer-Encoding: base64
Content-Disposition: attachment
Content-Location: header1.gif

I can't see why these would make a difference. The only real difference is
that the super doopa CDO method does not add the Content-Location field.

[David Morgan]

I was using the wrong method, sorry if you had started to research this for
me.

Documentation here - http://tinyurl.com/2rcf6
"David Morgan" <da***@davidmorgan.me.uk> wrote in message
news:%2****************@TK2MSFTNGP10.phx.gbl...

Here an sample section from the CDOSYS method which does not render inline:

------=_NextPart_000_0002_01C411A4.CD9131D0
Content-Type: image/gif;
name="header1.gif"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="header1.gif"
Here is an sample section from CDONTS.Newmail that does render the image
inline:

------=_NextPart_000_0000_01C411B8.EC712830
Content-Type: image/gif
Content-Transfer-Encoding: base64
Content-Disposition: attachment
Content-Location: header1.gif

I can't see why these would make a difference. The only real difference is that the super doopa CDO method does not add the Content-Location field.