Vba kode til vedhæftning af bestemt fil i Outlook mail/Formular

Skal koden tilknyttes en knap, eller skal det bare foregå automatisk ?

Den skal egentligt bruges til en bestemt formular, så det må gerne ske automatisk..

Denne kode køres når der klikkes på den knap der hedder cmdAtt

Dim itm
dim mail

sub cmdAtt_click()
    Set itm = Item.GetInspector
    Set mail = itm.CurrentItem
    mail.Attachments.Add "e:\billede.jpg"
    msgbox "sdfsdfsd"
end sub

Den vedhæfter den fil der ligger på e: og hedder billede.jpg

Husk at for det virker så skal du have meddelsesfeltet på din formular - det er dette felt der indeholder vedhæftet filer.

VH CK

Nej hvor dejligt - jeg vil straks prøve den af når jeg får et lille pusterum...takker.

Øv Christian jeg får "object required" fejl....

Hvilken linie får du fejl på ?

Mille>> Eftersom du ved hvem jeg er(men jeg stadig ikke kan huske hvem du er, så kan du da lige smide en mail eller ringe så skal jeg hjælpe dig!)

Men hvilken linie får du fejl på?

VH CK

Sorry

Jette TDC (gammel kunde)Du glemmer mig da altid ØV....

Set itm = Item.GetInspector

Ja det er da rigtigt :-)

Kan du ikke lige sende mig formularen på ck@targetgruppen.dk så skal jeg lige tjekke den

VH CK

Jeg har lagt den ind som et modul i VBA og kalder den inde fra en standard mail....

Jeg havde misforstået dig, jeg troede det var fra en brugerformular. Når det skal køre fra VBA så ser koden sådan her ud.

Sub test()
    Dim mail As MailItem
    Set mail = Application.ActiveInspector.CurrentItem
    mail.Attachments.Add "e:\billede.jpg"
    MsgBox "Det er forhåbentligt lykkedes dig at vedhæfte filen :-)"
End Sub

VH CK

Kedde65 - du er en dejlig dreng.

Tak for hjælpen.

Dreng... tsk tsk... men jeg ved det godt :-)

Er altid glad for at kunne hjælpe...

VH CK