Jag undrar om det finns någon lösning så att ´man bara kan bifoga en sida när man skickar ivåg det, och så att det sedan presenteras som ett html-mail. Har inte testat själv och det är länge sen jag använde mig av CDONTS, men skulle man inte kunna använda AttachURL-metoden? För att bara bifoga filen så funkar det att göra så, men jag vill att den ska presenteras som html i mailet. Har också undrat samma sak, men det är nog tyvärr bara och koda. Jag har även tagit upp ämnet i forumet tidigare. Har du kommit på någon lösning? När man skickar ett mail av typen html så måste man ställa in Body Formatet, det gör du på följande sätt<code> Det där scriptet har jag redan. Exempel: Ja det verkar ju inte finnas något annat alternativ så jag får väl köra på det, Borde du inte kunna använda xmlhttp för att "hämta" webbsidan till en sträng och sen sända denna sträng som body i ditt mail? Skrev det hela som en funktion: <code>Skicka mail med html
Jag hittade en lösning där man måste skriva upp rad för rad i scriptet: jag tycker det verkar lite jobbigt, finns det någonlättare lösning.
Jag använder mig nu av CDONTS.
tack på förhand / andreasSv: Skicka mail med html
<code>
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.AttachURL "D:\wwwroot\html_mail\031109.html", "031109.html"
myMail.From = "pelle@pellesoft.se"
myMail.To = "nisse@nisse.nu"
myMail.Subject = "HTML-mail"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Send
</code>Sv: Skicka mail med html
Finns det nån annan komponent smo fixar det bättre eller någon som vet hur man gör?Sv: Skicka mail med html
Sv: Skicka mail med html
Hur gör de som skickar ut såna hmtl-newletter då????Sv: Skicka mail med html
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "mejl@doman.se"
myMail.To = "kallesmejl@doman.se"
myMail.Subject = "Rubrik"
myMail.BodyFormat = 0 ' 0 om HTML, 1 om vanlig text, dvs PLAIN TEXT
myMail.MailFormat = 0 ' 0 om MIME format, 1 om vanlig text, dvs PLAIN TEXT
' Html kallar jag den variabel som innehåller själva meddelandet i HTML
myMail.Body = HTML
myMail.Send ' Skicka meddelandet.
Set myMail = Nothing
</code>
Men detta förutsätter att mottagaren kan ta emot HTML-meddelanden, kan de inte så blir de nog en obegriplig text för de som inte kan HTML och kan hitta svaret. Allternativt låter man de som vill ha ett html-meddelande ange det vi registrering av nyhetsbrevet, och de som vill ha det i bara text får det i vanlig text.
Dubbelt med jobb, men det lönar sig!Sv: Skicka mail med html
Skriver du dit hmtl i scriptet rad för rad eller kan du bifoga en fil - alltså det jag letar efter.Sv: Skicka mail med html
<code>
<%
If Request("Skicka")<>"" Or Request("Granska")<>"" Then
'*********HTMLOUTPUT
HTML = "<HTML><BODY bgcolor=""#FFFFFF"" text=""#000000"">"
HTML = HTML &"<TABLE width=""600"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
HTML = HTML &"<TR>"
HTML = HTML &"<TD>"
HTML = HTML &"<P><IMG src=""/grafik/logo_till.gif"" width=""100"" height=""158""><FONT face=""Georgia, Times New Roman, Times, serif"" size=""6""><B><FONT color=""#999999"">Senaste nytt !</FONT></B></FONT></P>"
HTML = HTML &"</TD>"
HTML = HTML &"</TR>"
HTML = HTML &"<TR>"
HTML = HTML &"<TD background=""/grafik/prickar.gif""><IMG src=""/grafik/shim.gif"" width=""2"" height=""2""></TD>"
HTML = HTML &"</TR>"
HTML = HTML &"<TR>"
'*********Här kommer din text
HTML = HTML &"<TD>" & Request("BrodText") & "</TD>"
'*********Här slutar din text
HTML = HTML &"</TR>"
HTML = HTML &"<TR>"
HTML = HTML &"<TD background=""/grafik/prickar.gif""><IMG src=""/grafik/shim.gif"" width=""2"" height=""2""></TD>"
HTML = HTML &"</TR>"
HTML = HTML &"</TABLE>"
HTML = HTML &"</BODY>"
HTML = HTML &"</HTML>"
'************HTMLOUTPUT SLUT
If Request("Granska")<>"" Then
Response.Write("<P>KLICKA PÅ BAKÅTKNAPPEN PÅ WEBBLÄSAREN NÄR DU SKA TILLBAKA. ANNARS FÖRSVINNER DET DU HAR SKRIVIT!!!</P>")
Response.Write(HTML)
Response.End
Else
Do While Not rsEmailList.EOF
Set NyhetsMail = Server.CreateObject("CDONTS.NewMail")
NyhetsMail.From = "info@vadduvill.nu"
NyhetsMail.To = rsEmailList("Epost")
NyhetsMail.Subject = Request("Rubrik")
NyhetsMail.Body = HTML
NyhetsMail.BodyFormat = CdoBodyFormatHTML
NyhetsMail.MailFormat = CdoMailFormatMime
NyhetsMail.Send
Set NyhetsMail = Nothing
rsEmailList.MoveNext
Loop
rsEmailList.Requery
End If
End If
%>
</code>
Ett exempel på vad man kan göra!
Lycka till/HampusSv: Skicka mail med html
tack reine å freddanSv: Skicka mail med html
Ska försöka slänga ihop ett skript för det... som kanske förklarar lite bättre hur jag tänker...
<code>
<%
' Läs in webbsidan med hjälp av ServerXMLHTTP
On Error Resume Next
Dim oXML, sURL, page
Set oXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
sURL = "./newsletter.asp"
oXML.Open "GET", sURL
oXML.Send
If Err.Number <> 0 then
Response.Write "Ett fel uppstod!"
Response.End
End If
' Lagra svaret i en variabel
page = oXML.ResponseText
Set oXML = Nothing
' Skicka med CDONTS
Dim myMail
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.From = "pelle@pellesoft.se"
myMail.To = "nisse@nisse.nu"
myMail.Subject = "HTML-mail"
' Sätt body:n till page(dvs webbsidan)
myMail.Body = page
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Send
Set myMail = Nothing
%>
</code>
Sitter på en XP pro maskin här och kan inte testa CDONTS... men borde inte detta funka?Sv: Skicka mail med html
<code>
<%
Function sendHTML(subject,url,adrFrom,adrTo)
sendHTML = False
' Kolla e-postadresserna kan va bra att göra typ:
' If Not (isEmail(adrFrom) and isEmail(adrTo)) Then Exit Function
On Error Resume Next
Dim oXML, page
Set oXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
oXML.Open "GET", url
oXML.Send
If Err.Number <> 0 then
Exit Function
End If
page = oXML.ResponseText
Set oXML = Nothing
Dim myMail
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.From = adrFrom
myMail.To = adrTo
myMail.Subject = subject
myMail.Body = page
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Send
Set myMail = Nothing
sendHTML = True
End Function
' Exempel:
If sendHTML("Nyhetsbrev","./newsletter.asp","pelle@pellesoft.se","nisse@nisse.nu") then
Response.Write("Brevet ivägskickat!")
Else
Response.Write("Det uppstod ett fel!")
End If
%>
</code>Sv: Skicka mail med html
...
Do While Not rsEmailList.EOF
Set NyhetsMail = Server.CreateObject("CDONTS.NewMail")
NyhetsMail.From = "info@vadduvill.nu"
NyhetsMail.To = rsEmailList("Epost")
...
</code>
hmmm... Är det inte smartare att slå ihop adresserna till en semikolon-separerad sträng istället för att skapa ett nytt objekt för varje mottagare?