Søg
Avatar billede emma-sofie Nybegynder
26. september 2003 - 16:07 Der er 6 kommentarer og
1 løsning

CDO til JMail - Er der nogen der kan ændre CDO til JMail

Hej Alle

Jeg har downloadet et script til at håndtere links, fra DuWare.com.  Alt virker perfekt, men scriptet er lavet til mailkomponenten CDO.

Mit webhotel er Struer.Net og de anvender JMail.

Er der nogle der kan hjælpe med at ændre nedenstående kode, således at scriptet kan anvende JMail i stedet for CDO ???
For en sikkerheds skyld, vedlægger jeg lige den kodestump det drejer sig om.

På forhånd mange mange tak for hjælpen  ;-)


  ' send email to admin
    Dim objCDO
    Set objCDO = Server.CreateObject("CDONTS.NewMail")
    objCDO.From = Request.Form("LINK_EMAIL")
    objCDO.To = myEmail
    objCDO.CC = Request.Form("LINK_EMAIL")
    objCDO.Subject = "New link has been submited"
    objCDO.Body = "A new link has been submited and needs to be approved." & vbnewline & "Link Name: " & Request.Form("LINK_NAME") & vbnewline & "Link URL: " & Request.Form("LINK_URL") & vbnewline & "Link Description: " & Request.Form("LINK_DESCRIPTION") & vbnewline & "Submited By: " & Request.Form("LINK_EMAIL")
    objCDO.Send()
    Set objCDO = Nothing
Avatar billede keysersoze Ekspert
26. september 2003 - 16:10 #1
prøv;

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "KENDER_DEN.IKKE.dk"
JMail.Priority = 1
JMail.Sender = Request.Form("LINK_EMAIL")
JMail.AddRecipientEx myEmail
Jmail.AddRecipientBCC Request.Form("LINK_EMAIL")
JMail.Subject = "New link has been submited"
JMail.Body = "A new link has been submited and needs to be approved." & vbnewline & "Link Name: " & Request.Form("LINK_NAME") & vbnewline & "Link URL: " & Request.Form("LINK_URL") & vbnewline & "Link Description: " & Request.Form("LINK_DESCRIPTION") & vbnewline & "Submited By: " & Request.Form("LINK_EMAIL")
JMail.Execute
Set JMail = Nothing
%>


KENDER_DEN.IKKE.dk skal bare skiftes ud med serveradress du har fået fra struernet
Avatar billede emma-sofie Nybegynder
26. september 2003 - 16:20 #2
Hej keysersoze

Jeg får følgende fejl:

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'AddRecipientEx'

/udvidelser/links/inc_submit.asp, line 175
Avatar billede emma-sofie Nybegynder
26. september 2003 - 16:22 #3
Jeg har lige et tillægsspørgsmål:
Den serveradresse jeg skal indsætte, er det ikke "pasmtp.tele.dk" som der er angivet på struer.net's side: http://www.struer.net/default.asp?catID=289
Avatar billede emma-sofie Nybegynder
26. september 2003 - 16:23 #4
...Skal jeg indsætte hele koden fra siden ??

Tak Tak
Avatar billede keysersoze Ekspert
26. september 2003 - 16:27 #5
godt - så prøv denne;

<%

set msg = Server.CreateOBject( "JMail.Message" )
msg.From = Request.Form("LINK_EMAIL")
msg.AddRecipient myEmail
msg.AddRecipient Request.Form("LINK_EMAIL")
msg.Subject = "New link has been submited"
msg.Body = "A new link has been submited and needs to be approved." & vbnewline & "Link Name: " & Request.Form("LINK_NAME") & vbnewline & "Link URL: " & Request.Form("LINK_URL") & vbnewline & "Link Description: " & Request.Form("LINK_DESCRIPTION") & vbnewline & "Submited By: " & Request.Form("LINK_EMAIL")
if not msg.Send("pasmtp.tele.dk") then
    Response.write "<pre>" & msg.log & "</pre>"
else
    Response.write "Message sent succesfully!"
end if

%>
Avatar billede emma-sofie Nybegynder
26. september 2003 - 21:54 #6
Hej Kejser Soze

Det virker perfekt, mange tak for hjælpen.

Hav en god week-end

;-)
Avatar billede keysersoze Ekspert
28. september 2003 - 00:15 #7
selvtak - og i lige måde :)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 I går 02:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:50 Slet lokal konto Af ErikHg i Windows
I går 16:05 Ændre tal i en celle Af xvid i Excel
I går 13:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
31/0810:26 Synkronisering af kalender mellem computer, android telefon og iPhone Af Strawberry i Andre onlineløsninger
31/0810:24 Kan Excel selv beregne alder? Af leahcim i Excel
White papers
Flere white papers »