VFP 愛用者社區

[jackyai]

感謝各位先進給我的方法，昨天終於有機會測試，不過可能是我使用的方法有問題吧，如果會發生如下的錯誤訊息
OLE錯誤程式碼0x80020006: Unknown Name

經過偵錯發現是錯在這一行，但是我找不到原因，如果有那位高手知道的話，請告訴我，非常感激!!

loStream = loSession.CreateStream()



以下是本寫的程式碼
LPARAMETERS laSendTo, laCC, laBcc, lcSubject, lcBody

*laSendTo：收件者
*laCC：副本
*laBcc：密件副本
*lcSubject：主旨
*lcBody：本文

LOCAL loSession && the note session to be oppened
LOCAL lcServer && notes server
LOCAL lcMaildbName && Mail db Name
LOCAL loMaildb && Mail db object
LOCAL loMailDoc && Document object, the email itself
LOCAL loStream && text stream used to attach a MIME document to the email object
&& i.e the Body of the object.
loSession = CREATEOBJECT( "Lotus.NotesSession" )
loSession.Initialize( )

lcServer = loSession.GetEnvironmentString( "MailServer",.t.)
lcMaildbName = loSession.GetEnvironmentString( "MailFile",.t.)
loMaildb = loSession.getdatabase(lcServer, lcMaildbName )

loMaildoc = loMaildb.CreateDocument()
* Who do we send it to
loMaildoc.ReplaceItemValue( "Form", "Memo" )
IF !EMPTY( laSendTo )
loMaildoc.ReplaceItemValue( "SendTo", @laSendTo )
ENDIF
IF !EMPTY( laCC )
loMaildoc.ReplaceItemValue( "CopyTo", @laCC )
ENDIF
IF !EMPTY( laBcc )
loMaildoc.ReplaceItemValue( "BlindCopyTo", @laBcc)
ENDIF

* The subject
loMaildoc.replaceitemValue( "Subject", lcSubject )

* The Body
loStream = loSession.CreateStream()
loStream.WriteText( lcBody )
* The Body MIME type
loBodyMime = loMailDoc.CreateMIMEEntity()
loBodyMime.SetContentFromText( loStream, "text/html;charset=iso-8859-1", .f. )

* this bit just me playing with the paper type and icons displaid in Notes.
* If its a propery in Notes then you can change it like this....
*(i.e. right click on the message, Document Proterties, 2nd tab...then experiment)
loMaildoc.ReplaceItemValue( "Logo", "StdNotesLtr3" )
loMaildoc.ReplaceItemValue( "_ViewIcon", 23 )
loMaildoc.ReplaceItemValue( "SenderTag", "Y" )

* Finaly send the email
loMaildoc.send( .F. )