Oprettelse af formular i Outlook

I koden bagved formularen skrives følgende:

Dim itm
Dim pgs
Dim pg
Dim ctls
dim rs

Function Item_Open()
    on error resume next   
        Set itm = Item.GetInspector
        Set pgs = itm.ModifiedFormPages
        Set pg = pgs(1)
        Set ctls = pg.Controls   
    if err.number<>0 then
        err.clear
    end if
End Function

Function Item_Send()
        Dim CurItem
        Set CurItem = itm.CurrentItem
    'her sættes en reference til den checkbox der skal testes på
        set rs = ctls("chkAtt")
    if rs.value = true and CurItem.Attachments.Count =0 then
        msgbox "Du skal huske at vedhæfte filen, når du sætter kryds!"
        item_send = false
    else
        item_send = true
    end if
End Function


VH CK

Hejsa,

Tak for hjælpen. Det virker perfekt