I’m having an issue creating an email using the NotesMIMEEntity.
It works fine sending to Notes, yahoo or hotmail, but when it’s received in Outlook there’s an exclamation mark (!) at a certain point in the text. Have tested in Outlook 2000, 2003 and 2007, all the same.
It doesn’t matter what the text is, I’ve tried with the proper text and lots of different test texts, it’s always there.
An example script is:
Dim s As New notessession
Dim db As notesdatabase
Set db = s.currentdatabase
Dim stream As notesstream
s.ConvertMIME = False ’ Do not convert MIME to rich text
Set doc = db.CreateDocument
Call doc.ReplaceItemValue(“Form”, “Memo”)
Set body = doc.CreateMIMEEntity
Set stream = s.CreateStream
''This is just an example, my real text is more complex but the same occurs
Dim i As Integer
For i = 1 To 500
Call stream.writetext("a ")
Next
Set bodychild = body.createchildentity()
Call bodychild.SetContentFromText _
(stream,“text/html;charset=UTF-8”, ENC_QUOTED_PRINTABLE)
Call doc.send(False, “dan.king@xyz.com”)
s.ConvertMIME = True ’ Restore conversion
Anyone seen this, and now what’s going on? I’ve also tried with different content types and encoding, same thing
Cheers
Dan