Question

我有一个代码，使用aspemail发送包含嵌入图像的电子邮件。

在代码中我从谷歌的<img> tag获得常规图片 - 所以我得到了qrcode

在电子邮件中，如果客户端没有自动下载图像，他将无法看到图像

aspemail的嵌入无法嵌入非本地的图像/文件

有没有办法从给定网址本地保存图像？

如果我从谷歌获取图片：https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=http://www.sitedomain.com&choe=UTF-8

并将其保存为特定文件夹

下的唯一名称

Answer 1

Function SaveBinaryData(FileName, ByteArray)
  Const adTypeBinary = 1
  Const adSaveCreateOverWrite = 2

  Dim BinaryStream
  Set BinaryStream = CreateObject("ADODB.Stream")

  BinaryStream.Type = adTypeBinary

  BinaryStream.Open
  BinaryStream.Write ByteArray

  BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function

Set objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
' Point to an image file with adequate access permissions granted
objHTTP.open "GET", "https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=http://www.domian.com&choe=UTF-8",false
objHTTP.send
'Response.BinaryWrite objHTTP.ResponseBody
call SaveBinaryData(Server.MapPath(".") & "\test.png", objHTTP.ResponseBody)
Set objHTTP = Nothing

在电子邮件中嵌入google qrcode

1 个答案: