|
| E-mail Script Fra : Kenneth Fuglsang |
Dato : 08-05-01 16:02 |
|
Hej
hvordan kan output'et i emailen sættes pænt op sådan at det står f.eks sådan
her :
Navn : Kenneth Fuglsang
Adresse : 123
med dette script :
' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )
' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true
' Most mailservers require a valid email address
' for the sender
msg.From = "Kenneth-fuglsang@pc.dk"
msg.FromName = "The Complex"
' Next we have to add some recipients.
' The addRecipients method can be used multiple times.
' Also note how we skip the name the second time, it
' is as you see optional to provide a name.
msg.AddRecipient "" & Request.Form("Email") & "", "" & Request.Form("Navn")
& ""
' The subject of the message
msg.Subject = "Bordreservering hos The Complex"
'
' Teksten i Emailen
msg.Body = "Hej " & Request.Form("Navn") & "" & vbCrLf & vbCrLf & "Du har
reserveret bord nr. " & Request.Querystring("bord") & "" & vbCrLf & "Med
følgende oplysninger :" & vbCrLf & "Navn : " & Request.Form("Navn") & "" &
vbCrLf & "Nickname : " & Request.Form("Nickname") & "" & vbCrLf & "Adresse
: " & Request.Form("Adresse") & "" & vbCrLf & "Post nr. & By : " &
Request.Form("City") & "" & vbCrLf & "Tlf. nr.: " & Request.Form("tlf") &
"" & vbCrLf & "E-mail : " & Request.Form("email") & "" & vbCrLf &
"Hjemmeside : " & Request.Form("hjemmeside") & ""
msg.Send("smtp.mail.dk" )
--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
E-mail : kenneth-fuglsang@pc.dk
| |
Kenneth Fuglsang (08-05-2001)
| Kommentar Fra : Kenneth Fuglsang |
Dato : 08-05-01 18:44 |
|
Jeg tænkte på om man ikke kunne bruge en tabel
--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
Kattegatsvej 17
9700 Brønderslev
Tlf.: 98 82 21 12
E-mail : kenneth-fuglsang@pc.dk
"Kenneth Fuglsang" <kenneth-fuglsang@pc.dk> skrev i en meddelelse
news:9d91ol$8l1$1@news.inet.tele.dk...
> Hej
>
> hvordan kan output'et i emailen sættes pænt op sådan at det står f.eks
sådan
> her :
> Navn : Kenneth Fuglsang
> Adresse : 123
>
> med dette script :
> ' Create the JMail message Object
> set msg = Server.CreateOBject( "JMail.Message" )
>
> ' Set logging to true to ease any potential debugging
> ' And set silent to true as we wish to handle our errors ourself
> msg.Logging = true
> msg.silent = true
>
> ' Most mailservers require a valid email address
> ' for the sender
> msg.From = "Kenneth-fuglsang@pc.dk"
> msg.FromName = "The Complex"
>
> ' Next we have to add some recipients.
> ' The addRecipients method can be used multiple times.
> ' Also note how we skip the name the second time, it
> ' is as you see optional to provide a name.
> msg.AddRecipient "" & Request.Form("Email") & "", "" &
Request.Form("Navn")
> & ""
>
>
> ' The subject of the message
> msg.Subject = "Bordreservering hos The Complex"
>
>
> '
> ' Teksten i Emailen
> msg.Body = "Hej " & Request.Form("Navn") & "" & vbCrLf & vbCrLf & "Du har
> reserveret bord nr. " & Request.Querystring("bord") & "" & vbCrLf & "Med
> følgende oplysninger :" & vbCrLf & "Navn : " & Request.Form("Navn") & ""
&
> vbCrLf & "Nickname : " & Request.Form("Nickname") & "" & vbCrLf &
"Adresse
> : " & Request.Form("Adresse") & "" & vbCrLf & "Post nr. & By : " &
> Request.Form("City") & "" & vbCrLf & "Tlf. nr.: " & Request.Form("tlf")
&
> "" & vbCrLf & "E-mail : " & Request.Form("email") & "" & vbCrLf &
> "Hjemmeside : " & Request.Form("hjemmeside") & ""
>
> msg.Send("smtp.mail.dk" )
>
> --
> Med Venlig Hilsen
> Webmaster
> Kenneth Fuglsang Christensen
> E-mail : kenneth-fuglsang@pc.dk
>
>
| |
Bjarke Walling Peter~ (08-05-2001)
| Kommentar Fra : Bjarke Walling Peter~ |
Dato : 08-05-01 22:15 |
|
Kenneth Fuglsang <kenneth-fuglsang@pc.dk> skrev i en
nyhedsmeddelelse:9d9b9k$8kk$1@news.inet.tele.dk...
> Jeg tænkte på om man ikke kunne bruge en tabel
>
Det kan man godt, men så skal man sende e-mailen i html-format:
msg.HTMLBody="<table><tr><td> X </td><td> x </td></tr><tr><td> Y
</td><td> y </td></tr></table>"
Du kan jo også bare sende den i txt-format ved hjælp af tabulator:
msg.Body="X" & vbTab & "x" & vbCrLf & "Y" & vbTab & "y"
Den (måske) sidste mulighed er følgende:
msg.Body=Left("X" & Space(20),20) & "x" & vbCrLf & Left("Y" & Space(20),20)
& "y" & vbCrLf
.... den indsætter et antal mellemrum imellem kolonnerne. Den er bedst, hvis
alle tegnene er lige brede.
Hvis du sender i html-format, vil jeg anbefale at du også sender den i
normalt format. Dvs. du både sætter Body og HTMLBody....... ellers er der
måske nogle som ikke kan læse e-mailen.
- Bjarke Walling Petersen
> --
> Med Venlig Hilsen
> Webmaster
> Kenneth Fuglsang Christensen
> Kattegatsvej 17
> 9700 Brønderslev
> Tlf.: 98 82 21 12
> E-mail : kenneth-fuglsang@pc.dk
> "Kenneth Fuglsang" <kenneth-fuglsang@pc.dk> skrev i en meddelelse
> news:9d91ol$8l1$1@news.inet.tele.dk...
> > Hej
> >
> > hvordan kan output'et i emailen sættes pænt op sådan at det står f.eks
> sådan
> > her :
> > Navn : Kenneth Fuglsang
> > Adresse : 123
> >
> > med dette script :
> > ' Create the JMail message Object
> > set msg = Server.CreateOBject( "JMail.Message" )
> >
> > ' Set logging to true to ease any potential debugging
> > ' And set silent to true as we wish to handle our errors ourself
> > msg.Logging = true
> > msg.silent = true
> >
> > ' Most mailservers require a valid email address
> > ' for the sender
> > msg.From = "Kenneth-fuglsang@pc.dk"
> > msg.FromName = "The Complex"
> >
> > ' Next we have to add some recipients.
> > ' The addRecipients method can be used multiple times.
> > ' Also note how we skip the name the second time, it
> > ' is as you see optional to provide a name.
> > msg.AddRecipient "" & Request.Form("Email") & "", "" &
> Request.Form("Navn")
> > & ""
> >
> >
> > ' The subject of the message
> > msg.Subject = "Bordreservering hos The Complex"
> >
> >
> > '
> > ' Teksten i Emailen
> > msg.Body = "Hej " & Request.Form("Navn") & "" & vbCrLf & vbCrLf & "Du
har
> > reserveret bord nr. " & Request.Querystring("bord") & "" & vbCrLf & "Med
> > følgende oplysninger :" & vbCrLf & "Navn : " & Request.Form("Navn") &
""
> &
> > vbCrLf & "Nickname : " & Request.Form("Nickname") & "" & vbCrLf &
> "Adresse
> > : " & Request.Form("Adresse") & "" & vbCrLf & "Post nr. & By : " &
> > Request.Form("City") & "" & vbCrLf & "Tlf. nr.: " &
Request.Form("tlf")
> &
> > "" & vbCrLf & "E-mail : " & Request.Form("email") & "" & vbCrLf &
> > "Hjemmeside : " & Request.Form("hjemmeside") & ""
> >
> > msg.Send("smtp.mail.dk" )
> >
> > --
> > Med Venlig Hilsen
> > Webmaster
> > Kenneth Fuglsang Christensen
> > E-mail : kenneth-fuglsang@pc.dk
> >
> >
>
>
| |
|
|