Hi Rich

i've found your program Sample, it Works fine, bud i have 2 problems

1. If i want to send more than one attachment i've get an Error:
OLE-IDispatch-Ausnahmecode 7225 von ?: File C:\ENTWICKLUNG\FOX6\IVS2000\BAUMER120201.PRG not found..
2. the mail was not send, it is in the Lotus Notes Folder "Drafts"

Do you have an idea?

thanks a lot gratings from Germany

Jörg Schneider

>>Rich,
>>
>>Could you post the final version of the code, including an idea of how the array was created? I'm working on this same problem....
>>
>>Thanks!
>
>Phil: Here's the code so far. I haven't yet started experimenting with the body of the message and I have the feeling that there should be a Rich Text Item of some sort which will allow much better control over formatting, font, effects, etc. If you've done anything on that line, I'd appreciate seeing it.
>
>......Rich
>
>

>FUNCTION SendNotesMail
>PARAMETERS tcToList,tcSubject,tcBody,tcAttachment
>**  tcToList is expected to be a semi-colon delimited list of addressees
>**  tcAttachment is expected to be a semi-colon delimited list of attachments
>
>**  Create array of recipients
>=ALINES(acRecipients,CHRTRAN(tcToList,";",CHR(13)))
>
>loNotes = CreateObject("Lotus.Notessession")
>loNotes.Initialize("MyPassword")
>loDBDir = loNotes.GetDBDirectory("")
>loDb = loDBDir.OpenMailDatabase()
>loDoc = loDb.CreateDocument
>
>loDoc.ReplaceItemValue("Subject",tcSubject)
>loDoc.ReplaceItemValue("Body", tcBody)
>loDoc.ReplaceItemValue("SendTo", @acRecipients)
>
>*-- check if there's an attachment
>IF TYPE('tcAttachment') = "C" AND NOT EMPTY(tcAttachment)
>	**  Create array of Attachments
>	lnNumAttach = ALINES(acAttach,CHRTRAN(tcAttachment,";",CHR(13)))
>
>	FOR I = 1 TO lnNumAttach
>		loRichTextItem = loDoc.CreateRichTextItem("Attachment")
>		=loRichTextItem.EmbedObject(1454, "", acAttach[I])
>	ENDFOR
>ENDIF
>
>loDoc.Send(.F.)
>
>RELEASE loNotes
>
>RETURN 0
>