VFP 愛用者社區

[jakan9]

我目前用發email的方法:
oMAPISession = create("MSMAPI.MAPISession")
oMAPIMessages = create("MSMAPI.MAPIMessages")
oMAPISession.DownloadMail = .F.
oMAPISession.lognui = .F.
oMAPISession.SIGNON
oMAPIMessages.SESSIONID=oMAPISession.SESSIONID
oMAPIMessages.COMPOSE
oMAPIMessages.RECIPADDRESS="xxx@abc.com.tw"
omapimessages.RecipDisplayName="收件人"
oMAPIMessages.MSGSUBJECT="主旨"
oMAPIMessages.msgindex=-1
oMAPIMessages.MSGNOTETEXT="xx 客戶您好:" +chr(13)+chr(10)
oMAPIMessages.send(1)
oMAPISession.SIGNOFF

可是經常有些 email address 被退件,因巳被 mail server 刪除,找不到,如何在寄出信件前,先測試 address 是否有效的,可收到信的.
煩請指導,謝謝!