VFP 愛用者社區

[jerryfly]

請教個位大大先進兩個位址同時傳送會寄不出去
程式碼如下請教是否有辦法解決
LOCAL lcSubject , lcReceipient, lcBodyText, llSaveIt
LOCAL loSession , loMailDB , loMailDoc
LOCAL lcServer , lcMailFile , loRichText, loAttachment

*-- Set Variaibls for mail
lcSubject = "Test Notes Email from VFP"
cReceipient ="aaa@xxx.xxx.xx;bbb@xxx.xxx.xx"




lcBodyText = "This is the main message of the Email"
llSaveIt = .F.

*--------------- Notes Automation ------------------
loSession = CreateObject("Notes.NotesSession")

lcServer = loSession.GetEnvironmentString("MailServer",.T.) && Causes Notes To Ask for Auth
lcMailFile = loSession.GetEnvironmentString("MailFile",.T.) && Causes Notes To Ask for Auth

*-- Open the mail database in notes
loMailDB = loSession.GetDatabase(lcServer,lcMailFile)

*-- If Mail Database not open, open it.
IF !loMailDB.IsOpen
loMail.OpenMail()
ENDIF

*-- Setup new Mail Document.
loMailDoc = loMailDB.CreateDocument() && Causes Notes To Ask for Auth
WITH loMailDoc
.Form = "Memo"
.SendTo = lcReceipient
.Subject = lcSubject
.Body = lcBodyText
.SaveMessageOnSend = llSaveIt

loRichText = .CreateRichTextItem("loAttachment")
loAttachment = loRichText.EmbedObject(1454,"","c:\autoexec.bat")

*-- Send the Document
.PostedDate = DATE()
.Send(0)
ENDWITH

loMailDoc = .NULL.
loMailDB = .NULL.
loSession = .NULL.