Frågan 26 jan. 2007 09:11 #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
ändra TextBody till HTMLBody ?
nja ... all text som ska med har namnet "uppg" och är det där det anges?
@nders Medlem sedan juni 2000 32 967 inlägg
voigtann1 skrev:
ändra TextBody till HTMLBody ?
Lyssna på voigtann. Ingen html, ingen länk.
Dessutom; cdo != cdonts.
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
@nders Medlem sedan juni 2000 32 967 inlägg Exakt hur ser innehållet i uppg ut då? Och vilken mailklient försöker du använda?
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 ?
TextBody presentara dokumenet som "plain text" i Outlook bland annat... om du vill ha länkar mm så måste du använda htmlbody..
@nders Medlem sedan juni 2000 32 967 inlägg Dessutom ser jag ingen länk i texten.
sen använder jag CDONTS eller vad menar du ?
Nej, du använder ju CDO.
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
har du ens provat htmlbody?
@nders Medlem sedan juni 2000 32 967 inlägg 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.
japp och det blir HTML men allt blir bara en klump av text som jag skrev
@nders Medlem sedan juni 2000 32 967 inlägg
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.
ok så inga & vbCrLf?
Hur gör jag för att få med de olika variablarna ex.
uppg = uppg & "Personnummer: " & pnr & vbCrLf
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 ;)
allt blir ju dubbelt... för kommer texten i en klump sen skrivs den igen fast då rätt
...
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