10 svar · 397 visningar · startad av JulleBoy
Tjena!
Undrar om det finns något enkelt sätt att skicka en färdig HTML sida som email med JMail.
Typ som: mailare.AppendHTML "<iframe src='http://www.färdigsida.se'></iframe>
Eller något liknande då ovanstående inte fungerar..
Skulle typ vara grymt om man bara kunde skicka en länk som öppnades i mottagarens epostprogram ..
Du kan alltid hämta in html-sidan med xmlhttp och lägga till innehållet som body i ditt mail. Sök lite på xmlhttp här i forumet.
mvh
Löste det genom att hämta sidan med xmlHTTP
<%
Set HTTP = Server.CreateObject("Microsoft.XMLHTTP")
HTTP.Open "GET", "http://www.testsida.se", False
HTTP.Send
HTML = HTTP.ResponseText
Set objHTTP = Nothing
%>
Och skrev ut det med:
mailare.AppendHTML ""&HTML&""
Thx @nders
Det är onödigt att lägga till en tom sträng före och efter HTML. Detta räcker:
mailare.AppendHTML HTML
mvh
JulleBoy skrev:
Löste det genom att hämta sidan med xmlHTTP
<%
Set HTTP = Server.CreateObject("Microsoft.XMLHTTP")
HTTP.Open "GET", "http://www.testsida.se", False
HTTP.Send
HTML = HTTP.ResponseText
Set objHTTP = Nothing
%>Och skrev ut det med:
mailare.AppendHTML ""&HTML&""
Hur fick du till det med mottagare och sånt för att det ska komma fram
WebbisNet skrev:
Hur fick du till det med mottagare och sånt för att det ska komma fram
Precis som vanligt. Man använder endast XMLHTTP för att hämta HTML-strängen. JMail har dock metoden GetMessageBodyFromURL som man kan använda i stället.
kan du inte skriva nåt exempel man kan använda
hur ska jag göra för att min body inte ska bli tom utan innehålla asp-filen
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.webbisen.com/contactmail.asp", False
objHTTP.Send
strHTML = objHTTP.ResponseText
sTo = "admin@webbisen.com"
'sCC = ""& email &""
sFrom = "test@webbisen.com"
sFrom1 = "no-reply@webbisen.com"
sSubject = "Åsikter från " & username & " [medlemsID " & userID & "]"
sTextBody = [B]vad ska finnas här[/B]
'Create the mail object and set key properties
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = sFrom
objMail.To = sTo
objMail.Send
Set objMail = Nothing
response.write "mailet är skickat"
%>
Du har hämtat strängen till strHTML, så sätt helt enkelt objMail.HTMLBody till strHTML
Glöm inte Subject
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.webbisen.com/contactmail.asp", False
objHTTP.Send
strHTML = objHTTP.ResponseText
sTo = "admin@webbisen.com"
'sCC = ""& email &""
sFrom = "test@webbisen.com"
sFrom1 = "no-reply@webbisen.com"
sSubject = "Åsikter från " & username & " [medlemsID " & userID & "]"
'Create the mail object and set key properties
Set objMail = Server.CreateObject("CDO.Message")
strHTML.From = sFrom
strHTML.To = sTo
strHTML.HTMLBody=strHTML
strHTML.Send
Set strHTML = Nothing
response.write "mailet är skickat"
%>
fick bara fram asp-sidan men inget mail, vad gjorde jag fel?
Den koden torde rendera i felmeddelanden
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.webbisen.com/contactmail.asp", False
objHTTP.Send
strHTML = objHTTP.ResponseText
sTo = "admin@webbisen.com"
'sCC = ""& email &""
sFrom = "test@webbisen.com"
sFrom1 = "no-reply@webbisen.com"
sSubject = "Åsikter från " & username & " [medlemsID " & userID & "]"
'Create the mail object and set key properties
Set objMail = Server.CreateObject("CDO.Message")
[b]objMail[/b].From = sFrom
[b]objMail[/b].To = sTo
[b]objMail.Subject=sSubject [/b]
[b]objMail[/b].HTMLBody=strHTML
[b]objMail[/b].Send
Set [b]objMail[/b]= Nothing
response.write "mailet är skickat"
%>