Why Lotus Notes does not sending email if the recipient
more than one. It does save to sent folder but it does not
automaticlly send. If the recipient only one it work
perfeclly.

I have other code too from friends here, using
cusNotesAutomation class, but it work like my code below,
does not automaticlly send if more than one recipient.

Can someone help ?

Sen

Here are the code:
SES = CREATEOBJECT("Notes.NotesSession")
m.MailFile = ses.GetEnvironmentString("MailFile", .t.)
m.MailServer = ses.GetEnvironmentString("MailServer", .t.)
DB = SES.GetDatabase(M.MAILSERVER,M.MAILFILE)
DOC = DB.CreateDocument()
RTITEM = DOC.CreateRichTextItem("FileToAppend")
DOC.form = "Memo"
DOC.subject = "pls iqnore this"
DOC.body = ""
DOC.SaveMessageOnSend=.t.
lcsendto="aaa@aaa.com,bbb@aaa.com"
DOC.sendto=lcsendto
lcret=doc.send(.t.,lcsendto)

RE: sending email via lotus notes more than one recipient by Leemi

Leemi
Fri Sep 12 09:41:24 CDT 2003

Hi Sen:

I don't have Lotus Notes to test this with, so I am offering this as an
untested suggestion.

Have you looked at the code example called "Lotus Notes - Read and Send
EMail using VFP" available in the VFP Download section of
www.universalthread.com? The Download ID is 16543. You might compare you
code to this class and see if you notice any obvious differences.

I hope this helps.

This posting is provided "AS IS" with no warranties, and confers no rights.

Sincerely,
Microsoft FoxPro Technical Support
Lee Mitchell

*-- VFP8 HAS ARRIVED!! --*
Read about all the new features of VFP8 here:
http://www.universalthread.com/VisualFoxPro/News/VFP8Release.asp
Purchase VFP8 here:
http://shop.microsoft.com/Referral/Productinfo.asp?siteID=11518

Keep an eye on the product lifecycle for Visual FoxPro here:
http://support.microsoft.com/default.aspx?id=fh;[ln];lifeprodv
- VFP5 Mainstream Support retires June 30th, 2003
- VFP6 Mainstream Support retires Sept. 30th, 2003

>Why Lotus Notes does not sending email if the recipient
>more than one. It does save to sent folder but it does not
>automaticlly send. If the recipient only one it work
>perfeclly.

>I have other code too from friends here, using
>cusNotesAutomation class, but it work like my code below,
>does not automaticlly send if more than one recipient.

>Can someone help ?

>Sen

>Here are the code:
>SES = CREATEOBJECT("Notes.NotesSession")
>m.MailFile = ses.GetEnvironmentString("MailFile", .t.)
>m.MailServer = ses.GetEnvironmentString("MailServer", .t.)
>DB = SES.GetDatabase(M.MAILSERVER,M.MAILFILE)
>DOC = DB.CreateDocument()
>RTITEM = DOC.CreateRichTextItem("FileToAppend")
>DOC.form = "Memo"
>DOC.subject = "pls iqnore this"
>DOC.body = ""
>DOC.SaveMessageOnSend=.t.
>lcsendto="aaa@aaa.com,bbb@aaa.com"
>DOC.sendto=lcsendto
>lcret=doc.send(.t.,lcsendto)


Re: sending email via lotus notes more than one recipient by Cindy

Cindy
Fri Sep 12 10:08:44 CDT 2003

Hi Sen,

Putting the names in an array and passing it by reference works for me.
DIMENSION laNames(2)
laNames(1) = somebody@somewhere.com
laNames(2) = nobody@nowhere.com

oNotes = CREATEOBJECT("Lotus.NotesSession")
oNotes.Initialize("MyPassword")
oDbDir = oNotes.GetDbDirectory("")
oDb = oDbDir.OpenMailDatabase()
oDoc = oDb.CreateDocument()
oDoc.ReplaceItemValue("SendTo", @laNames)
*!* Subject, body, etc.
oDoc.Send(0)

--
Cindy Winegarden MCSD, Microsoft Visual FoxPro MVP
cindy.winegarden@mvps.org, www.cindywinegarden.com

"sen" <sen1668@yahoo.com> wrote in message
news:03d801c3791c$36d1f340$a001280a@phx.gbl...
>
> Why Lotus Notes does not sending email if the recipient
> more than one.



Re: sending email via lotus notes more than one recipient by sen

sen
Sun Sep 14 21:10:05 CDT 2003


Cindy, Lee
Thanks alot, it's work perfecly, thanks.

Sen

>-----Original Message-----
>Hi Sen,
>
>Putting the names in an array and passing it by reference
works for me.
>DIMENSION laNames(2)
>laNames(1) = somebody@somewhere.com
>laNames(2) = nobody@nowhere.com
>
>oNotes = CREATEOBJECT("Lotus.NotesSession")
>oNotes.Initialize("MyPassword")
>oDbDir = oNotes.GetDbDirectory("")
>oDb = oDbDir.OpenMailDatabase()
>oDoc = oDb.CreateDocument()
>oDoc.ReplaceItemValue("SendTo", @laNames)
>*!* Subject, body, etc.
>oDoc.Send(0)
>
>--
>Cindy Winegarden MCSD, Microsoft Visual FoxPro MVP
>cindy.winegarden@mvps.org, www.cindywinegarden.com
>
>"sen" <sen1668@yahoo.com> wrote in message
>news:03d801c3791c$36d1f340$a001280a@phx.gbl...
>>
>> Why Lotus Notes does not sending email if the recipient
>> more than one.
>
>
>.
>