|
 |
| |
ASP : Attach รูปแล้ว ส่งไป รูปไม่ขึ้นครับ ทำอย่างไรดี |
| |
 |
|
|
 |
 |
|
ผม Attach รูปส่งไปเข้า Gmail กับเมลล์ของ SV
ปรากฏว่า รูปที่ส่งแนบไป ไม่ขึ้นครับ
แต่ผมส่งเข้า hotmail รูปขึ้นปกติ แบบว่า งงมาก
-------------
<!--#include file="function.asp"-->
<%
Dim myMail,HTML,strTo,strSubject,strDescription,strFileName,strName,strTel
Dim mySmartUpload
'*** Create Object ***'
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
'*** Upload Files ***'
mySmartUpload.Upload
'*** Upload file1 ***'
If mySmartUpload.Files("Attach").FileName <> "" Then
mySmartUpload.Files("Attach").SaveAs(Server.MapPath("MyFiles/" & mySmartUpload.Files("Attach").FileName))
'*** Send Mail ***'
Set myMail = Server.CreateObject("CDONTS.NewMail")
strName = mySmartUpload.Form("Name")
strTo = "เมลล์ผม"
strTel = mySmartUpload.Form("Tel")
strSubject = "GCard :"
strDescription = Replace(mySmartUpload.Form("Detail"),vbCrLf,"<br>")
strFileName = Server.MapPath("GCard/"&mySmartUpload.Files("Attach").FileName)
myMail.AttachFile strFileName
myMail.From = "ส่งเมลล์"
myMail.To = strTo
myMail.Subject = strSubject & " " & strName & " " & strTel
myMail.MailFormat = 0
myMail.BodyFormat = 0
myMail.Body = strDescription
If strName <> "" Then
myMail.Send
Set mySmartUpload = Nothing
Set myMail = Nothing
Call Update("index.asp", "ส่งเมลล์ถึงทีมงานเรียบร้อยแล้วค่ะ")
Else
Call PageBack("โปรดกรอกข้อมูลให้ครบถ้วนด้วยค่ะ")
End if
Else
Call PageBack("โปรดแนบไฟล์หลักฐานมาด้วยค่ะ")
End if
%>
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
2010-02-03 16:04:12 |
By :
progamer |
View :
1818 |
Reply :
1 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
น่าจะเป็นที่ระบบของ Gmail น่ะครับ
|
| |
|
|
| |
| Date :
2010-02-03 17:18:28 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 00
|
