VFP 愛用者社區

[Wayne-007]

請問各位前輩
我在表單中的Init方法已加入下列宣告
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND, STRING,STRING lpszFile,STRING ,STRING ,INTEGER
且在表單中的"發送E-mail"這個按鈕的Click Event增加下面的程式碼
lpszFile='mailto:xyz@yahoo.com.tw?subject=你好'
=ShellExecute(0,0,lpszFile , 0,0,1)

1.請問各位前輩，如何將表單中之記錄裡面的mail欄位增加到Outlook新郵件的收件人那邊呢?上面的程式只能固定送mail給xyz@yahoo.com.tw
上面的程式該如何修改?

2.請問前輩，如何將表單裡面的某個欄位之內容增加到Outlook新郵件的內容呢?
我是說...如何將表單中的book這個欄位之內容增加到新郵件的內容

如果各位前輩還不懂我的問題所在，可以參考附加檔案 *^^*
希望各位前輩不吝嗇幫小弟解惑!先在此謝謝各位前輩! *^^*

[yang8421]

oMAPISession = create("MSMAPI.MAPISession")
oMAPIMessages = create("MSMAPI.MAPIMessages")

oMAPISession.DownloadMail = .F.

* 起始 EMail
oMAPISession.SIGNON
oMAPIMessages.SESSIONID=oMAPISession.SESSIONID
oMAPIMessages.COMPOSE

* 收件人

oMAPIMessages.RECIPADDRESS="abc@msa.hinet.net"



* 主旨
oMAPIMessages.MSGSUBJECT=""

* EMail 內容
oMAPIMessages.MSGNOTETEXT="附上檔案"


* 發送 EMail
oMAPIMessages.send(0)

* 結束 EMail
oMAPISession.SIGNOFF

[Wayne-007]

感謝這位前輩，問題已經解決嚕 *^^* 感激不盡 ^^

[cityhe4520]

請問是否用這段指令就可以發送email呢?? 請前輩們幫忙 !!
oMAPISession = create("MSMAPI.MAPISession")
oMAPIMessages = create("MSMAPI.MAPIMessages")

oMAPISession.DownloadMail = .F.

* 起始 EMail
oMAPISession.SIGNON
oMAPIMessages.SESSIONID=oMAPISession.SESSIONID
oMAPIMessages.COMPOSE

* 收件人

oMAPIMessages.RECIPADDRESS="abc@msa.hinet.net"



* 主旨
oMAPIMessages.MSGSUBJECT=""

* EMail 內容
oMAPIMessages.MSGNOTETEXT="附上檔案"


* 發送 EMail
oMAPIMessages.send(0)

* 結束 EMail
oMAPISession.SIGNOFF

[Wayne-007]

請問yang8421這位前輩
如果不想出現"傳送"、"不要傳送"這個畫面，就是所謂的自動傳送!
那上面的程式該如何修改?

[yang8421]

關於上述的問題,如果是使用outlook express來傳送,那我不清楚如何把那個message 關閉掉,..我是使用aspemail這個com來做傳送,你可試看看....

[KKKLYNN]

您好!
原程式用了!不錯
單我將檔名與地址,附加檔使用巨集&變數去帶,卻產生錯誤
若能用變數帶,那功效就大
請協助幫忙!謝謝

[KKKLYNN]

下午沖沖出門!回想一下!直接用變數不知可否?剛剛一試OK
所以就剩下ASPEMIAL如何使用的問題,謝謝