Använda Jmail

JMail ÄR en mailkomponent som man installerar på servern.
Det ska gå finfint att köra på Windows XP.

Dimac är de som är skyldiga till JMail, och de finns på http://www.dimac.net/ .

Mvh

Vilken av de filer som finns på sidan är det jag ska ha?

Mvh

Melea skrev:

Vilken av de filer som finns på sidan är det jag ska ha?

Mvh

Den. :)

De tackar jag för :)

Mvh

Fick ett litet problem nu när jag skulle testköra komponenten.

smtpServer = "mitt ip?"
smtpPort = nummer?
mail.ServerAddress = smtpServer & ":" & smtpPort

Om jag nu skriver mitt IP får jag: The message was undeliverable. All servers failed to receive the message... Jag prövade en

Set mail = CreateObject ("JMail.SMTPMail") 
On Error Resume Next
mail.Logging = true
[b]mailkod[/b]
Response.write mail.Log
Response.End

Men det står ingenting där, vad ska jag göra?

Kan som sagt ingenting alls om JMail och har försökt att lösa det genom att söka i forumet men har inte fått något direkt svar.

Hoppas någon har tid att hjälpa mig med detta
Tack på förhand
Mvh

Kanske går bättre såhär?

Set objMail = Server.CreateObject("JMail.Message")
objMail.Logging = True

objMail.From = "din@mail.com"
objMail.AddRecipent "annans@mail.com"
objMail.Subject = "blabla"
objMail.Body = "hejhej"

If objMail.Send("Din IP?") Then
  Response.Write("Funkade bra!")
Else
  Response.Write(objMail.Log)
End If

Set objMail = Nothing

Jag får fortfarande:
Feltyp:
jmail.SMTPMail (0x8000FFFF)
The message was undeliverable. All servers failed to receive the message

Såhär ser koden ut

<%
dim sender, subject, body, smtpServer, smtpPort

smtpServer = "111.111.111.111" 'mitt ip nummer
smtpPort = 25

sender = Request.Form("sender")
receiver = "hejsan.hej@hej.com" 'min emailadress
subject = Request.Form("subject")
body = Request.Form("body")

Set mail = CreateObject ("JMail.SMTPMail") 

mail.ServerAddress = smtpServer & ":" & smtpPort
mail.Sender = sender
mail.Subject = subject
mail.AddRecipient receiver
mail.ContentType = "text/html"
mail.ISOEncodeHeaders = false 
mail.ContentTransferEncoding = "8bit"
mail.Body = body

mail.Execute 
Set Mail = Nothing

Session("fel") = "meddelandet är nu skickat"
Response.Redirect "../admin.asp?visa=inloggad"
%>

Tack på förhand

Mvh

Den koden du använder ser ut som koden man använder för v3.7 av JMail. Det är säkert bättre att använda den koden jag skrev tidigare.
Felet kan kanske bero på att smtp-servern på datorn är felaktigt inställd?

Har du kollat att SMTP-server är igång?

Hehe, vet ärligt talat inte hur jag gör detta eftersom jag aldrig kört JMail innan, har bara installerat komponenten.

Tacksam för svar!

Mvh

Är det någon som vet vilken komponent Loopia har föresten?

Melea skrev:

Är det någon som vet vilken komponent Loopia har föresten?

/red Nope, hade fel. Det var JMail. :)

Hehe, ursäkta om jag byter ämne men hur funkar CDONTS? Någon som kan visa lite kod? :)

Melea skrev:

Hehe, ursäkta om jag byter ämne men hur funkar CDONTS? Någon som kan visa lite kod? :)

Läs min redigering. ;)

Okej :)

Hur pillar jag in deras SMTP i den här koden?

Set objMail = Server.CreateObject("JMail.Message")
objMail.Logging = True

objMail.From = "mellow_design@hotmail.com"
objMail.AddRecipent "jonas.stenberg@hotmail.com"
objMail.Subject = "blabla"
objMail.Body = "hejhej"

If objMail.Send("Din IP?") Then
  Response.Write("Funkade bra!")
Else
  Response.Write(objMail.Log)
End If

Set objMail = Nothing

Där det i din kod står "Din IP?" ska det stå SMTPserverns ip, eller domän.

Har fått det att fungera nu! Tack så mkt för all hjälp

Mvh

Även jag får The message was undeliverable. All servers failed to receive the message som felmess... raden den klagar på ser ut så här: jmail.Send(mailserver)

kanske skall nämna att koden är till en webshop.

tack på förhand

/C