VFP 愛用者社區

ufochen · 註冊時間: 2003-09-17 文章: 166 第 1 樓

請問一下?用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 文章: 166 第 2 樓

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

ckp6250 · 註冊時間: 2004-07-30 文章: 1645 第 3 樓