In Outlook VBA Serverfreigabe einbinden

[byron1778 10]

Hallo Forum!

 

Jeden Mittwoch muss ich eine Email mit immer demselben Inhalt erstellen.

Dieser Email wird auch noch das aktuelle Jour - Fix beigestellt, ein Worddokument, welches sich immer so bennent:

 

ORC_JourFix_20090812.doc

 

Den Text der Email kann ich ohne Probleme schreiben, jetzt wuerde ich noch gerne das aktuelle File mitgeschickt haben und das alles durch ein Makro geloest haben!

 

Kann mir jemand vll. dabei helfen, wie ich das aktuellste File vom Order:

 

Y:\Jour - Fix\

 

per Makro gleich miteinbeziehen kann?

 

So sieht mein vorlaeufiger Code aus:

 

Sub jour_fix()

 Dim objOutlook As New Outlook.Application

 Dim objNameSpace As Outlook.NameSpace

 Dim objInbox As MAPIFolder

 Dim objMail As MailItem

 'Get the MAPI reference

 Set objNameSpace = objOutlook.GetNamespace("MAPI")


 'Pick up the Inbox

 Set objInbox = objNameSpace.GetDefaultFolder(olFolderInbox)

 'Pick up the Date

 ' DM = Day(MyDate)

 DM = Date

 Set objMail = objInbox.Items.Add

 With objMail

   .Subject = "Jour - Fix minutes vom " & DM

   .Body = "Sehr geehrte Damen und Herren!" ...

   .To = "'"

   .CC = ""

   .Save

 End With

End Sub

 

Danke Euch schon einmal fuer jede Hilfe!