語言:VB6.0
功能:取得UerProfile的path
語法:
Environ$("userprofile")
VB錯誤訊息:2147024770
Automation錯誤，找不到指定模組
少了一些元件
解決方式：重新安裝即可
經辦反應早上有對電腦動手腳，就是幫它裝一套新系統
VB程式Call WinFax傳真
奇怪一直無法順利利用系統傳真，使用者必須手動傳真
這問題一直困擾我跟使用者好久
今天終於抽空，好好的．仔細的測
解決了，
程式碼如下：
Set sendObj = CreateObject("WinFax.SDKSend")
sendObj.SetAreaCode ("")
sendObj.SetCountryCode ("")
sendObj.SetDialPrefix ("")
sendObj.SetNumber ("0," + 電話號碼)
sendObj.SetTo (cusna)
If sendObj.AddRecipient() = 1 Then
MsgBox "無法新增收件人!", vbExclamation
Exit Sub
End If
sendObj.SetPreviewFax (0)
sendObj.SetUseCover (0)
sendObj.SetUseCreditCard (0)
sendObj.SetResolution (1)
sendObj.SetUsePrefix (0)
sendObj.ShowCallProgess (1)
sendObj.SetPrintFromApp (1)
sendObj.Send (0)
問題出在，WinFax軟體設定
一.數據機與其他傳真裝置，使用預設，撥號設定，都不要輸入任何東西
二.傳送．電話簿中．大小寫視為相異及離開時儲存目錄樹結構不要打勾
