Jeg forsøger ihærdigt at få sat et aktivt link ind i en email genereret med vba fra access - men min vba genkender ikke .htmlbody = body.

 

Se nedenstående kode.

 

Nogen ideer til hvad jeg gør galt!

 

Private Sub Kommandoknap7_Click()

 

Dim MyDB As DAO.Database
Dim rsEmail As DAO.Recordset
Dim sToName As String
Dim sSubject As String
Dim sMessageBody As String

     
Set MyDB = CurrentDb()
Set rsEmail = MyDB.OpenRecordset("QryInfo")

 

With rsEmail

      '.HTMLBody = sMessageBody
        .MoveFirst
       
       Do Until rsEmail.EOF
            If IsNull(.Fields(1)) = False Then
                sToName = .Fields(1)
                sSubject = "Nyhedsmail fra XXX"
               
               
               'sMessageBody = "<a href=http://www.google.dk>XXX</a>"
              
    sMessageBody = "Hej! " & .Fields(3) & vbNewLine & vbNewLine & .Fields(4) & vbNewLine & vbNewLine & .Fields(5) & vbNewLine & vbNewLine & " I er meget velkommen til at kontakte os hvis I er interesserede i yderligere information " & vbNewLine & vbNewLine & "Med Venlig Hilsen" & vbNewLine & vbNewLine & "XXX" & vbNewLine & "XXX" & vbNewLine & "XXX" & vbNewLine & vbNewLine  & vbNewLine & vbNewLine & "XXX" _
   & vbNewLine & vbNewLine & .Fields(6)

                
   ' Fields (6) indeholder hjemmesideadressen
        
                 
 DoCmd.SendObject acSendNoObject, , , _
                    sToName, , , sSubject, sMessageBody, True, True
                    
               
            
            End If
            .MoveNext
        Loop
End With
 
Set MyDB = Nothing
Set rsEmail = Nothing

End Sub