Avatar billede ttopholm Nybegynder
04. juli 2003 - 20:57 Der er 20 kommentarer og
1 løsning

Lave asp side og bagefter slette den

Jeg har en template på et velkomstbrev, hvor der skal sættes nogle dataer ind, som f.eks. navn og adresse, hvorefter den skal sende den som en vedhæftet fil i jmail.


kan det lade sig gøre eller forklare jeg det forkert....

eller er det lettere at lave et script der genere velkomst-filen, sender den og sletter filen bagefter
Avatar billede nielle Nybegynder
05. juli 2003 - 23:07 #1
Template = "Velkommen %Navn%," & vbCrLf & vbCrLf & _
          "Vi takker Dem for Deres inresse i vores produkt" & vbCrLf & vbCrLf & _
          "Vi vil snares fremsende vores brochure til adressen %Adresse%" & vbCrLf & vbCrLf & _
          "M.v.H. Os"

Brev = Template
Brev = Replace(Brev, "%Navn%", Navn)
Brev = Replace(Brev, "%Adresse%", Adresse)

JMail.Body = Brev
Avatar billede nielle Nybegynder
05. juli 2003 - 23:09 #2
...eller er det et krav at brevet *skal* sendes som attachment?
Avatar billede ttopholm Nybegynder
06. juli 2003 - 17:18 #3
JA vil meget gerne have det blev som en attachment
Avatar billede tuctoh Nybegynder
06. juli 2003 - 17:20 #4
hmm... du kan jo lave det med FSO; oprette filen med de data du vil have, gemme den med et navn, for eksempel dit sessionid, sende filen, og til sidst slette filen med FSO igen.
Avatar billede nielle Nybegynder
06. juli 2003 - 17:52 #5
' Lav brevet

Template = "Velkommen %Navn%," & vbCrLf & vbCrLf & _
          "Vi takker Dem for Deres inresse i vores produkt" & vbCrLf & vbCrLf & _
          "Vi vil snares fremsende vores brochure til adressen %Adresse%" & vbCrLf & vbCrLf & _
          "M.v.H. Os"

Brev = Template
Brev = Replace(Brev, "%Navn%", Navn)
Brev = Replace(Brev, "%Adresse%", Adresse)

' Gem brevet i en fil

AttachmentFil = "c:\brev.txt"  ' Skal rettes til alt efter om det er en Windows eller Linux maskien

dim fs, fname
set fs = Server.CreateObject("Scripting.FileSystemObject")
set fname = fs.CreateTextFile(AttachmentFil, true)
fname.WriteLine(Brev)
fname.Close
set fname = nothing

' Send brevet

set JMail = Server.CreateObject("JMAIL.SMTPMail")
JMail.ServerAddress = "SNTP serverems adresse"
JMail.SenderName = "Afsender"
JMail.Sender = "Afsenders email"
JMail.AddRecipient "Modtagers email"
JMail.Subject = "Vi takker Dem for Deres interesse"
JMail.Body = "Se vedlagte attchment"
JMail.Attachment AttachmentFil  ' Rettes
JMail.Execute
set JMail = nothing

' Slet filen

fs.DeleteFile(AttachmentFil)  ' Rettes
set fs = nothing
Avatar billede nielle Nybegynder
06. juli 2003 - 17:53 #6
Det kræver selvfølgeligt at du har skriveadgang til disken. Det er langt fra sikkert at scripts har lov til at skrive.
Avatar billede ttopholm Nybegynder
06. juli 2003 - 18:16 #7
og det kan selvfølgelig godt laves i html i stedet oppe i template ikke....
Avatar billede nielle Nybegynder
06. juli 2003 - 18:27 #8
Selvfølgelig.

Men du kan nu også sende HTML-mails direkte med:

JMail.HTMLBody = Brev

- ikke at jeg vil anbefale det.
Avatar billede ttopholm Nybegynder
06. juli 2003 - 18:37 #9
oki.... de der & vbCrLf &

hva står de for....
Avatar billede ttopholm Nybegynder
06. juli 2003 - 19:00 #10
Linjeskift tror jeg eller hva....
Avatar billede nielle Nybegynder
06. juli 2003 - 19:02 #11
Korrekt.
Avatar billede nielle Nybegynder
06. juli 2003 - 19:03 #12
Det er en Visual Basic kode for Carriage return + Line feed.
Avatar billede ttopholm Nybegynder
07. juli 2003 - 14:17 #13
i templaten kan jeg smide stylesheet ind i den uden det virker resten af asp-filen
Avatar billede nielle Nybegynder
07. juli 2003 - 15:18 #14
Du kan desværre ikke sende et stylesheet med som en separat fil; Dine styles skal ind som en del af templaten.

Nej, det skulle der ikke være noget problem med. Templaten er jo ganske almindelig tekst - det er ikke ASP kode. Det vil ikke indflyde på noget andet end hvordan din mail ser ud hos modtageren.
Avatar billede ttopholm Nybegynder
07. juli 2003 - 18:52 #15
man kan sagtens ligge templaten i en .inc fil ikke......
Avatar billede nielle Nybegynder
07. juli 2003 - 18:56 #16
Selvfølgelig.
Avatar billede nielle Nybegynder
07. juli 2003 - 18:59 #17
' Lav brevet

<!--#include file="template.inc"-->

Brev = Template
Brev = Replace(Brev, "%Navn%", Navn)
Brev = Replace(Brev, "%Adresse%", Adresse)

Og så template.inc:

Template = "Velkommen %Navn%," & vbCrLf & vbCrLf & _
          "Vi takker Dem for Deres interesse i vores produkt" & vbCrLf & vbCrLf & _
          "Vi vil snares fremsende vores brochure til adressen %Adresse%" & vbCrLf & vbCrLf & _
          "M.v.H. Os"
Avatar billede nielle Nybegynder
07. juli 2003 - 19:03 #18
...men du kan også have den i en almindelig tekst fil som du så indlæser:

Template = ""

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("template.htm"), 1)

do while not f.AtEndOfStream
  Tenplate = Template & f.ReadLine
loop

f.Close
Set f=Nothing
Set fs=Nothing

Brev = Template
Brev = Replace(Brev, "%Navn%", Navn)
Brev = Replace(Brev, "%Adresse%", Adresse)

...
Avatar billede ttopholm Nybegynder
07. juli 2003 - 21:25 #19
hvordan sætter man et linjeskift i en txt fil... da jeg ville sende den som body....
Avatar billede nielle Nybegynder
07. juli 2003 - 21:33 #20
vbCrLf
Avatar billede nielle Nybegynder
04. august 2003 - 21:40 #21
Lukketid?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester