iT邦幫忙

0

asp 寄信系統看不到圖檔

asp

我想請問我寫用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 
%>

小魚 iT邦高手 1 級 ‧ 2017-12-18 20:35:29 檢舉
加個http://可以顯示嗎?
mayyola iT邦新手 2 級 ‧ 2017-12-19 08:37:58 檢舉
可以了~謝謝小魚!!

1 個回答

0
haoming
iT邦好手 1 級 ‧ 2017-12-21 15:52:40

這題小魚回答過了,引用 他的答案。

試試看..
img src 的部分試試看 加上 //
這樣你的網址換成 https:// 時候就不用改程式了

我要發表回答

立即登入回答