01. juli 2003 - 12:10
Der er
1 kommentar og
1 løsning
Oprettelse af formular i Outlook
Hej,
jeg her et lille problem, som jeg håber I kan hjælpe mig med.
Jeg har oprettet en formular, hvor jeg har et afkrydsningsfelt. Det er meningen at man skal bruge feltet, hvis man vedhæfter en fil.
Et problem er følgende :
Jeg kunne godt tænke mig at, der kom en fejlmeddelse frem når man prøver at sende mailen, hvis man har klikket på afkrydsningsfeltet - men ikke vedhæftet en fil.
Jeg havde tænkt mig følgede besked "Du har prøvet at sende en mail uden vedhæftet fil" mailen er ikke afsendt.
Jeg håber I kan hjælpe mig. I er velkommen til at kontakte mig på NRA@get2net.dk
Hilsen
Len
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
