---
title: "Automail från databas ?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5637-automail-från-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bire"
published: "1999-12-28T15:01:00.000Z"
updated: "2000-05-07T09:03:00.000Z"
replies: 3
views: 411
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/5637-automail-från-databas"
---

# Automail från databas ?

## #1 — Bire, 1999-12-28T15:01Z

Hur gör man för att det ska skickas ett E-mail till mig så fort det har tillkommit uppgifter i min databas som är kopplad till min webshop ? Jag kliar mig i skallen och funderar så att jag håller på att bli tokig ! Jag vill få en order mailad från webshopen alltså, samt en orderbekräftelse till kunden !
HJÄÄÄLP !

Permalänk: https://www.webforum.nu/p/5637

## #2 — toha, 1999-12-28T15:31Z

Det gör du väl lättast på samma sida som du för in uppgifterna i databasen.

Ex:

\==========================================================

set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "minadress@here.se"
objMail.From = "avsandare@there.se"
objMail.Subject = "Rubriken..."
objMail.Body = "Nu har du fått mejl..."
objMail.Send
set objMail = Nothing

\==========================================================

Permalänk: https://www.webforum.nu/p/242804

## #3 — Bire, 1999-12-28T17:31Z

Jag bifogar url till min shop som är under utveckling om det kan vara till någon hjälp... Jag fattar inte vart jag ska lägga in mailfunktionen alls ! <http://bire.webhostme.com/aspshop/>

Permalänk: https://www.webforum.nu/p/242805

## #4 — Kenneth, 2000-05-07T09:03Z

Hejsan Bire, vore kul att höra om du fick ording på denna funktion som du efterfrågade.

Speciellt när jag själv behöver ha lite hjälp med att få min orderbekräftelse att fungera.

Jag försökte lösa det såhär men cdonts vill bara inte skicka det, nån som vet var felet kan vara??
\<%
set conntemp = Server.CreateObject("ADODB.Connection")
DSNtemp = "DRIVER={Microsoft Access Driver (\*.mdb)}; "
DSNtemp = DSNtemp & "DBQ=" & Server.MapPath(" ../artiklar.mdb")
conntemp.Open DSNtemp
set rs = conntemp.Execute(" SELECT \* From TempTab Where kundID='" & Session("AFnummer") & "'")

Dim myCDONTSMail
      Dim strFrom
      Dim strTo
      Dim strSubject
      Dim strBody
      Dim lngImportance

strFrom = "ÅFnummer: " & Session("AFnummer")

Do While Not rs.EOF
strBody = "Artikelnummer: " & rs("txtArtikelNr")
strBody = strBody & "	Färgkod: " & rs("txtFargkod")
strBody = strBody & "   Antal: " & rs("nAntal")
strBody = strBody & "   Önskat lev.datum: " & rs("levdatum")
rs.MoveNext
Loop

      strFrom=request.form("txtFrom")
      strTo="look@doingit.nu"
      strSubject = request.form("txtSubject")
      strBody=request.form("txtArtikelNr,txtFargkod,nAntal,levdatum")
      lngImportance = request.form("optImportance")

   
      Set myCDONTSMail = CreateObject("CDONTS.NewMail")
      myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance
      Set myCDONTSMail  = Nothing
   
      %\>

\<body bgcolor="#CCCCCC" text="#333399"\>
\<div align="center"\>
  \<p\>&nbsp;\</p\>
  \<p\>&nbsp;\</p\>
  \<p\>\<font face="Arial, Helvetica, sans-serif" size="3"\>Tack för din beställning. 
    Vi ska ta hand om den så fort vi kan. \</font\> \</p\>
\</div\>

\<%
set conntemp = Server.CreateObject("ADODB.Connection")
DSNtemp = "DRIVER={Microsoft Access Driver (\*.mdb)}; "
DSNtemp = DSNtemp & "DBQ=" & Server.MapPath(" ../artiklar.mdb")
conntemp.Open DSNtemp
set rs = conntemp.Execute("DELETE FROM TempTab Where kundID='" & Session("AFnummer") & "'")

%\>

Permalänk: https://www.webforum.nu/p/242806

---

Tråden på webben: https://www.webforum.nu/amne/asp/5637-automail-från-databas