Where do i place the code, in my html file?

You run it as an agent. In Domino.

I have found the MIME stuff for making a more complete html email : Here is some code:
Function CreateAndSend (s As NotesSession,msg_text As String,msg_html As String,Recipient As String,Originator As String, Subject As String)
'## feed this function with
'## NotesSession
'## text for the text alternative to the HTML
'## the HTML as text
'## The email address of the recipient
'## the email address of who you want it to be "from"
'## the subject line as text
'## Create the email document
Set m_doc = db.CreateDocument()
s.ConvertMIME = False '## Do not convert MIME to rich text
Set stream = s.CreateStream
Set body = m_doc.CreateMIMEEntity
Set header = body.CreateHeader("Content-Type")
Call header.SetHeaderVal("multipart/alternative")
Set header = body.CreateHeader("Subject")
Call header.SetHeaderVal(Subject)
Set header = body.CreateHeader("To")
Call header.SetHeaderVal(Recipient)
Set child2 = body.CreateChildEntity
Call stream.WriteText(msg_text)
Call child2.SetContentFromText(stream,"text/plain;charset=iso-8859-1",ENC_NONE)
Call stream.Close
Set child3 = body.createchildEntity
Call stream.WriteText(msg_html)
Call child3.SetContentFromText(stream,"text/html;charset=iso-8859-1",ENC_NONE)
Call stream.Close
m_doc.Principal = Originator '## the spoofing
Call m_doc.Save(True, True)
s.ConvertMIME = True '## Restore conversion
sending:
m_doc.Send False
Sleep(1) '## to reduce the load on the server, it sleeps for one second between sendings
Exit Function
Works like a charm, although I had to include the sleep line so as to not kill the server....:(
--
Andy

I am currently testing out different ways to send HTML emails from Domino. I tried Davy's solution, which worked. I've tried Andy's solution but I am obviously missing some parts. Where does the CreateStream come from?
Thanks,
Carie Shopbell

# Email Mime Stuff #########
Dim body As NotesMIMEEntity
Dim header As Variant
Dim child3 As NotesMIMEEntity
Dim child2 As NotesMIMEEntity
Dim child1 As NotesMIMEEntity
Dim stream As NotesStream
Dim stream1 As NotesStream
'#########################

Thanks for your response. The client that I am doing this work for is still on R5. Davy's solution will work fine for me with a little tweaking on my part.

Or at least the intent of your project?
Mine is for mass emailing Marketing letters for my company. They wanted to be able to send real HTML emails with text parts for clients who had text-only readers. I would be happy to post the whole agent if you like even though it is not very polished yet, it prompts for the files containing the HTML part, the TEXT only part, the recipient list, and an exclude names list and then it sends an email to each recipient in the recipient list checking the exclude list for each name....
--Andy

My client is a University. When new students are admitted, they want to send out a "Welcome" email and they would like it in HTML format. Previously, it has been just a standard text email. I definitely have to talk with them about students who may have text-only email. I'm interested in seeing your entire solution, even though it will not help me with this client. Also, here is another solution that I found, that you may be interested in http://www.codestore.net/store.nsf/unid/EPSD-5EQPZA?OpenDocument. I was unable to use it for my client because they have relay restrictions on their SMTP server and basically it thought that the email generated from this solution was SPAM.

I'm using Davy's code above and am rec'g random "!" in my HTML emails. My total length of this string is only 3166 bytes, so I don't BELIEVE that it is a string length issue. Any ideas?

HI,Carie:
I found the answer why string length reduce .
It returns the number of characters in function of Len ,so you need to change your code for returned
bytes.
I suggest you modify codes of function "addMIMEitem" in SimpleMIME.lss .
There are 2 parts you must amend it:
1.)clength =Len(itemvalue) --- >clength =Lenb(itemvalue)
2.)fldheader.length = Len(itemvalue) ---> fldheader.length = Lenb(itemvalue)
Algo

Algo--
Thanks so much for your advice. I still get the same results though:-( Any other thoughts or ideas that you have would be appreciated.
Carie

Why not just paste the web page in to the email by hand?
Other wise, I would highly recommend upgrading to R6...
Because your nnotes.dll my not be identical to Davy's resulting in odd errors like you describe.
Perhaps it is replacing characters with the "!" character though? You might check the output text against the input text to see where the "!" are occurring.
Another idea is to troubleshoot why the java solution on http://www.codestore.net/store.nsf/unid/EPSD-5EQPZA?OpenDocument generated errors...
If you are crafting the email by hand like that then you should be able to send the email through your domino server..
--AS

Hi all,
I■m using Davy■s solution and it works nearly perfect for me.
The trouble is that the message appears with images and formatted text in Outlook client, but when I read this same message in Notes client, I can only see the formatted text, but no the images.
In the HTML code of the message I have call the images like that: <IMG SRC="http://www.blablaba.com/image.jpg">
Anybody knows how to resolve this?
Thanks in advance.

Hi Any,
I've been asked from my developers for a mailing db able to send the HTML source of a Newsletter page (for better rendering than copy-paste in memo R6). Sound like the stuff you've done...
Is your work shareable on ONTF ?
Thanks in advance...
-- BC

I've worked out the creation of MIME emails using lotusscript but I'm totally at a loss as to adding attachments. I need to be able to attach pdf and Word files. Does anyone have a working example they'd be willing to share?

Hello
I have used this code and run my agent every week. But this time an error is popping up saying "Cannot open included file SimpleMime". I dont understand why this happened. I always run this happened as I never changed my code or the file location

Login to add your comment