CDO

:bla

Har denna kod, som jag tycker skall fungera:

Sub SendMail(sName, sAddress, sPostalCode, sCity, sPhone, sCellPhone, sModell, sSerialNo, sYear, sIssue)

    dim oMail
    dim sFrom, sTo, sSubject, sTextBody

    set oMail=CreateObject("CDO.Message")

    oMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
    'Name or IP of remote SMTP server
    oMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.karlskrona.net"
    'Server port
    oMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
    oMail.Configuration.Fields.Update

    sFrom="henrik@bar.com"
    sTo="henrik.lindell@foo.se"
    sSubject="Felanmälan"

    sTextBody="Namn: " & sName & VbCrLf & "Adress: " & sAddress & VbCrLf & "Postnr: "  & sPostalCode & VbCrLf & "Ort: " & sCity & VbCrLf & "Telefonnr: " & sPhone & VbrLf & "Mobilnr: " & sCellPhone & VbCrLf & "Modell: " & sModell & VbCrlF & "Serienr: " & sSerialNo & VbCrLf & "Tillverkningsår: " & sYear & VbCrLf & "Felbeskrivning: " & sIssue

    oMail.From = sFrom
    oMail.To = sTo
    oMail.Subject= sSubject
    oMail.TextBody = sTextBody

   [B] oMail.Send[/B]
    Set oMail = Nothing

End Sub

Men, jag får fel enligt:

fel '8004020f'

Deh här prenumerationens händelseklass ligger i en ogiltig partition

/hl/default.asp, rad 100

Vad kan det vara?

Mvh
Henrik

Google: http://www.google.se/search?sourceid=navclient&hl=sv&ie=UTF-8&rlz=1T4SUNA_svSE299SE299&q=cdo+8004020f
Följ första länken...

Jag som låg uppkopplad till firman med vpn...

Funkade inte med den angivna smtp-adressen då. Bytte, så funkade det...

Sorry!

Mvh
Henrik