在pb應用中收發電子郵件
---- 隨 著internet 進 入 千 家 萬 戶, 通 過internet 收 發 電 子 郵 件 將 成 為 人 們 最 受 歡 迎 的 通 訊 手 段 之 一。 如 果 我 們 的 應 用 程 序 也 能 夠 提 供 收 發 電 子 郵 件 的 功 能, 就 可 以 使 我 們 方 便 快 捷 地 與 他 人 交 換 和 共 享 應 用 的 數 據 和 信 息, 使 其 應 用 真 正 地 溶 合 于internet 這 個 大 環 境。 下 面 我 介 紹 一 下 在powerbuild 應 用 中 實 現 收 發 電 子 郵 件 的 方 法。
---- 在powerbuild 應 用 中 實 現 收 發 電 子 郵 件, 主 要 是 通 過powerbuild 系 統 提 供 的 一 套 用 于 郵 件 操 作 的 內 嵌 函 數。 這 些 函 數 實 現 其 應 用 到 微 軟 公 司 的mapi(message application program interface) 標 準 之 間 的 接 口。
---- 一、 作 為 舉 例, 創 建 一 個mdi 風 格 的 窗 口w_mail。 在 這 個 窗 口 上, 放 置 一 個 含 接 收 郵 件、 發 送 郵 件 和 地 址 薄 三 個 帶 圖 標 的 菜 單 項 的 菜 單m_mail, 一 個 多 行 編 輯 器mle_1。 整 個 窗 口 的 外 觀 如 下:
---- [ 圖 略]
---- 二、 為 各 菜 單 項 編 制 事 件(event) 處 理 程 序(script)。 程 序 行 中// 后 的 為 說 明 文 字。
---- 1. 在 菜 單 項“ 接 收 郵 件” 的 單 擊(clicked) 事 件 下 輸 入 下 面 程 序:
mailsession mses file://定義對象mses,以供在程序中引用mailmessage mmsg //定義結構mmsg,此結構用于描述郵件的內容mailrecipient mrec//定義結構mrec,它標識郵件的接收者和發送者mailreturncode mreturn//定義返回碼,用于存放函數的返回值int mnbr//定義臨時變量//產生郵件會話對象msesmses = create mailsession//郵件登錄。此處用戶名,口令缺省mreturn = mses.maillogon(mailnewsession!)if mreturn <> mailreturnsuccess! then messagebox("郵件登錄","郵件登錄失敗!") returnend if//獲得接收到尚未讀過的郵件id號。它是放在mses中的一個字符串數組mreturn = mses.mailgetmessages(true)if mreturn <> mailreturnsuccess! then messagebox("郵件獲取","郵件獲取失敗或無新郵件!") returnend if//獲得接收到尚未讀過的郵件數目mnbr = upperbound(mses.messageid[]) file://讀取最后接收到的郵件內容。 它被放在mmsg的notetext的字符串字段中mses.mailreadmessage(mses.messageid[mnbr],mmsg,mailentiremessage!,true)//把獲得的郵件內容放到窗口w_mai1上的多行編輯器mle_1中w_mai1.mle_1.text=mmsg.notetext//退出登錄mses.maillogoff()//取消郵件會話destroy mses
---- 2. 在 菜 單 項“ 發 送 郵 件” 的 單 擊(clicked) 事 件 下 輸 入 下 面 程 序:
mailsession msesmailmessage mmsgmailreturncode mreturn//產生郵件會話對象msesmses = create mailsession//郵件登錄mreturn = mses.maillogon(mailnewsession!)if mreturn <> mailreturnsuccess! then messagebox("郵件登錄","郵件登錄失敗!") returnend if//彈出郵件地址窗口,獲取郵件接收者的地址。地址及名字是放在mmsg中的一 個結構數組mreturn = mses.mailaddress(mmsg)if mreturn <> mailreturnsuccess! then messagebox("郵件地址","郵件地址出錯!") returnend if//把窗口w_mai1上的多行編輯器mle_1中的內容放到mmsg的notetext字段中mmsg.notetext = w_mai1.mle_1.text//發送郵件mreturn = mses.mailsend(mmsg)if mreturn <> mailreturnsuccess! then messagebox("郵件發送","郵件發送失敗!") returnelse messagebox("郵件發送","郵件發送成功!")end if//退出登錄mses.maillogoff()//取消郵件會話destroy mses
---- 3.在菜單項“地址簿”的單擊(clicked)事件下輸入程序:
mailsession msesmailmessage mmsgmailreturncode mreturn//產生郵件會話對象msesmses = create mailsession//郵件登錄mreturn = mses.maillogon(mailnewsession!)if mreturn <> mailreturnsuccess! then messagebox("郵件登錄","郵件登錄失敗!") returnend if//彈出郵件地址窗口,獲取郵件接收者的地址mreturn = mses.mailaddress(mmsg)if mreturn <> mailreturnsuccess! then messagebox("郵件地址","郵件地址出錯!") returnend if//退出登錄mses.maillogoff()//取消郵件會話destroy mses
---- 三、 執 行 程 序。 正 常 執 行 程 序 的 前 提 是, 在powerbuild 應 用 所 在 的 機 器 上 已 裝 有microsoft mail 客 戶 軟 件。
---- 1. 單 擊“ 接 收 郵 件” 菜 單 項 或 工 具 圖 標, 執 行 接 收 郵 件 處 理 程 序。 該 程 序 將 最 后 接 收 到 尚 未 讀 過 的 郵 件 內 容 顯 示 到 窗 口 的 多 行 編 輯 器 中。
如 果 把mreturn = mses.mailgetmessages(true) 改 為:mreturn = mses.mailgetmessages() 便 可 獲 得 全 部 郵 件( 包 含 已 讀 過 的 郵 件)。
---- 2. 單 擊“ 發 送 郵 件” 菜 單 項 或 工 具 圖 標, 執 行 發 送 郵 件 處 理 程 序。 該 程 序 執 行 過 程 中, 彈 出 地 址 簿 窗 口, 在 你 選 擇 好 接 收 者 后, 則 將 窗 口 的 多 行 編 輯 器 中 的 內 容 發 送 出 去。
---- 3. 單 擊“ 地 址 簿” 菜 單 項 或 工 具 圖 標, 執 行 地 址 簿 處 理 程 序。 該 程 序 彈 出 通 訊 簿 窗 口, 供 你 增 加、 編 輯 或 刪 除 郵 件 地 址 屬 性。
