Fejl i flg: Set s = CreateObject("msMapi.mapiSession")

Hej

Jeg skal sende en mail fra VB 6 via Outlook express

Medsendte kode virker på min udviklingsmask. men ikke på testmaskinen.

Begge er W2k med ie6.0 og oe6.0

Jeg har lavet en package og installeret på testmask. så msmapi.ocx findes på den.

Når jeg kører koden på testmask. får jeg fejl 429
Activex component cant create object.

Hvad mangler jeg på testmaskinen ??


' her er koden der fejler
Public Function sendviaoe(sendto As String, subj As String, body As String) As Integer

On Error GoTo err

Set s = CreateObject("msMapi.mapiSession")

s.DownLoadMail = False
s.SignOn
s.NewSession = True

Set m = CreateObject("msMapi.mapiMessages")
m.SessionID = s.SessionID
m.Compose
m.RecipAddress = sendto
m.MsgSubject = subj
m.MsgNoteText = body
m.Send

s.SignOff
s.NewSession = False

Set m = Nothing
Set s = Nothing

sendviaoe = 1

err:
If err.Number = 0 Then
  sendviaoe = 1
  Else
  sendviaoe = err.Number
  MsgBox err.Description
End If
End Function