Kevin,

Would you be willing to test my MAPI Class on Notes (from VFP) if I incorporate this code into it? I don't have Notes so can't test it and I've seen quite a few requests for Notes mail information. If I could upgrade my class then there would be a one-stop mail class for everybody to use that would try both MAPI and Notes and send using whichever it finds - cool eh?


>Here is some Notes code for VFP that I got from various threads.
>
>Kevin
>****** NOTES STUFF *****************************
>m.sendTo = The list of senders separated by ";"
>m.ccTo = The list of ccTo's separated by ";"
>m.Subject = the subject line
>m.lcMessage = the body of the text
>m.lcAttach1 = an attachment filename
>
>loNotes = CreateObject("Notes.Notessession") && create notes session
>loDb = loNotes.GetDatabase("", "") && set db to database not yet named
>loDb.openmail && set database to default mail database
>
>loDoc = loDb.CreateDocument && create a mail document
>loDoc.ReplaceItemValue("SendTo", m.sendto) && Recipient
>loDoc.ReplaceItemValue("Subject", m.lcsubject) && Subject
>loDoc.ReplaceItemValue("Body", m.lcmessage) && Message Body
>IF not empty(m.ccto)
> loDoc.ReplaceItemValue("SendCC", m.ccto) && SendCC
>ENDIF
>IF NOT EMPTY(m.lcAttach1)
> loRichTextItem = loDoc.CreateRichTextItem("Attachment")
> =loRichTextItem.EmbedObject(1454, "", m.lcAttach1)
>ENDIF
>
>loDoc.Send(.F.) && send message
>
>Release loNotes