---
title: "Skicka mail med cdosys"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/115093-skicka-mail-med-cdosys"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2004-11-04T14:35:35.000Z"
updated: "2004-11-04T18:56:21.000Z"
replies: 9
views: 353
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/115093-skicka-mail-med-cdosys"
---

# Skicka mail med cdosys

## #1 — WebbisNet, 2004-11-04T14:35Z

Något verkar vara fel med denna kod, får inget felmeddelande men inget mail kommer fram

```
Dim sTo 
Dim sTextBody 
Dim objMail
strPass = mkPwd(15)
strPass1= md5(strPass)

sTo = email
sFrom = "info@webbisen.com"
sSubject = "Ditt nya lösenord"

'Create the mail object and set key properties
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = sFrom  
objMail.To = sTo 
objMail.Subject = sSubject
objMail.TextBody = "Ditt lösenord är " &strPass&  vbNewLine &_
"Var noga med att ändra lösenordet efter att du har loggat in vbNewLine " & _

objMail.Send 
Set objMail = Nothing
```

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

## #2 — @nders, 2004-11-04T14:43Z

Var sätter du mottagaradressens värde?

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

## #3 — WebbisNet, 2004-11-04T14:45Z

> **@nders skrev:**
>
> Var sätter du mottagaradressens värde?

den kommer från textrutans värde och jag vet att jag får med det eftersom det ibland kan ta en halvtimme innan mailet kommer fram

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

## #4 — @nders, 2004-11-04T14:50Z

Du har avslutat TextBody-raden på fel sätt, du fortsätter ju inte på raden under.

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

## #5 — WebbisNet, 2004-11-04T14:51Z

> **@nders skrev:**
>
> Du har avslutat TextBody-raden på fel sätt, du fortsätter ju inte på raden under.

Hur gär man, har aldrig testat med att byta rad innan

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

## #6 — @nders, 2004-11-04T14:54Z

Jo, alltså du har gjort rätt för att byta rad. Men du har skrivit "byt rad här" även när du inte ska byta rad, när du är färdig. Det kan betyda att .Send inte körs. Så här har du skrivit:

```
objMail.TextBody = "Ditt lösenord är " &strPass&  vbNewLine &_
"Var noga med att ändra lösenordet efter att du har loggat in vbNewLine " & _
```

Ta bort det sista & \_ , eftersom du är klar.

Du ser också att du lagt vbNewLine inne i strängen.

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

## #7 — WebbisNet, 2004-11-04T15:08Z

> **@nders skrev:**
>
> Jo, alltså du har gjort rätt för att byta rad. Men du har skrivit "byt rad här" även när du inte ska byta rad, när du är färdig. Det kan betyda att .Send inte körs. Så här har du skrivit:
>
> ```
> objMail.TextBody = "Ditt lösenord är " &strPass&  vbNewLine &_
> "Var noga med att ändra lösenordet efter att du har loggat in vbNewLine " & _
> ```
>
> Ta bort det sista & \_ , eftersom du är klar.
> 
> Du ser också att du lagt vbNewLine inne i strängen.

jag gjorde om till 

```
sTo = email
sFrom = "info@webbisen.com"
sSubject = "Ditt nya temporära lösenord"
sBody="Ditt lösenord är " '&strPass&'  & vbNewLine & _
sBody="Var noga med att ändra lösenordet efter att du har loggat in"

'Create the mail object and set key properties

sch = "http://schemas.microsoft.com/cdo/configuration/" 
    Set objMail = Server.CreateObject("CDO.Message")
    objMail.Fields.Item(sch & "sendusing") = 2 
    objMail.Fields.Item(sch & "smtpserver") ="smtp.glidecom.se" 
    objMail.Fields.update 

objMail.From = sFrom  
objMail.To = sTo 
objMail.Subject = sSubject
objMail.TextBody = sBody
```

men jag har fortfarande inte fått mail

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

## #8 — @nders, 2004-11-04T17:46Z

Skriv ut innehållet i *email* så du är säker på att variabeln har ett värde.

Dessutom; om du nu får iväg mailet, kommer mailtexten endast att vara:

```
Var noga med att ändra lösenordet efter att du har loggat in
```

Titta noggrant på koden så ser du varför. =)

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

## #9 — WebbisNet, 2004-11-04T17:58Z

> **@nders skrev:**
>
> Skriv ut innehållet i *email* så du är säker på att variabeln har ett värde.
> 
> Dessutom; om du nu får iväg mailet, kommer mailtexten endast att vara:
>
> ```
> Var noga med att ändra lösenordet efter att du har loggat in
> ```
>
> Titta noggrant på koden så ser du varför. =)

Tog runt en timme för mailen att komma fram

När jag har
sBody="Ditt lösenord är " '&strPass&'  & vbNewLine & \_
"Var noga med att ändra lösenordet efter att du har loggat in"

så klagar den på oavslutad strängkonstant tror det var, den pekar på "Var noga med att ändra lösenordet efter att du har loggat in"

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

## #10 — @nders, 2004-11-04T18:56Z

Ja, felet jag tänkte att du skulle hitta när du tittade noggrant på koden är fortfarande där. Du får alltså titta lite noggrannare. :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/115093-skicka-mail-med-cdosys