Vstavljanje datoteke v Outlooku

[BJ]

Pozdravljeni!
Kako bi izgledal makro v Outlooku (2007), za vstavljanje točno določene datoteke
npr.: "C/Arhiv/Zvezek1.xls"
Hvala in LP!

[admin]

Takole:

Koda: Izberi vse

'
'   www.matjazev.net
'      marec 2010
'
Sub SporociloSPriponko()
  Dim olMail As MailItem
  Set olMail = CreateItem(olMailItem)
  olMail.Attachments.Add "C/Arhiv/Zvezek1.xls"
  olMail.Display
End Sub

[BJ]

Super!!
Zelo ste mi pomagal Najlepša hvala
LPB

[BJ]

Pozdravljeni!
Imam še dodatno željo za ta makro.
V okence "Za..." naj bi se vpisal naslov n.pr. "krneki@krnekam.si"
Hvala in LPB

[admin]

Dodati je potrebno še vrstico 'To', ker v angleščini predstavlja opcijo 'Za':

Koda: Izberi vse

'
'   www.matjazev.net
'        maj 2010
'
Sub SporociloSPriponko()
  Dim olMail As MailItem
  Set olMail = CreateItem(olMailItem)
  olMail.To = "krneki@krneki.com"
  olMail.Attachments.Add "C/Arhiv/Zvezek1.xls"
  olMail.Display
End Sub 

[BJ]

Najlepša hvala!
LPB