Skicka mail med cdosys

Var sätter du mottagaradressens värde?

@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

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

@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

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.

@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

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. =)

@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"

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. :)