HTMLMail

--- title: "Tipsa en vän problem" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/13484-tipsa-en-vän-problem" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Mav" published: "2001-12-20T11:17:00.000Z" updated: "2002-01-02T08:34:00.000Z" replies: 13 views: 566 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13484-tipsa-en-vän-problem" --- # Tipsa en vän problem ## #1 — Mav, 2001-12-20T11:17Z Jag vill skapa en html sida (inte asp) som jag fyller i min kompis email adress och mitt namn. Skickar sedan formuläret till en asp sida som skickar ett fördefinerat mail. Inga problem att skapa en asp sida för allt men nu slumpar det sig att jag vill ha en html sida först. Hur fixar jag till det? Så här ser koden ut för html sida: ``` ``` och för asp sidan: ``` <% Dim URL, SenderName If Len(Request.Form("SendersName")) > 0 Then Dim objMail,FriendEmail sBody = "Du har blivit tipsad av " & Request.Form("SendersName") & vbCrLf & vbcrlf I=0 Do While True FriendEmail = Request.Form("FriendEmail" & I) If Len(FriendEmail) = 0 Then Exit Do Else Set objMail = CreateObject("CDONTS.NewMail") objMail.From = "info@domain.com" objMail.Subject = "Du har blivit tipsad!" objMail.Importance=1 objMail.Body = sBody objMail.To = FriendEmail objMail.Send() End If I=I+1 Loop Set objMail = Nothing Else End If %> Tack, ditt tips är nu på väg till din vän! ``` Permalänk: https://www.webforum.nu/p/13484 ## #2 — Linda, 2001-12-20T11:27Z Vad är felet, om man får fråga? Det är inga problem att ha en HTML-sida, som du har nu. Men vad får du för felmeddelande? /r Detta inlägg är skrivet utav Brimba. Jag missade att det var Lindas inlogg/lösen som låg i cookies.. :x \[Redigerat av Linda den 20 dec 2001\] Permalänk: https://www.webforum.nu/p/302281 ## #3 — Mav, 2001-12-20T12:56Z Problemet är att inget mail skickas! Permalänk: https://www.webforum.nu/p/302282 ## #4 — PatrikB, 2001-12-20T13:50Z Varför har du en loop? Ska man kunna skicka till flera kompisar? Som det just nu är i formuläret så har du endast ett fält som det ska skickas till: FriendEmail När du "hämtar" till vilken kompis det ska skickas till börjar du en loop som ska hämta alla email-adresser som ska skickas: ``` Do While True FriendEmail = Request.Form("FriendEmail" & I) If Len(FriendEmail) = 0 Then Exit Do Else ``` Det första emailfältet som efterfrågas är ett fält som heter: FriendEmail0 och något sådant har du inte i ditt formulär och således går den in i ifsatsen och kör en exit do, dvs, inget mail kommer att skickas. cya, PatrikB cya, PatrikB Permalänk: https://www.webforum.nu/p/302283 ## #5 — Mav, 2001-12-20T14:22Z Jag får spel!!!! Hur jag än vrider o vänder så funkar det inte.... Från början var det menat att man skulle kunna skicka till flera men nu ska det bara vara ett fält. Hur f\*n ska jag skriva koden??? Permalänk: https://www.webforum.nu/p/302284 ## #6 — Mav, 2001-12-20T14:58Z Sådär! Nu funkar det. Tack för hjälpen! För att utöka detta, kan man på ngt sätt skicka html mail på detta vis? Permalänk: https://www.webforum.nu/p/302285 ## #7 — PatrikB, 2001-12-20T15:46Z Nu e jag inte så hemma på CDONTS men skulle tro att det finns någon metod/genskap där man kan ställa content-type så det blir html och ej plain text cya, PatrikB Permalänk: https://www.webforum.nu/p/302286 ## #8 — Mav, 2001-12-20T15:49Z Inte jag heller men får söka efter lite info. Tack för hjälpen! Förresten finns det ngt annat sätt man kan göra det på? Permalänk: https://www.webforum.nu/p/302287 ## #9 — PatrikB, 2001-12-20T18:05Z Skicka en HTML-fil som ett Attachment kanske ... cya, PatrikB Permalänk: https://www.webforum.nu/p/302288 ## #10 — Mav, 2001-12-21T08:26Z Hittade info på Microsoft site. Funkar kanon nu. Tack för all hjälp alla... Permalänk: https://www.webforum.nu/p/302289 ## #11 — Mav, 2001-12-21T10:11Z Försöker nu att få asp sidan att ta med info från ett formulärfälten men det vill sig inte riktigt. Mailet går iväg men det står "This mail whas sent to you by "& Request.Form(""SendersName"")" Vill ju att det ska stå det som fylls i i det fältet. ``` <% Dim SenderName, HTML If Len(Request.Form("SendersName")) > 0 Then Dim objMail,FriendEmail ... HTML = HTML & "This mail whas sent to you by " HTML = HTML & "& Request.Form(""SendersName"")" HTML = HTML & "" ... FriendEmail = Request.Form("FriendEmail") Set objMail = CreateObject("CDONTS.NewMail") objMail.From = "info@domain.com" objMail.Subject = "Du har blivit tipsad!" objMail.Importance=1 objMail.BodyFormat=0 objMail.MailFormat=0 objMail.Body=HTML objMail.To = FriendEmail objMail.Send() End If %> ``` Permalänk: https://www.webforum.nu/p/302290 ## #12 — Mav, 2001-12-21T10:14Z Hittade felet. Ingen behöver göra sig besvär. Tack! Permalänk: https://www.webforum.nu/p/302291 ## #13 — solbulle, 2001-12-21T17:46Z Bra att du hittade felet. Själv tycker jag att det är kul om man kan posta lösningen även om man hittar den själv. (Om den kan vara av intresse för andra.) Det gör forumet mer komplett när man sedan söker efter hjälp på frågor som redan avhandlats. IMHO. Permalänk: https://www.webforum.nu/p/302292 ## #14 — Mav, 2002-01-02T08:34Z Gott nytt år på er alla! Postar nu lösningen Html sidan: ``` ``` asp sidan: ``` <% Dim SenderName, HTML If Len(Request.Form("SendersName")) > 0 Then Dim objMail,FriendEmail HTML = "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "HTMLMail" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "

" HTML = HTML & "Tipsa! ""HTML Tip a friend""

" HTML = HTML & "

" HTML = HTML & "Allows an easy way to send mail.
" HTML = HTML & "This example shows how the content can be " HTML = HTML & "an HTML page
" HTML = HTML & "which allows you to send rich text and" HTML = HTML & "inline graphics.

" HTML = HTML & "This mail whas sent to you by " HTML = HTML & Request.Form("SendersName") HTML = HTML & "" HTML = HTML & "" FriendEmail = Request.Form("FriendEmail") Set objMail = CreateObject("CDONTS.NewMail") objMail.From = "info@domain.com" objMail.Subject = "Du har blivit tipsad!" objMail.Importance=1 objMail.BodyFormat=0 objMail.MailFormat=0 objMail.Body=HTML objMail.To = FriendEmail objMail.Send() End If %> Tack, ditt tips är nu på väg till din vän! ``` Permalänk: https://www.webforum.nu/p/302293 --- Tråden på webben: https://www.webforum.nu/amne/asp/13484-tipsa-en-vän-problem