|
轉文字檔到電子郵件
張貼日期 2009/3/31 9:52:50
作者 lutuni
|
DO CASE
CASE Option0.TEXT="一般列印"
NEWREP("ORDER_REP2")
CASE Option0.TEXT="電子郵件"
*轉文字檔到電子郵件
external D_OBJ,D_OBJ1,D_OBJ2,F_SUB
F_SUB=ALIASPATH(main.edit6.text)+'\TXT\QUOTE_EMAIL.txt'
MEMOWRITE(ALIASPATH(main.edit6.text)+'\TXT\QUOTE_EMAIL.txt'," ")
D_OBJ='"'+EDIT23.TEXT+'"'+"<"+EDIT28.TEXT+">"
D_OBJ1=EDIT19.TEXT
TXTREAD() &&讀取字檔
D_OBJ2=MEMOREAD(ALIASPATH(main.edit6.text)+'\TXT\QUOTE_EMAIL.txt') &&將郵件的內容讀入D_OBJ2
NEWFORM("S_SEND")
CASE Option0.TEXT="圖片列印"
NEWREP("MAT_REP")
ENDCASE
*增加文字到文字檔TXTREAD()
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',MAIN.EDIT0.TEXT)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',MAIN.EDIT5.TEXT)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"TEL:"+MAIN.EDIT19.TEXT+" "+"FAX:"+MAIN.EDIT18.TEXT)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"報價日期:"+TRANSFORM(Edit18.Text,"@D8")+SPACE(40)+"報價編號:"+Edit17.Text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"收 件 人:"+edit23.text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"客戶名稱:"+edit19.text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"客戶地址:"+edit21.text)
select CUSTOMER
SEEK EDIT11.TEXT
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"電話:"+TRIM(CUSTOMER->TELEPHONE)+" "+"傳真:"+TRIM(CUSTOMER->FAX))
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',SPACE(35)+"電子報價單")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"產品編號 產品名稱 單價 數量 合計 備註 ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
SELE MATERIAL
GO TOP
DO WHILE !EOF()
A=TRIM(ITEM_NO)+CREPL(".",12-LEN(TRIM(ITEM_NO)))+TRIM(NAME)+CREPL(".",40-LEN(TRIM(NAME)))+trim(str(PRICE))+CREPL(".",8-LEN(trim(str(PRICE))))+trim(str(QUANTITY))+TRIM(UNIT)+CREPL(".",4-LEN(TRIM(UNIT)))+trim(str(ROUND(PRICE*QUANTITY,2)))+CREPL(".",10-LEN(trim(str(ROUND(PRICE*QUANTITY,2)))))+".."+REMARK
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',A)
SKIP
ENDDO
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"備註 :")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"1.此報價不含營業稅5%稅額")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"2.付款條件:"+Combo3.Text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"3.有效期限:"+TRANSFORM(Edit27.Text,"@D8"))
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"4.運費:"+Combo4.Text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"5.此份報價將隨國際物料變動而修正 ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt'," ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"回傳簽章: 業務部承辦人員: 業務部經理簽章: ")
SELECT SETPRINT
SEEK UPPER(WHOAMI())
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"傳送電子郵件信箱:"+EMAIL)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"QR701.1")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"保存期限一年")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"---------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',">>")
*寫入電子郵件
MTOA(D_OBJ2,MEMO0.LINES)
MTOA("",MEMO1.LINES) &&清成空白
ASSIGN(MEMO1.LINES[1],F_SUB)
ASSIGN(MEMO1.LINES[2]," ")
M_SEC=1
SELECT ITEM
SEEK SUBS(ALIASPATH(main.edit6.text),1,2)
Set While From SUBS(ALIASPATH(main.edit6.text),1,2) TO SUBS(ALIASPATH(main.edit6.text),1,2)
MultiPage0.PageIndex=0
SELECT SETPRINT
SEEK UPPER(_USER_NAME)
IF !EOF()
&&ASSIGN(EDIT3.TEXT,EMAIL)
stmp=edit3.text,password=edit6.text
ASSIGN(EDIT1.TEXT,EDIT3.TEXT)
IF UPPER(WHOAMI())='USER26'
ASSIGN(EDIT4.TEXT,'trading@fluxtek.com')
ENDIF
RETURN .T.
ELSE
WARNING('查無此使用者資料')
ENDIF
FileSel0.Directory="C:\Documents and Settings\"+WHOAMI()+"\My Documents"
&&message("測試錯誤")
TRY
assign(Mail0.SmtpCharSet,2)
ERROR &&發生錯誤時會直接進入本段程式中執行
MESSAGE("未安裝BIG5語系,寄送時可能亂碼")
ENDTRY
|
|