modtager mail system

Dvs, mailen ser sådan ud? (eksempel):

123
456
789
tekst der hører til 123
tekst der hører til 456
tekst der hører til 789

jeg sender via dette script. .

set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = "svar-ikke@smsgw.dk"
msg.FromName = "SMS"
msg.AddRecipient "sms@smsgw.dk"
msg.Subject = "brugernavn:adgangskode"

body = "#20101010"& vbCRLF
body = body &"#20303030"& vbCRLF
' Indsæt flere numre hvis nødvendigt

body = body & "En lille hilsen fra..."

msg.body = body

if not msg.Send("smtp.wannafind.dk") then
    Response.Write "Mailen kunne ikke afsendes grundet:"
    Response.Write msg.log
end if


mening er at jeg skal have data sådan her..

20101010 > En lille hilsen fra...
20303030 > En lille hilsen fra...

Du har ikke svaret på 04/08-2006 00:38:39 :-)

Læs lige indlægget igen, og svar på spørgsmålet.. hvis du ikke forstår spørgsmålet, skal du lige sige til, så jeg kan omformulere det..

Til jeg forstår ikke hvad du mender..

#12345678 "#87654321 En lille hilsen fra...

Sådan ser mail ud. !!! hvis jeg har forsåde dig !!!

minus "

Eksempel:

set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = "svar-ikke@smsgw.dk"
msg.FromName = "SMS"
msg.AddRecipient "sms@smsgw.dk"
msg.Subject = "brugernavn:adgangskode"

body = "#20101010"& vbCRLF
body = body &"#20303030"& vbCRLF
' Indsæt flere numre hvis nødvendigt

body = body & "En lille hilsen fra..."

dim arrBeskedDele, BeskedTekst, i
arrBeskedDele = split(body, vbCRLF)
BeskedTekst = arrBeskedDele(ubound(arrBeskedDele))

body = ""
for i = 0 to ubound(arrBeskedDele)
    if i <> ubound(arrBeskedDele) then
        arrBeskedDele(i) = replace(arrBeskedDele(i), "#", "")
        body = body & arrBeskedDele(i) & "> " & BeskedTekst & vbCRLF
    end if
next

msg.body = body

if not msg.Send("smtp.wannafind.dk") then
    Response.Write "Mailen kunne ikke afsendes grundet:"
    Response.Write msg.log
end if

Jeg går ud fra, at det er et SMS-system, der sender samme besked til flere modtager..?

Jeg smider lige et svar, da det er en mulig løsning.

Du har ret at det er til et sms system, jeg er ved at kode den del som skal kun modtage en mail og sende den ud via vores gateway.

så jeg kan ikke helt se mening i din kode.

Jeg går ud fra, at jeres gateway forventer et bestemt format..
Nemlig: nummer > besked

Min kode tager det du har der, og sætter det op på korrekt format.

Jeg går ud fra, at du bruger Request.Form til at aflæse mobilnumre og beskeden..
f.eks.
nummer1 = Request.Form("nummer1")
nummer2 = Request.Form("nummer2")
nummer3 = Request.Form("nummer3")
nummer4 = Request.Form("nummer4")

besked = Request.Form("besked")

osv..
Det er bare et eksempel, og er ikke et 100% præcist gæt.. :-)

Virker ikke den laver lort i den som før..

Hele min kode ser sådan ud.

if pop3.count > 0 then
    for m = 1 to pop3.count
        Set msg = pop3.Messages.item(m)
        if InStr(msg.Subject,":") > 0 then
            'Her deler vi vores data
            SubjectTxt = split(msg.Subject,":")
            strUser = SubjectTxt(0)
            strPass = SubjectTxt(1)
            Set GateRS = Conn.Execute("SELECT customer.*, gateway.* FROM customer, gateway where customer.CustomerID=gateway.CustomerID and gateway.GatewayStastus='Unlock' and customer.SysUsername='" & strUser & "' and gateway.Gatewaypass='" & strPass & "' and customer.SysStastus='Unlock'")
            if Not GateRS.Eof then
                set TotalEnhederRs = Conn.execute("SELECT SUM(Enheder) AS total FROM gatewayenhed where Gatewayid=" & int(GateRS("Gatewayid")) & "")
                if int(FormatNumber(TotalEnhederRs("Total"),0)-1) => 0 then
                    datastr = Split(msg.Body, vbCRLF)
                    BeskedTekst = datastr(ubound(datastr))

                    For w = LBound(datastr) To UBound(datastr)
                        if W < UBound(datastr) then
                            Response.write datastr(w) & ":" & Mid(BeskedTekst, 1, 160) & ":"
                        end if

                    next
                end if
                pop3.deletesinglemessage m
            else
                'Konto finde ikke og mail slettes.
                pop3.deletesinglemessage m
            end if
        end if
    next
else
    Response.write pop3.count
end if
pop3.Disconnect


Lige nu ønsker jeg bare at jeg få min data ud med telefon og besked, sådan at jeg kan senden min besked vider til min gateway.

Forresten:
Den kode du har der, er den del der *sender* mailen, og ikke den der vil "modtage en mail og sende den ud via vores gateway"..

Det ved jeg godt. jeg sage jeg efter lyser nåde modtager koder.

men den kode jeg har smit ud her er en der gå ind og læser min mail konto, og mening er den skal senden dem ud via gateway.

Oversigt:

Del_1: brugeren indtaster nummer og besked via en form som sendes til Del_2

Del_2: serveren modtager brugerens nummer og besked. Disse oplysninger sættes op på et bestem format (nemlig: "nummer > besked"), og sender dem til din mail konto, hvilket er Del_3

Del_3: et script (?) checker din konto, for at se om der er nye mails, med numre og beskeder som den skal sende ud

Er det korrekt?

ja. og det er del_3 jeg søger kode til. da den kode jeg har fucker op. i nåde den ikke skal. .

Hvordan ser mailen ud, når den kommer over til Del_3?

sådan
-- Mail´s body ---
#60629711
#60629711
En lille hilsen fra...
-- Slut ----

Hmm.. så burde denne her kode jo virke, hvis det er "nummer > besked":

dim arrBeskedDele, BeskedTekst, i
arrBeskedDele = split(body, vbCRLF)
BeskedTekst = arrBeskedDele(ubound(arrBeskedDele))

body = ""
for i = 0 to ubound(arrBeskedDele)
    if i <> ubound(arrBeskedDele) then
        arrBeskedDele(i) = replace(arrBeskedDele(i), "#", "")
        body = body & arrBeskedDele(i) & "> " & BeskedTekst & vbCRLF
    end if
next

Hvis det ikke virker sådan, er det måske fordi du har angivet forkert format.. :-)

angivet = opgivet.. dvs, det eksempel i 04/08-2006 01:10:31..

Men der er jo ":" i dit spørgsmål og i 04/08-2006 21:10:09

Hvilket format skal det være?

mening er at jeg skal have dem ud sådan at jeg kan senden data via

TLF BESKED
20101010 > En lille hilsen fra...
20303030 > En lille hilsen fra...

Så jeg kan senden hver line ud.

Når jeg bruger dit script
arrBeskedDele = split(body, vbCRLF)
BeskedTekst = arrBeskedDele(ubound(arrBeskedDele))

body = ""
for i = 0 to ubound(arrBeskedDele)
    if i <> ubound(arrBeskedDele) then
        arrBeskedDele(i) = replace(arrBeskedDele(i), "#", "")
        Response.write int(i+1) & ". " & arrBeskedDele(i) & " > " & BeskedTekst & vbCRLF
    end if
next

for sig selv virker det som det skal men når jeg så sætter det ind i mit script virker det ikke så får jeg en anden måde frem

1. > 2. 20101010 > 3. 20303030 > 4. En lille hilsen fra... > 5. > 6. >

men den skulle se sådan ud..

1. 20101010 > En lille hilsen fra... 2. 20303030 > En lille hilsen fra...

Jeg tror altså at problemet ligger i Del_2 fra 04/08-2006 21:27:07.
Koden 04/08-2006 23:12:28 er den del, der sætter formatet op, før den sendes til Del_3, som er 04/08-2006 21:10:09.

1) Hvis du kigger på koden til Del_2, sættes formatet til "nummer > besked"
2) Hvis du kigger på koden til Del_3, checkes der om linien indeholder ":"

Checket i punkt 2 vil aldrig være sand, fordi formatet "nummer > besked" ikke indeholder ":"-

Udtræk fra Del_3:

        if InStr(msg.Subject,":") > 0 then
            'Her deler vi vores data

            else
                'Konto finde ikke og mail slettes.
                pop3.deletesinglemessage m
            end if

Da ":" ikke indgår i "nummer > besked", vil den altid gå ned til "'Konto finde ikke og mail slettes."..

Grunde til det er brugernavn og koderord. og det virker som det skal.

Ahhh... ja.. der står jo subject.. :-)

Jeg kigger lige videre..

Prøv at erstatte linie

                            Response.write datastr(w) & ":" & Mid(BeskedTekst, 1, 160) & ":"

med denne linie:

                            Response.write datastr(w) & " > " & Mid(BeskedTekst, 1, 160) & vbCrLf

ja nu ved jeg ikke hvad der sker men nu er der opståde en fejl.

De burde komme på hver deres linie.. hvis de ikke gør det, erstat "vbCrLf" med "<br>".

Kopier hele fejlmeddelelsen ind i dette spørgsmål.. der er ingen grund til at jeg skal sidde og prøve på at gætte, hvilken fejl du fik.. :-)

fandt fejl. nu kommer det til at se sådan ud > 60629711 > 60629711 > En lille hilsen fra... > > >

Når jeg bruger "vbCrLf", får jeg HTML udskriften:
#60629711 > En lille hilsen fra... #60629711 > En lille hilsen fra...

Når jeg bruger "<br>", får jeg HTML udskriften:
#60629711 > En lille hilsen fra...
#60629711 > En lille hilsen fra...

Læs lige 04/08-2006 23:57:17 igen.. :-)

Hvordan er det lige, at du ser om den viser det på 1 linie, eller flere linier?

Er det via en mail eller via en browser?

Begge kan vise HTML layout.. hvis de gør det, skal du bruge "<br>" for at kunne se linieskift..

Men hvis det er scriptet, der skal arbejde med det, skal det være "vbCrLf"..

"<br>" er kun for at vi kan se, om det virker eller ej..

Ja jeg kan kun få det til at virker når jeg ikke bruger mit JMail.POP3 men bare fortæller den hvad string er.

nu har jeg lige prøve med dette script

if pop3.count > 0 then
    for m = 1 to pop3.count
        Set msg = pop3.Messages.item(m)
        arrBeskedDele = split(msg.Body, "<br>")
        BeskedTekst = arrBeskedDele(ubound(arrBeskedDele))

        Response.write BeskedTekst
    next
else
    Response.write "Ingen"
end if

mening var at den kun skulle give mig text men jeg får hele string. og retter jeg så  "<br>" til vbCRLF får jeg ingen ting.

har du skype eller nåde det her er ved at være en meget lang forum. !!!

Prøv det her:

if pop3.count > 0 then
    for m = 1 to pop3.count
        Set msg = pop3.Messages.item(m)
        response.write msg.Body & "<hr>"
    next
else
    Response.write "Ingen"
end if

- Hvad får skriver den så?


Ang Skype eller noget:
Nej. Jeg foretrækker at løse eksperten-relatede spørgsmål på eksperten.dk .. :-)

så ser den sådan ud.

#60629711
#60629711
En lille hilsen fra...


<hr>

Der har du problemet..
Der er 2 tomme linier efter teksten.. det er der det går galt..

Jeg tænkte faktisk på det her, men du overbeviste mig at det ikke var sådan, i 04/08-2006 22:27:18

Jeg laver lige en ekstra loop, der fjerner de tomme linier..

ok..

Sådan:

' --------- fjerner tomme linier -------
dim tmpBody, i
tmpBody = split(body, vbCrLf)

body = ""

' fjern tomme linier:
for i = Lbound(tmpBody) to UBound(tmpBody)
    if len(tmpBody(i)) > 0 then body = body & tmpBody(i) & vbCrLf
next
body = left(body, len(body) - 2)

' --------- fjerner tomme linier -------


                    datastr = Split(body, vbCRLF)
                    BeskedTekst = datastr(ubound(datastr))

                    For w = LBound(datastr) To UBound(datastr)
                        if W < UBound(datastr) then
                            Response.write datastr(w) & " > " & Mid(BeskedTekst, 1, 160) & vbCrLf
                        end if

                    next


Igen skal du lige huske det med "<br>" og vbCrLf..

"body" skal lige erstattes af "msg.Body" her:

                    datastr = Split(body, vbCRLF)

Jeg har jo ikke mail-komponenten installeret, så jeg bruger bare nogle variabler..

Jubii det virker. !!! smide et svar du stor mester. !!!

OK :-)

Takker for points :-)