VFP 愛用者社區

[vivian691219]

這是我照別人寫的程式，想試試看能不能寄mail(一定要有附加檔案的功能)，

LOCAL jMail


IF empty(ALLTRIM(THISFORM.txtSender.VALUE)) &&寄信人信箱未填入
messagebox("寄信人信箱未填入")
RETURN
ENDIF
IF EMPTY(ALLTRIM(THISFORM.txtRecipient.Value))&&收信人信箱未填入
messagebox("收信人信箱未填入")
RETURN
ENDIF
IF EMPTY(ALLTRIM(THISFORM.txtSubject.VALUE))&&主旨未填入
messagebox("主旨未填入")
RETURN
ENDIF



JMail=CREATEOBJECT("JMail.smtpmail")

IF VARTYPE(jMail) <> "O"
MESSAGEBOX = "JMail is probably NOT installed!"
RETURN .F.
ENDIF


JMail.Logging = .F. &&啟動紀錄檔與否true/false
JMail.Priority=3 &&傳送優先等級分5級
JMail.ContentType = "text" &&設定為HTML傳送格式
JMail.Charset = "big5" &&設定charset為Big
JMail.ContentTransferEncoding = "base64"
JMail.ISOEncodeHeaders = .F.

JMail.ServerAddress="mail.foxtotal.com.br" &&外部郵件伺服器
JMail.Sender= ALLTRIM(THISFORM.txtSender.VALUE) &&寄信人信箱
JMail.AddRecipient(ALLTRIM(THISFORM.txtRecipient.Value))&&即收件人
*JMail.AddRecipientCC("") &&副本收件人的信箱
*JMail.AddRecipientBCC("") &&Recipient 密件副本收件人的信箱

JMail.Subject = ALLTRIM(THISFORM.txtSubject.Value) &&郵件標題
JMail.Body=ALLTRIM(THISFORM.edtBody.Value)&&郵件本體

IF ALLTRIM(THISFORM.txtAttachment.VALUE)<>""
JMail.ContentType = "multipart/mixed"
JMail.AddAttachment(THISFORM.txtAttachment.VALUE) &&附帶檔案
ENDIF

Jmail.Execute &&執行郵件發送


可是卻一直出現這個訊息
OLE IDispatch exception code 0 from jmail.smtpmail：The message was undeliverable. All servers failed to receive the message
請教我我該怎麼做？是外部伺服器設定的關係嗎？而我所用的jmail檔案是叫w3jmail嗎？還是jmail.net？我一直都搞不清楚？
還有我另有一個疑問，就是CREATEOBJECT("JMail.smtpmail")和CREATEOBJECT("JMail.message")的用法有何不同？