Send e-mail

Jeg er ved at lave en database til min søster, og har et problem med afsendelse af e-mail. Min søster benytter Vista styresystem og får fejlen:

Denne handling er ikke tilgængelig nu.

når hun prøver at sende en e-mail fra Access.

Funktionen fungerer upåklageligt hos mig (XP og Access 2000). Jeg benytter flg. kode til at overføre valgte adresser til et adressefelt:

Private Sub Kommandoknap0_Click()
Dim Itm As Variant
Dim txt As String
Dim VARa As Variant
If Me!Liste1.ItemsSelected.Count > 0 Then
For Each Itm In Me!Liste1.ItemsSelected
txt = txt & Me!Liste1.ItemData(Itm) & "; "
Next Itm
txt = Left(txt, Len(txt) - 2)
End If
Me!FLDemail = txt
VARa = txt
End Sub

Herefter startet OutLook med flg. kommando:

Private Sub Kommandoknap5_Click()
On Error GoTo Errorhandler
Dim VARa As String
VARa = Me.FLDemail
DoCmd.SendObject , "", "", VARa, "", "", , , True
Errorhandler:
MsgBox "Fejlnummer: " & Err.Number & vbNewLine & "Fejlbeskrivelse: " & Err.Description
End Sub

Hvor variablen VARa er formularens adressefelt.

Men så kommer fejlen og der opstår en runtimeerror 1004.

Vi har ligeledes (pr. telefon) prøvet at lave en simpel makro og afspillet den. Men med samme resultat.
Jeg er ikke sikker på, om fejlen ligger i Access, eller om det er en indstilling i mailprogrammet, der ikke tillader andre programmer at afsende e-mail.

Det er afgørende for databasens funktionalitet, at dette fungerer korrekt, så er der en venlig sjæl, der kan løse problemet på en sådan pragtfuld efterårssøndag med høj klar solskin der inviterer til alt andet end at rode med databaser.