asp 寄信系統看不到圖檔

asp

mayyola 2017-12-18 18:38:16 ‧ 5564 瀏覽

分享至

我想請問我寫用hmtl寫了一個通知信，然後用Server.CreateObject("CDO.Message")寄出，可是文字可以顯示給寄信者，但圖檔只有gmail的可以顯示圖檔，yahoo的信箱則是不能請問有甚麼方法可以變成收件信箱都可以顯示圖檔? 謝謝
lab2018letter.html

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<title>新增網頁1</title>
</head>

<body>
<font face='華康少女文字W5'>{name}同學您好,您已成功報名隊輔，</font></p><p><font color='red'face='華康少女文字W5'>
提供午餐，</font></p><p><font color='red'face='華康少女文字W5'>
提供午、晚餐，</font></p><p><font face='華康少女文字W5'>
有任何問題，請洽may<may@mail.aa.abc.edu.tw></font></p>
<img border="0" src="www.aa.abc.edu.tw/EELab2018/logoeecolor.jpg" width="127" height="127">
</body>

</html>


<%

StrHtml = ReadAllTextFile("lab2018letter.html")
StrHtml=replace(StrHtml,"{name}",name)

%>


<%

Function ReadAllTextFile(sfln)
  Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  absfln=server.mappath(sfln)
  Set f = fso.OpenTextFile(absfln, ForReading)
  ReadAllTextFile =  f.ReadAll
End Function

dim mail
sch = "http://schemas.microsoft.com/cdo/configuration/"
'Set cdoConfig = Server.CreateObject("CDO.Configuration")
Set mail= Server.CreateObject("CDO.Message")


mail.Configuration.Fields.Item(sch & "sendusing") = 2 '## (1) 使用 local SMTP, (2) 為外部 SMTP
mail.Configuration.Fields.Item(sch & "smtpserver") = "mail.aa.abc.edu.tw" '## 您的網址
mail.Configuration.Fields.Item(sch & "smtpserverport") = 25 '## SMTP Server Port (預設即為 25)
mail.Configuration.Fields.Update

mail.BodyPart.ContentTransferEncoding = "7bit"  
mail.from="may<may@mail.aa.abc.edu.tw>"
mail.to=request.form("email")
mail.subject="XXX"
mail.HTMLBody=StrHtml
mail.Send
Set mail = Nothing
Set cdoConfig = Nothing 
%>