Søg
Avatar billede tidsrejse-frede Nybegynder
27. maj 2002 - 19:25 Der er 24 kommentarer og
2 løsninger

CDO => Jmail

Hej Eksperter!
Er der én som kan oversætte følgene CDO til Jmail???
-----------------------------------------------------
Dim eCDO
Set eCDO = Server.CreateObject("CDONTS.NewMail")

eCDO.To = zEmail
eCDO.From = mFrom
eCDO.bcc = mbcc
eCDO.Subject = mSubject
eCDO.Body = mBody
eCDO.Send

Set eCDO = Nothing
Avatar billede ameq Nybegynder
27. maj 2002 - 19:28 #1
http://tech.dimac.net/websites/dimac/website/products/w3JMail <- Alt om jMail står der
Avatar billede ameq Nybegynder
27. maj 2002 - 19:28 #2
og det var et svar =)
Avatar billede medions Nybegynder
27. maj 2002 - 19:28 #3
Well, brug denne skabalon:

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.domain.dk"
JMail.Priority = 1
JMail.Sender = "afsender@email.adr"
JMail.AddRecipientEx "modtager@email.adr", "Modtagers navn"
Jmail.AddRecipientCC "andenmodtager@email.adr"
Jmail.AddRecipientBCC "skjultmodtager@email.adr"
JMail.Subject = "Dette er emne linien.."
JMail.Body = "Her skriver du din besked..."
JMail.Execute
Set JMail = Nothing
%>

//>Rune
Avatar billede medions Nybegynder
27. maj 2002 - 19:29 #4
men ellers  er det sådan her:

JMail.Sender = mFrom
JMail.AddRecipientEx zMail
Jmail.AddRecipientCC mbcc
JMail.Subject = mSubject
JMail.Body = mBody

//>Rune
Avatar billede medions Nybegynder
27. maj 2002 - 19:30 #5
Altså alt i alt:

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.Sender = mFrom
JMail.AddRecipientEx zMail
Jmail.AddRecipientCC mbcc
JMail.Subject = mSubject
JMail.Body = mBody
JMail.Execute
Set JMail = Nothing
%>

//>Rune
Avatar billede tmceu Praktikant
27. maj 2002 - 19:53 #6
Vær lige opmærksom på, at der er syntaksforskelle mellem JMail 3 og 4, hvoraf den vigtigste er, at du skal bruge Server.CreateOBject("JMail.Message") i stedet for "JMail.SMTPMail"
Avatar billede tidsrejse-frede Nybegynder
27. maj 2002 - 20:10 #7
Jeg prøver lige igen, da jeg ikke fik det hele med...

Koden ser således ud:
--------------------------------------------------------------------------
Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

if zDisplay1 = "Yes" then

response.write("Mailen er blevet sendt til:<br><br>" & mbcc )

end if

Dim eCDO
Set eCDO = Server.CreateObject("CDONTS.NewMail")

eCDO.To = zEmail
eCDO.From = mFrom
eCDO.bcc = mbcc
eCDO.Subject = mSubject
eCDO.Body = mBody
eCDO.Send

Set eCDO = Nothing
Avatar billede tidsrejse-frede Nybegynder
27. maj 2002 - 20:16 #8
Det er en asp-form til et newsletter. Når jeg trykker send, skulle den gerne udføre ovenstående handlinger, men min server understøtter ikke CDO, så det bliver i JMail...
Avatar billede tidsrejse-frede Nybegynder
27. maj 2002 - 20:33 #9
Slet ingen??
Avatar billede medions Nybegynder
27. maj 2002 - 20:40 #10
Jeg prøver lige igen, da jeg ikke fik det hele med...

Koden ser således ud:
--------------------------------------------------------------------------
Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

if zDisplay1 = "Yes" then

response.write("Mailen er blevet sendt til:<br><br>" & mbcc )

end if

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.Sender = mFrom
JMail.AddRecipientEx zMail
Jmail.AddRecipientCC mbcc
JMail.Subject = mSubject
JMail.Body = mBody
JMail.Execute
Set JMail = Nothing
%>

//>Rune
Avatar billede tidsrejse-frede Nybegynder
27. maj 2002 - 20:52 #11
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0411'

Navnet er omdefineret

/AW/mailist/SpawnedMailerSend.asp, linje 18

Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
Avatar billede tidsrejse-frede Nybegynder
27. maj 2002 - 20:53 #12
Glemte sidste linie... Prøver lige igen...
...............................................................
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0411'

Navnet er omdefineret

/AW/mailist/SpawnedMailerSend.asp, linje 18

Dim mFrom,mTo,mSubject,mbcc,mBody,mArchive
----^
Avatar billede medions Nybegynder
27. maj 2002 - 20:54 #13
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

if zDisplay1 = "Yes" then

response.write("Mailen er blevet sendt til:<br><br>" & mbcc )

end if

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.Sender = mFrom
JMail.AddRecipientEx zMail
Jmail.AddRecipientCC mbcc
JMail.Subject = mSubject
JMail.Body = mBody
JMail.Execute
Set JMail = Nothing
%>

//>Rune
Avatar billede tidsrejse-frede Nybegynder
27. maj 2002 - 20:59 #14
Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01c2'

Antallet af argumenter er forkert eller egenskabstildelingen er ugyldig: 'AddRecipientEx'

/AW/mailist/SpawnedMailerSend.asp, linje 20
Avatar billede medions Nybegynder
27. maj 2002 - 21:01 #15
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

if zDisplay1 = "Yes" then

response.write("Mailen er blevet sendt til:<br><br>" & mbcc )

end if

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.Sender = mFrom
JMail.AddRecipientEx zMail, "Fra din hjemmeside!"
Jmail.AddRecipientCC mbcc
JMail.Subject = mSubject
JMail.Body = mBody
JMail.Execute
Set JMail = Nothing
%>

//>Rune
Avatar billede tidsrejse-frede Nybegynder
27. maj 2002 - 21:05 #16
Hvad mener du med "Fra din hjemmeside!"???
Avatar billede medions Nybegynder
27. maj 2002 - 21:06 #17
Det er hvad der kommer til at stå! -som modtagerens navn :-)

//>Rune
Avatar billede tidsrejse-frede Nybegynder
27. maj 2002 - 21:07 #18
Jej prøver...
Avatar billede medions Nybegynder
27. maj 2002 - 21:10 #19
:-)

//>Rune
Avatar billede tidsrejse-frede Nybegynder
27. maj 2002 - 21:10 #20
Microsoft JET Database Engine fejl '80040e14'

Der er en syntaksfejl i INSERT INTO-sætningen.

/AW/mailist/SpawnedMailerSend.asp, linje 35
---------------------------------------------
Altså denne linie:
---------------------------------------------
conn.Execute ArchiveSQL
Avatar billede tidsrejse-frede Nybegynder
27. maj 2002 - 21:14 #21
Kan jeg ikke få din e-mailadresse??
Så kan jeg sende dig hele skidtet...
Avatar billede medions Nybegynder
27. maj 2002 - 21:20 #22
den har jo ikke noget at gøre med din Jmail sender!

Har du ik' ICQ istedet for?

//>Rune
Avatar billede tidsrejse-frede Nybegynder
27. maj 2002 - 21:21 #23
Jo...
127879622
Avatar billede medions Nybegynder
27. maj 2002 - 21:33 #24
<!--#include file ="SpawnedHead.asp"--><center><%

mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

if zDisplay1 = "Yes" then

response.write("Mailen er blevet sendt til:<br><br>" & mbcc )

end if

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.Sender = mFrom
JMail.AddRecipientEx zMail, "Astronomy Websites Nyhedsbrev!"
Jmail.AddRecipientCC mbcc
JMail.Subject = mSubject
JMail.Body = mBody
JMail.Execute
Set JMail = Nothing





set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("SpawnedMailer.mdb"))

ConvertmSubject = Replace(mSubject, "'", "''")
ConvertmBody = Replace(mBody, "'", "''")
ArchiveSQL = "INSERT into Archive ('" & ConvertmSubject & "','" & ConvertmBody & "');"
conn.Execute ArchiveSQL
response.write("<br><br><br>Data gemt!<br><br>")

conn.close


response.write("<br><br><br><center><a href='AdminIndex.asp'>Tilbage</a><center>")

%></center><!--#include file ="SpawnedFoot.asp"-->

//>Rune
Avatar billede medions Nybegynder
27. maj 2002 - 21:55 #25
<!--#include file ="SpawnedHead.asp"--><center><%

mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

if zDisplay1 = "Yes" then

response.write("Mailen er blevet sendt til:<br><br>" & mbcc )

end if

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.Sender = mFrom
JMail.AddRecipientEx zMail, "Astronomy Websites Nyhedsbrev!"
Jmail.AddRecipientCC mbcc
JMail.Subject = mSubject
JMail.Body = mBody
JMail.Execute
Set JMail = Nothing

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("SpawnedMailer.mdb"))

ConvertmSubject = Replace(mSubject, "'", "''")
ConvertmBody = Replace(mBody, "'", "''")
ArchiveSQL = "INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES ('" & ConvertmSubject & "','" & ConvertmBody & "');"
conn.Execute ArchiveSQL
response.write("<br><br><br>Data gemt!<br><br>")

conn.close


response.write("<br><br><br><center><a href='AdminIndex.asp'>Tilbage</a><center>")

%></center><!--#include file ="SpawnedFoot.asp"-->

//>Rune
Avatar billede medions Nybegynder
27. maj 2002 - 22:08 #26
<!--#include file ="SpawnedHead.asp"--><center><%

mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")

if zDisplay1 = "Yes" then

response.write("Mailen er blevet sendt til:<br><br>" & mbcc )

end if

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.Sender = mFrom
JMail.AddRecipientEx zMail, "Astronomy Websites Nyhedsbrev!"
Jmail.AddRecipientCC mbcc
JMail.Subject = mSubject
JMail.Body = mBody
JMail.Execute
Set JMail = Nothing

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("SpawnedMailer.mdb"))

'ConvertmSubject = Replace(mSubject, "'", "''")
'ConvertmBody = Replace(mBody, "'", "''")
'ArchiveSQL = "INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES ('" & ConvertmSubject & "','" & ConvertmBody & "');"
'conn.Execute ArchiveSQL
'response.write("<br><br><br>Data gemt!<br><br>")
Response.Write(Len(mBody))

conn.close


response.write("<br><br><br><center><a href='AdminIndex.asp'>Tilbage</a><center>")

%></center><!--#include file ="SpawnedFoot.asp"-->

//>Rune
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
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602: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
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 19:20 Hvor kan man finde en god bærbar computer? Af Strawberry i PC
I går 15:45 lukke sikkerhedshuller Af Asky i PHP
21/1018:38 Værktøj til redigering af hjemmeside på android tablet Af Lisbet 80 i Apps til Android
20/1014:59 Fejl ved forsøg på åbning af Access mdb og mde Databaser Af Uvanga i Access
19/1014:58 Scanner program til PC Af fjorbak i Andet software
White papers
Flere white papers »