Hjælp til at sede mail

hvad linje er det du for fejl i??

det her kan man ikke i vb..
MsgBox Error$, vbCritical, "Mail Error"

skal nok se sådan ud..

MsgBox Err.Number, vbCritical, "Mail Error"

sorry det kan man da godt.. Tænker bare lidt PHP $Error :P

Jeg tror det er den her linie:

    Set jmail = CreateObject("JMail.SMTPMail")

jeg har nu prøvet med denne kode, og det virker fint..

Den her virker KUN hvis du har TDC, så den skal du lige lave om hvis du ikke har TDC.
Jmail.ServerAddress = "smtp.mail.dk:25"

Private Sub SendMail()
Dim Jmail As Object

  Set Jmail = CreateObject("JMail.SMTPMail")
  Jmail.ServerAddress = "smtp.mail.dk:25"

  Jmail.Sender = "din@email.dk"
  Jmail.ReplyTo = "send@til.dk"
  Jmail.AddRecipient "din@email.dk"

  Jmail.Subject = "Testing the excellent jmail"
  Jmail.Priority = 1
  Jmail.Body = "Body and soul." & vbCrLf & "Way cool..."

  Jmail.Execute

  If Err <> 0 Then
    MsgBox Error$, vbCritical, "Mail Error"
  End If

  Set Jmail = Nothing
End Sub

og du har registret..

WIN9x
regsvr32 "C:\Windows\System\jmail.dll"

WIN NT, 2000, XP
regsvr32 "C:\WINNT\System32\jmail.dll"

Har du fået det til at virke??

jeg fik det aldrig til at virke men brugte cdo til at sende med istedet, så nu virker det :-)

sjh: smid et svar så får du nogle point din hjælpe, og en stor tak skal der også lyde!

er det ok hvis vi deler, 15 point til dig og 15 point til mig?

Jeg kan se du ikke har så mange point, så tag du bare de 30 point tilbage igen. :)

Så siger jeg mange tak!