在电子邮件中嵌入谷歌QR code [英] embed google qrcode in email
问题描述
我有一个code发送一封电子邮件,使用aspemail嵌入式图像。
在code中,我得到了℃的常规图像; IMG>标签
从谷歌 - 所以我得到的QR code
在电子邮件中,如果客户端不下载图像automaticaly,他将看不到图片
aspemail的嵌入不能嵌入图像/文件,是不是本地的。
有没有办法从给URL本地保存的图像?
如果我得到的图像从谷歌: <$c$c>https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=http://www.sitedomain.com&choe=UTF-8$c$c>
和有它特定的文件夹下保存为一个唯一的名称
功能SaveBinaryData(文件名,字节)
常量adTypeBinary = 1
常量adSaveCreateOverWrite = 2 昏暗的BinaryStream
设置BinaryStream =的CreateObject(的ADODB.Stream) BinaryStream.Type = adTypeBinary BinaryStream.Open
BinaryStream.Write的ByteArray BinaryStream.SaveToFile文件名,adSaveCreateOverWrite
结束功能设置objHTTP =的Server.CreateObject(Msxml2.ServerXMLHTTP)
指向有足够的访问权限授予一个图像文件
objHTTP.openGET, \"https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=http://www.domian.com&choe=UTF-8\",false
objHTTP.send
Response.BinaryWrite objHTTP.ResponseBody
调用SaveBinaryData(使用Server.Mappath()及。;\\ test.png,objHTTP.ResponseBody)
设置objHTTP =什么
I have a code that sends an email with embeded images using aspemail.
within the code i get a regular image by the <img> tag
from google - so i get the qrcode
in the email, if the client does not download images automaticaly, he won't see the image
the embed of aspemail can't embed image/file that is not local
is there a way to save locally an image from a giving url?
if i get image from google: https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=http://www.sitedomain.com&choe=UTF-8
and have it saved as a unique name under specific folder
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
这篇关于在电子邮件中嵌入谷歌QR code的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!