Home > IT Answers > Lotus Domino > Forwarding HTML mails with Lotusscript
CarstenH
5 pts.
Q:
Forwarding HTML mails with Lotusscript
LotusScript, MIME
[Base href="http://itknowledgeexchange.techtarget.com/itanswers/ask_question/">[/base]
Hi, I'm trying to implement a "Report as Spam" button, based on this
description:
http://www-10.lotus.com/ldd/nd6forum.nsf/DateAllFlatweb/5fcffb9aac6241e185257132000ba1b5?OpenDocument

That
works fine as long as the mail contains plain text only. Forwarded HTML mails
looks like on View/Show/PageSource (ASCII encoded Unicode characters and all
that stuff).

I assume that I have to assign the MIME type of the source
mail to the forwarded mail, with something like memo.SetMIMEEntity =
doc.GetMIMEEntity? However, I have no idea with the objects and syntax. Any
suggestions or other ideas what could be the reason for that issue (and how to
solve it)?
ASKED: Nov 26 2009  12:58 AM GMT
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
RELATED QUESTIONS
TiagoBN
70 pts.
A:
 RATE THIS ANSWER
+1
Click to Vote:
  •   1
  •  0
  • Bookmark and Share
Hi,

If you don´t want the message as HTML, I guess you could just copy the body item to the new document you are sending instead of copying the mime content as text. For that you´ll need something like:

dim itBody as NotesRichtextItem
set itBoddy = doc.GetFirstItem("Body")
call itBody.CopyItemToDocument(memo,"Body")

in the place of:

Set mime = doc.GetMIMEEntity
If Not(mime Is Nothing) Then
Forall header In mime.HeaderObjects
Call mail.AppendText( walkmime ( mime ) ) 'calls required function walkmime
End Forall
Call doc.CloseMIMEEntities 'allow clean switch to using items

Like this the mail in the spn box should be just like the one the user recived.
Last Answered: Dec 3 2009  3:10 AM GMT by TiagoBN   70 pts.
  •   
RSS - Discussions Help
Discuss This Answer:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _