Avatar billede gyfi Nybegynder
29. december 2003 - 19:49 Der er 10 kommentarer og
1 løsning

JMail / AspMail

Hei,

Kan noen hjelpe meg å legge inn rett kode slik at jeg kan bruke AspMAil i stedet for JMail eller CDONTS.

Jeg skal sende innholdet fra en butikkbestilling i en form gjennom "post". Skriptet fungerer fint men jeg får ikke sendt epost, siden skriptet ikke støtter AspMail, som min server støtter..

Her er koden fra send.asp
---------------
   
    if mail_component = "jmail" then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
          JMail.ServerAddress = mail_host & ":25"
          JMail.Sender = mail_sender
          JMail.Subject = mail_subject
          JMail.addrecipient mail_empfaenger           
        JMail.Body = mailText
        JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
        JMail.Execute
        Set JMail = nothing
        session.abandon
    else
Set Mailer = CreateObject("CDONTS.NewMail")
    Mailer.MailFormat = 0
    Mailer.BodyFormat = 1
    Mailer.From = mail_sender
    Mailer.To = mail_empfaenger
    Mailer.Subject = mail_subject
    Mailer.Body = mailText
    Mailer.Send
Set Mailer= Nothing    end if

end if
end if
--------------

Hvordan blir koden for å inkludere AspMAil?

I config.asp
defineres dette:

mail_host = "smtpgw.activeisp.com"
mail_sender = "min@mail.com"
mail_subject = "Bestilling"
mail_empfaenger = "min@mail.com"
Avatar billede ellebaek Nybegynder
29. december 2003 - 20:05 #1
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  Mailer.FromName  = "dit navn"
  Mailer.FromAddress= mail_sender
  Mailer.RemoteHost = mail_host
  Mailer.AddRecipient "til navn", mail_empfaenger
  Mailer.Subject    = mail_subject
  Mailer.BodyText  = mailText

if Mailer.sendmail then
response.write "afsendt"
else
response.write "Der skete en fejl: " & Mailer.Response
end if
Avatar billede thesurfer Nybegynder
29. december 2003 - 20:05 #2
Send e-mail med forskellige komponenter: http://www.opfinderen.dk/sites/?id=14
Avatar billede ellebaek Nybegynder
29. december 2003 - 20:07 #3
Og så kan du angive format og prioritet med:

'prioriteten: 1=høj, 3=normal/standard, 5=lav (valgfrit)
Mailer.Priority = 3

'tekstformatet: text/plain (standard), text/html (valgfrit)
Mailer.ContentType = "text/plain"

'mailformatet: 1=US ASCII, 2=ISO-8859-1/standard (valgfrit)
mailer.CharSet = 2
Avatar billede thesurfer Nybegynder
29. december 2003 - 20:17 #4
Godt jeg fik det link med :)
Avatar billede gyfi Nybegynder
29. december 2003 - 20:24 #5
Jeg har lagt inn koden, og nå få jeg mail :-)

Men dessverre ikke meg innholdet i skjemaet som fylles ut.
Jeg har nå endret slik:
if mail_component = "aspmail" then
Set AspMail = Server.CreateObject("SMTPsvg.Mailer")
AspMail.FromName = "mail_sender"
AspMail.FromAddress = "mail_sender"
AspMail.AddRecipient "Modtagers navn", "mail_empfaenger"
AspMail.Subject = "Bestilling"
AspMail.BodyText = "mailText"

'Mailserver
AspMail.RemoteHost = "smtpgw.activeisp.com"

AspMail.AddCC "Modtager2s navn", "min mail"
AspMail.AddBCC "Modtager3s navn", "min mail"

----
Det ser ikke ut som jeg får hentet opp innholdet i skjemaet (form) som sendes via "post"
??

Men det fungerer fint å sende mailen, men altså uten innholdet.
Avatar billede ellebaek Nybegynder
29. december 2003 - 20:25 #6
if mail_component = "aspmail" then
Set AspMail = Server.CreateObject("SMTPsvg.Mailer")
AspMail.FromName = "mail_sender"
AspMail.FromAddress = "mail_sender"
AspMail.AddRecipient "Modtagers navn", mail_empfaenger
AspMail.Subject = "Bestilling"
AspMail.BodyText = "mailText"
Avatar billede ellebaek Nybegynder
29. december 2003 - 20:25 #7
Ups...

if mail_component = "aspmail" then
Set AspMail = Server.CreateObject("SMTPsvg.Mailer")
AspMail.FromName = "mail_sender"
AspMail.FromAddress = "mail_sender"
AspMail.AddRecipient "Modtagers navn", mail_empfaenger
AspMail.Subject = "Bestilling"
AspMail.BodyText = mailText
Avatar billede ellebaek Nybegynder
29. december 2003 - 20:28 #8
når du var variable defineret i forvejen, som strenge, og så henviser til dem, så skal du ikke have " omkring...

Og reciepients er defineret som:

addReciepient "navn", "email"
Avatar billede ellebaek Nybegynder
29. december 2003 - 20:31 #9
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
  Mailer.FromName  = "dit navn"
  Mailer.FromAddress= mail_sender
  Mailer.RemoteHost = mail_host
  Mailer.AddRecipient "modtagers navn", mail_empfaenger
  Mailer.Subject    = mail_subject
  Mailer.BodyText  = mailText

if Mailer.sendmail then
response.write "afsendt"
else
response.write "Der skete en fejl: " & Mailer.Response
end if

Jeg tror det jeg skrev som svar til at starte med virker.
Avatar billede gyfi Nybegynder
29. december 2003 - 20:37 #10
Tusen takk :-)
Det fungerer!
Avatar billede ellebaek Nybegynder
29. december 2003 - 20:38 #11
Anytime.
Takker for points..

..Ellebæk!
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