webForumDet fria alternativet

vad är fel med CDonts

ASP

30 svar · 1 150 visningar · startad av Pellsater

Medlem sedan juli 2000154 inlägg
Frågan#1

Har ett mail och vill att det ska finnas med en länk i mailet men länken blir bara utskriven som vanlig text!!!

Set mail = Server.CreateObject("CDO.Message")

Set objConfig = createobject("cdo.configuration")
Set Flds = objConfig.Fields
With Flds
 .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-hub.space2u.com"
 .Update
End With
Set mail.Configuration = objConfig

BodyFormat = cdoBodyFormatHTML

mail.Subject = "Orderbekräftelse till " &fnamn&enamn
mail.TextBody = uppg
mail.from = "order@fitnessbutiken.se"
mail.To = epost
Mail.cc = "info@fitnessbutiken.se"
Mail.bcc = ""
mail.Send 
set mail = Nothing

HJÄLP

Medlem sedan juni 20019 519 inlägg
#2

ändra TextBody till HTMLBody ?

Medlem sedan juli 2000154 inlägg
#3

nja ... all text som ska med har namnet "uppg" och är det där det anges?

Medlem sedan juni 200032 967 inlägg
#4

voigtann1 skrev:

ändra TextBody till HTMLBody ?

Lyssna på voigtann. Ingen html, ingen länk.

Dessutom; cdo != cdonts.

Medlem sedan juli 2000154 inlägg
#5

klart och det ser bra ut dock blir allt i mailet bara till en enda textklump nu inte uppdelat alls. Och länken går att klicka på men den vill inte öppna upp en läsare utan spara den i datorn

Medlem sedan juni 200032 967 inlägg
#6

Exakt hur ser innehållet i uppg ut då? Och vilken mailklient försöker du använda?

Medlem sedan juli 2000154 inlägg
#7

ett utdrag ur uppg

uppg = "Tack för Din beställning från Fitnessbutiken.se, " & vbCrLf 
uppg = uppg & "har du valt att betala via betalkort, så får du en bekräftelse"  & vbCrLf 
uppg = uppg & "där att du har betalat, sedan skickar vi dina varor"  & vbCrLf & vbCrLf
uppg = uppg & "Personnummer: " & pnr & vbCrLf
uppg = uppg & "Förnamn: " & fnamn &  vbCrLf
uppg = uppg & "Efternamn: " & enamn &   vbCrLf
uppg = uppg & "Adress: " & adress & vbCrLf
uppg = uppg & "Postnummer: " & postnummer &  vbCrLf 
uppg = uppg & "Ort: " & ort &  vbCrLf

sen använder jag CDONTS eller vad menar du ?

Medlem sedan juli 2000154 inlägg
#8

jag har Outlook

Medlem sedan juni 20019 519 inlägg
#9

TextBody presentara dokumenet som "plain text" i Outlook bland annat... om du vill ha länkar mm så måste du använda htmlbody..

Medlem sedan juni 200032 967 inlägg
#10

Dessutom ser jag ingen länk i texten.

sen använder jag CDONTS eller vad menar du ?

Nej, du använder ju CDO.

Medlem sedan juli 2000154 inlägg
#11

ok... ser du vad som är fel?

uppg = uppg & "<a href=""payment.asp?totalSummaKort=" & totalSummaKortPay & "&orderid=" & orderid & """>Betala här om du inte betalat ännu</a>" & vbCrLf & vbCrLf & vbCrLf
Medlem sedan juni 20019 519 inlägg
#12

har du ens provat htmlbody?

Medlem sedan juni 200032 967 inlägg
#13

Om du ska ha HTML-mail, så ska du formatera mailet som html, dvs använda <br> för radbrytningar, etc, samt använda HTMLBody i CDO.

Medlem sedan juli 2000154 inlägg
#14

japp och det blir HTML men allt blir bara en klump av text som jag skrev

Medlem sedan juni 200032 967 inlägg
#15

Pellsater skrev:

japp och det blir HTML men allt blir bara en klump av text som jag skrev

Ja, du har ju inga radbrytningar någonstans.

Medlem sedan juli 2000154 inlägg
#16

ok så inga & vbCrLf?

Hur gör jag för att få med de olika variablarna ex.
uppg = uppg & "Personnummer: " & pnr & vbCrLf

Medlem sedan juni 20019 519 inlägg
#17

du kan göra:

uppg = replace(uppg,vbCrLf,"<br/>" & vbCrLf)

och sen ta det i htmlbody ... så slipper du redigera om din fil för mycket ;)

Medlem sedan juli 2000154 inlägg
#18

allt blir ju dubbelt... för kommer texten i en klump sen skrivs den igen fast då rätt

Medlem sedan juni 20019 519 inlägg
#19

...

Set mail = Server.CreateObject("CDO.Message")

Set objConfig = createobject("cdo.configuration")
Set Flds = objConfig.Fields
With Flds
 .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-hub.space2u.com"
 .Update
End With
Set mail.Configuration = objConfig

BodyFormat = cdoBodyFormatHTML

mail.Subject = "Orderbekräftelse till " &fnamn&enamn

mail.[b]html[/b]Body = [b]replace(uppg &"",vbCrLf,"<br/>" & vbCrLf)[/b]
mail.from = "order@fitnessbutiken.se"
mail.To = epost
Mail.cc = "info@fitnessbutiken.se"
Mail.bcc = ""
mail.Send 
set mail = Nothing
Medlem sedan juli 2000154 inlägg
#20

tack!!!

293 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
129 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
159 ms — ändringar (db)