---
title: "Cdo"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/122561-cdo"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ade"
published: "2005-02-16T10:20:00.000Z"
updated: "2005-02-16T12:07:31.000Z"
replies: 6
views: 400
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/122561-cdo"
---

# Cdo

## #1 — ade, 2005-02-16T10:20Z

Hej, har hittat ett gammal formuär på min dator som är uppbyggd med cdosys. Jag minns att det har fungerat både på web10 och gate9 som jag har.

I veckan har jag även skaffat Gate9 och jag hittar inte vilka komponenter som finns installerade på deras server. Men nu till koden och se om det är något fel på den.

Skicka.asp

```
 <%
  
  	' Skickar mailet
If Len(Request.Form("email")) > 0 AND Len(Request.Form("subject")) > 0 AND Len(Request.Form("message")) > 0 Then 
	Set cdoMail = CreateObject("CDO.Message")  
		cdoMail.From = Request.Form("email")
		cdoMail.To = "info@direktdesign.se"
		cdoMail.Subject = Request.Form("subject")
		cdoMail.HTMLBody = Request.Form("message")
		cdoMail.Configuration.Fields.Update
		cdoMail.Send
	Set cdoMail = Nothing 
End If
%>
  <tr> 
    <td height="739" colspan="5" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr> 
          <td width="650" height="739" valign="top" bgcolor="f9f9f9" style="padding-left: 15px; padding-right: 15px;"> 
            <p align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
              Mailet har blivit skickat! Vi kontaktar dig så snart vi kan!</font></p></font>
```

När jag har skickat mailet så står det att Mailet har blivit skickat! Men det kommer inte fram! Varken på web10 som har cdo eller gate9 där jag är osäker.

Tacksam för svar!

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

## #2 — Jesper T, 2005-02-16T10:32Z

Jag skulle testat att skicka ett testmail direkt. 

```
Set cdoMail = CreateObject("CDO.Message")  
		cdoMail.From = "info@direktdesign.se"
		cdoMail.To = "info@direktdesign.se"
		cdoMail.Subject = "Kommer..."
		cdoMail.HTMLBody = "...detta mail fram?"
		cdoMail.Configuration.Fields.Update
		cdoMail.Send
	Set cdoMail = Nothing
```

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

## #3 — Palle, 2005-02-16T10:44Z

Lite OT kanske, men postat ändå. :)

En *ful-lösning* för att kolla vilka mailkomponenter som finns tillgängliga på servern:

```
[red]<html><head><title> Checking components.. </title><head>
<body>

<%

ErrorCdonts = True
ErrorJmail = True
ErrorAspmail = True
ErrorCdoMail = True

'// CDONTS
On Error Resume Next

	Set Cdonts = Server.CreateObject("CDONTS.NewMail")
		If err.number <> 0 Then ErrorCdonts = False
		err.clear
	Set Cdonts = Nothing

'// JMAIL
On Error Resume Next

	Set Jmail = Server.CreateObject("JMail.Message")
		If err.number <> 0 Then ErrorJmail = False
		err.clear
	Set Jmail = Nothing

'// ASPMAIL
On Error Resume Next

	Set Aspmail = Server.CreateObject("SMTPsvg.Mailer")
		If err.number <> 0 Then ErrorAspmail = False
		err.clear
	Set Aspmail = Nothing

'// CDOMAIL
On Error Resume Next

	Set cdoMail = CreateObject("CDO.Message")  
		If err.number <> 0 Then ErrorCdoMail = False
		er.clear
	Set cdoMail = Nothing

'// RESULTAT
Response.Write ""&_
	"<br>CDO-NTS: "& ErrorCdonts &_
	"<br>JMail: "& ErrorJmail &_
	"<br>ASPMail: "& ErrorAspmail &_
	"<br>CDO-Message: "& ErrorCdoMail

%>

</body>
</html>[/red]
```

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

## #4 — ade, 2005-02-16T11:07Z

Humm jag bytte nu till denna kod för en kompis har sagt att den ska fungera där!

```
  <%
  sch = "http://schemas.microsoft.com/cdo/configuration/" 
    Set cdoConfig = Server.CreateObject("CDO.Configuration") 
    cdoConfig.Fields.Item(sch & "sendusing") = 2 
	cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.gate9.se" 
    cdoConfig.fields.update 
	
    Set cdoMessage = Server.CreateObject("CDO.Message") 
    Set cdoMessage.Configuration = cdoConfig 
	
    cdoMessage.From = "email" 
    cdoMessage.To = "info@direktdesign.se" 
	cdoMessage.Subject = "subject" 
    cdoMessage.HTMLBody = "message"
    cdoMessage.Send 

    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing
	
	%>
```

Skickade nyss, får se om det kommer fram!

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

## #5 — ade, 2005-02-16T11:35Z

Jag har fått problem!!

Mailet kommer fram men varken meddelande, namn eller telenummer kommer fram. Endast mailet sen är det tomt.

Kontakta.asp

```

     <%
IF Len(Session("kontakta_mig")) <> 0 then
	If Len(Session("falt")) <> 0 then
		uppg = Split(Session("falt"),"$|$")
		mess = uppg(0)
		namn = uppg(2)
		epost = uppg(1)
		hemsida = uppg(3)
		Session("falt") = ""
	End If
	felet = Session("kontakta_mig")
	Session("kontakta_mig") = ""
End If
IF len(felet) <> 0 then
%>
```

Skicka.asp

```

  <%
  sch = "http://schemas.microsoft.com/cdo/configuration/" 
    Set cdoConfig = Server.CreateObject("CDO.Configuration") 
    cdoConfig.Fields.Item(sch & "sendusing") = 2 
	cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.gate9.se" 
    cdoConfig.fields.update 
	
    Set cdoMessage = Server.CreateObject("CDO.Message") 
    Set cdoMessage.Configuration = cdoConfig 
	
    cdoMessage.From = Request.Form ("epost") 
    cdoMessage.To = "info@direktdesign.se" 
	cdoMessage.Subject = Request.Form ("Mail Från Hemsidan") 
    cdoMessage.HTMLBody = request.form("mess")
    cdoMessage.Send 

    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing
	
	%>
```

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

## #6 — @nders, 2005-02-16T11:46Z

Hur ser formuläret ut då?
Har du verkligen ett fält som heter *Mail från hemsidan*??

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

## #7 — ade, 2005-02-16T12:07Z

```
      <td colspan="2"><font size="1" face="Verdana">Ditt Meddelande:<font color="#FF0000">*</font></font></td>
                </tr>
                <tr> 
                  <td colspan="2"><textarea name="meddelande" rows="8" cols="58" style="font-family: verdana; font-size: 10px; border: #000000 1px solid"><%=message%></textarea></td>
                </tr>
                <tr> 
                  <td><font size="1" face="Verdana">Namn: <font color="#FF0000">*</font></font></td>
                  <td><input type="text" size="35" name="namn" value="<%=namn%>" style="font-family: verdana; font-size: 10px; border: #000000 1px solid"></td>
                </tr>
                <tr> 
                  <td><font size="1" face="Verdana">E-Mail: <font color="#FF0000">*</font></font></td>
                  <td><input type="text" size="35" name="epost" value="<%=epost%>" style="font-family: verdana; font-size: 10px; border: #000000 1px solid"></td>
                </tr>
                <tr> 
                  <td><font size="1" face="Verdana">Telefon: </font></td>
                  <td><input type="text" size="35" name="hemsida" value="<%=hemsida%>" style="font-family: verdana; font-size: 10px; border: #000000 1px solid"></td>
                </tr>
                <tr> 
                  <td></td>
                  <td> <input type="submit" name="submit" value="Skicka iv&auml;g" style="font-family: verdana; font-size: 10px; border: #000000 1px solid"> 
                  </td>
                </tr>
              </table>
            </form>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/122561-cdo