---

Hej

Jeg har nu forsøgt, at få dette skrevet om til JMail, da min udbyder ikke
understytter ASPMail eller CDONTS
Med jeg kan ikke få det til at virke.

Jeg håber nogle ville være behjælplige, med den rigtig kode.

Venlig Hilsen Torben.


'use CDONTS to send mail
set Mailer = Server.CreateObject("CDONTS.NewMail")
mailer.From = merchantmail
Mailer.To = merchantmail
Mailer.Subject = "Håber det kommer til at virke"
Mailer.Body = strBody
Mailer.Send
if Err.number > 0 then
mailMerchant = false
else
mailMerchant = true
end if

'OR use ASPMail - choose your own
'Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
'Mailer.FromName = "TEST"
'Mailer.FromAddress = merchantmail
'Mailer.Subject = "Håber det kommer til at virke"
'Mailer.BodyText = strBody
'Mailer.RemoteHost = smtpServer

'Mailer.AddRecipient "", merchantmail
'if Mailer.SendMail then
' Message sent sucessfully
' mailMerchant = true
'else
' Message send failure
' mailMerchant = false
'end if
else
rs.Close
set rs = nothing
set cmd = nothing
mailMerchant = false
end if

---

On Thu, 21 Jun 2001 08:40:04 +0200, "Torben Hansen"
<Torben@hansen.net> wrote:

>Jeg har nu forsøgt, at få dette skrevet om til JMail, da min udbyder ikke
>understytter ASPMail eller CDONTS
>Med jeg kan ikke få det til at virke.
Prøv med:

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "smtpserver.dit-domæne.dk"
JMail.Sender = "dit-navn@dit-domæne.dk"
JMail.Subject = "Håber det kommer til at virke"
JMail.AddRecipient "dit-navn@dit-domæne.dk"
JMail.Body = strBody
If Not JMail.Execute Then
Response.Write "Der er sket en fejl!"
Else
Response.Write "beskeden er sendt"
End If
Set JMail = Nothing
%>

Husk ar rette linierne ServerAddress, Sender & AddRecipient. Bemærk at
der ikke er lighedstegn i den sidste!


/Goose
--
<URL:mailto:webmaster@goose.dk>
<URL:http://www.goose.dk>

---

"Torben Hansen" <Torben@hansen.net> skrev i en meddelelse
news:7DgY6.585$lf5.72563@news010.worldonline.dk...
> Hej
>
> Jeg har nu forsøgt, at få dette skrevet om til JMail, da min udbyder ikke
> understytter ASPMail eller CDONTS
> Med jeg kan ikke få det til at virke.
>
> Jeg håber nogle ville være behjælplige, med den rigtig kode.
>
> Venlig Hilsen Torben.
>
>
> 'use CDONTS to send mail
> set Mailer = Server.CreateObject("CDONTS.NewMail")
> mailer.From = merchantmail
> Mailer.To = merchantmail
> Mailer.Subject = "Håber det kommer til at virke"
> Mailer.Body = strBody
> Mailer.Send
> if Err.number > 0 then
> mailMerchant = false
> else
> mailMerchant = true
> end if
>
> 'OR use ASPMail - choose your own
> 'Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
> 'Mailer.FromName = "TEST"
> 'Mailer.FromAddress = merchantmail
> 'Mailer.Subject = "Håber det kommer til at virke"
> 'Mailer.BodyText = strBody
> 'Mailer.RemoteHost = smtpServer
>
> 'Mailer.AddRecipient "", merchantmail
> 'if Mailer.SendMail then
> ' Message sent sucessfully
> ' mailMerchant = true
> 'else
> ' Message send failure
> ' mailMerchant = false
> 'end if
> else
> rs.Close
> set rs = nothing
> set cmd = nothing
> mailMerchant = false
> end if
>
>