send mail fra excel vha outlook (med links)

Sub Send_via_Outlook()
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem
Dim szBodyTekst As String
Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)
szBodyTekst = "http://www.dicks-clicks.com/excel/sheettohtml.htm" & vbCr
'szBodyTekst = szBodyTekst & "mvh" & vbCr
'szBodyTekst = szBodyTekst & "*******" & vbCr


With olNewMail
    .Recipients.Add Range("a1")
    '.Recipients.Add Range("a2")
    .Subject = "Nye regneark"
    .HTMLBody = szBodyTekst
    .Send
End With
Set olNewMail = Nothing
Set olApp = Nothing

End Sub

Hmm ser interessant ud. hvis det blot er at sætte HTMLbody istedet for body.
kan dog ikke få dt til at virke. den aktiverer ikke linket?!?

Med dit eksempel brokker den sig over
"Dim olApp As Outlook.Application"
mener at jeg har de nødvendige componenter krydset af under "reference". det virker jo på min eksisterende.

jeg sendte det til OutlookExpress, der virkede det fint

Ref. Microsoft Outlook 9.0 Object Library

Takker. Fik det ikke til at virke umiddelbart vha .HTMLbody, men i stedet med ".Body", som jo var mit udgangspunkt. Jeg havde vidst fået vendt "/" forkert.

smid et svar kabbak.
HVor finder jeg egentlig lettest en beskrivelse af de forskellige objekter og atrributer mm... under VBA i Outlook, eller er det lettest på MSDN?

mvh
wildthing

et svar ;-))

jeg søger normalt her på eksperten eller google, men hjælpen bruger jeg også meget, angående outlook ved jeg ikke, koden her er fundet på Eksperten.