VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

VFP自動寄Gmail郵件,如何在文件中插入圖片?

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
ufochen



註冊時間: 2003-09-17
文章: 165


第 1 樓

發表發表於: 星期一 二月 22, 2016 11:44 pm    文章主題: VFP自動寄Gmail郵件,如何在文件中插入圖片? 引言回覆

請問一下?用VFP自動寄Gmail郵件,如何在文件中插入圖片?
用以下程式碼只能寄郵件,但不能插入郵件,幫忙看看!謝謝!

Try
Local lcSchema, loConfig, loMsg, loError, lcErr ,gmailaddr , gmailprd,sendBody
sendFile = ""
sendBody = "<html>" + Chr(13) + Chr(10)
sendBody = sendBody + "<DIV>" + "-------------------------------" + "</DIV>" + Chr(13) + Chr(10)
sendBody = sendBody + "<DIV>" + "這是一封測試信" + "</DIV>" + Chr(13) + Chr(10)
sendBody = sendBody + [<img src="E:/Games/易穿區域/OBJ140.png">] + Chr(13) + Chr(10)
sendBody = sendBody + "</html>" + Chr(13) + Chr(10)
gmailaddr = "xxxxxxxx@gmail.com"
gmailprd = "xxxxxxxx"
lcErr = ""
lcSchema = "http://schemas.microsoft.com/cdo/configuration/"
loConfig = Createobject("CDO.Configuration")
With loConfig.Fields
.Item(lcSchema + "smtpserver") = "smtp.gmail.com"
.Item(lcSchema + "smtpserverport") = 465 && or 587
.Item(lcSchema + "sendusing") = 2
.Item(lcSchema + "smtpauthenticate") = .T.
.Item(lcSchema + "smtpusessl") = .T.
.Item(lcSchema + "sendusername") = gmailaddr && 寄件者帳號
.Item(lcSchema + "sendpassword") = gmailprd && 寄件者密碼
.Update
Endwith
loMsg = Createobject ("CDO.Message")
With loMsg
.Configuration = loConfig
.From = gmailaddr
.To = gmailaddr
.Bcc = gmailaddr
.Subject = "這是一封測試信"
*.BodyPart.charset = "unicode-1-1-utf-8"
.BodyPart.charset = "BIG5"
If Upper(Left(sendBody,6))="<HTML>"
.HTMLBody = sendBody
Else
.TextBody = sendBody
Endif
If !Empty(sendFile) &&附帶檔案 , 用 『;』分隔多個檔案
If ';' $ sendFile
Declare aList[99]
M_Carray(sendFile,';',@aList)
For i=1 To 99
If !Empty(aList[I])
If File(aList[I])
.AddAttachment(aList[I])
Endif
Else
Exit
Endif
Endfor
Else
If File(sendFile)
.AddAttachment(sendFile)
Endif
Endif
Endif
.Send()
Endwith
Catch To loError
lcErr = [錯誤代號: ] + Str(loError.ErrorNo) + Chr(13) + ;
[錯誤行號: ] + Str(loError.Lineno) + Chr(13) + ;
[錯誤訊息: ] + loError.Message
Finally
Release loConfig, loMsg
Store .Null. To loConfig, loMsg
If Empty(lcErr)
Messagebox("郵件已傳送成功至: " + gmailaddr, 64, "傳送成功")
Else
Messagebox(lcErr, 16 , "郵件傳送失敗")
Endif
Endtry
Release loConfig , loMsg
Return .T.

Function M_Carray
Parameters T_str,T_char,T_Ary
Local Tlen,Sear1,Sear2,Charlen,i,vStr
Tlen=Alen(T_Ary)
Sear1=1
Sear2=0
T_char=Alltrim(T_char)
T_char=Iif(Empty(T_char)," ",T_char)
Charlen=Len(T_char)
For i=1 To Tlen
Sear2=At(T_char,T_str,i)
Sear2=Iif(Sear2<=0,Len(T_str)+Charlen,Sear2)
vStr = "T_Ary[i]"
&vStr = Iif(Sear1>Len(T_str),"",Substr(T_str,Sear1,Sear2-Sear1))
Sear1=Sear2+Charlen
Endfor
Return
回頂端
檢視會員個人資料 發送私人訊息
ufochen



註冊時間: 2003-09-17
文章: 165


第 2 樓

發表發表於: 星期一 二月 22, 2016 11:50 pm    文章主題: Re: VFP自動寄Gmail郵件,如何在文件中插入圖片? 引言回覆

<img src="E:/Games/易穿區域/OBJ140.png">
這行程式好像錯了,無法插入圖片
回頂端
檢視會員個人資料 發送私人訊息
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 3 樓

發表發表於: 星期三 二月 24, 2016 6:45 pm    文章主題: Re: VFP自動寄Gmail郵件,如何在文件中插入圖片? 引言回覆

ufochen 寫到:
<img src="E:/Games/易穿區域/OBJ140.png">
這行程式好像錯了,無法插入圖片



對方收到信後,不知道要去那裡找E:/
您應改成<img src="http://XXXXXX/OBJ140.png">
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作