Avatar billede webbe Nybegynder
08. marts 2005 - 13:18 Der er 3 kommentarer og
1 løsning

Problemer med JMail

Hejsa

Jeg bruger følgende kode til at sende en besked til mig selv, når en bruger bestiller via en hjemmeside:

<%
    strFirma = Request.Form("c_name") & VbCrLf
    strNavn = Request.Form("c_cont") & VbCrLf
    strAdr = Request.form("c_adr") & VbCrLf
    strZip = request.form("c_zip") & VbCrLf
    strCity = request.form("c_city") & VbCrLf
    strTlf1 = "Tlf 1: " & request.form("c_tlf1") & VbCrLf
    strTlf2 = "Tlf 2: " & request.form("c_tlf2") & VbCrLf
    strMail = "Email: " & Request.Form("c_mail") & VbCrLf
    strCVR = "SE/CVR-nr.: " & request.form("c_cvr") & VbCrLf & VbCrLf
    if request.form("add_radio") = "st_add" then
        strAddType = "Standard annonce" & VbCrLf & VbCrLf
    else
        strAddType = "Mini-annonce" & VbCrLf & VbCrLf
    end if
    if request.form("atype") = 1 then
        strAddAdd = "Super" & VbCrLf
    else
        if request.form("atype") = 2 then
            strAddAdd = "Udvidet" & VbCrLf
        else
            if request.form("atype") = 5 then
                strAddAdd = "Ingen" & VbCrLf
            end if
        end if
    end if
    if request.form("mini_site") = "on" then
        strMiniSite = "Ja" & VbCrLf
    else
        strMiniSite = "Nej" & VbCrLf
    end if
    if request.form("banner_add") = 1 then
        strBanner = "Ja - leverer selv" & VbCrLf
    else
        if request.form("banner_add") = 2 then
            strBanner = "Ja - ønsker design" & VbCrLf
        else
            if request.form("banner_add") = 3 then
                strBanner = "Nej tak" & VbCrLf
            end if
        end if
    end if
    strSubject = "Bestilling af annnonce på Start-firma.dk"
    strMsg1 = "Der er d. "& FormatDateTime(Date(),2) &" sendt en bestilling på en annnonce via Start-firma.dk" & VbCrLf & VbCRLf
    strMsg2 = "Kundedata:" & VbCrLf & VbCrLf
    strMsg3 = "Følgende produkt er bestilt:" & VbCrLf & VbCrLf
    strMsg4 = "Følgende tillægsprodukter er bestilt:" & VbCrLf & VbCrLf
    strRecipient = "ml@eyesee.dk"
    Set msg = Server.CreateObject("JMail.Message")
    msg.Logging = True
    msg.Silent = True
   
    msg.From = strMail
    msg.FromName = strFirma & " - " & strNavn
    msg.AddRecipient strRecipient
    msg.Subject = "Start-firma.dk - " & strSubject
    msg.Body = strMsg1 & strMsg2 & strFirma & strNavn & strAdr & strZip & " " & strCity
    msg.Body = msg.Body & strTlf1 & strTlf2 & strMail & strCVR  & VbCrLf & VbCrLf
    msg.Body = msg.Body & strMsg3 & strAddType & strMsg4 & "Placeringstilkøb: " & strAddAdd
    msg.Body = msg.Body & "Mini-site: " & strMiniSite & "Banner-reklame: " & strBanner
   
    If Not msg.Send("srvsmtp.struer.net") Then
    %>
        <script language="javascript">
            document.location.href='support.asp';
            alert("Der opstod en fejl under afsendelse af din bestilling!\nPrøv igen senere.")
        </script>
    <%
    Else
    %>
        <script language="javascript">
            document.location.href='support.asp';
            alert("Din bestilling er sendt!")
        </script>
    <%
    End if
   
    Set JMail = Nothing
    %>

Problemet er bare at den ikke sender mailen til mig og jeg har ikke haft problemer før.

Nogen der kan se en fejl i ovenstående der gør at jeg ryger ind i fejlen?
Avatar billede para7 Nybegynder
08. marts 2005 - 13:42 #1
Prøv at skrive sådan istedet:

Set msg = Server.CreateObject("JMail.SMTPMail")
    msg.Logging = True
    msg.Silent = True
   
    msg.Sender = strMail
    msg.SenderName = strFirma & " - " & strNavn
Avatar billede para7 Nybegynder
08. marts 2005 - 13:43 #2
Altså samme antal linjer, men ovenstående er ændrede og indsættet i stedet.
Avatar billede webbe Nybegynder
08. marts 2005 - 13:47 #3
Giver følgende fejl:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'msg.Send'

/startfirma/www/buy_add.asp, line 62
Avatar billede webbe Nybegynder
08. marts 2005 - 15:03 #4
fandt sq selv løsningen....

mine variabler må åbenbart ikke indeholde koden for linieskift - de skal laves i msg.Body
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