Macro invoegen bijlage werkt niet.

[samabert]

Hallo allemaal,

Dit is de eerste keer op dit forum.
Graag jullie hulp bij volgende. De macro die via een button in Outlook start, daar wil ik graag een bijlage bij. Alleen de code voor de bijlage wil hier niet werken.


Sub CreateFromTemplate()

Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Set myOlApp = CreateObject("Outlook.Application")
Dim objOutlookAttach As Outlook.Attachment



Set myItem = CreateItemFromTemplate ("C:\Users\Marc\Appdata\Roaming\Microsoft\Templates\Verdi.oft")
myItem.Subject = "Uw informatieaanvraag " & Format(Now, "mmmm - yyyy")

'myItem.Body = "Beste ," & vbLf & vbLf & vbLf & "Met vriendelijke groeten" & vbLf & "Vero"

.Attachments.Add ("C:\M\weegschaal.xls")


myItem.To = "aanmij@pandora.be;ikke@pandora.be"
'MyItem.CC = "ikke@pandora.be"
'MyItem.BCC = "ikke2@skynet.be"

myItem.Display

End Sub

Alvast bedankt.
M.v.g.
Marc

 

[aelatik]

.Atachments.Add ("C:\M\weegschaal.xls")
moet zijn
myItem.Attachments.Add ("C:\M\weegschaal.xls")

 

[samabert]

Fantastisch, het werk zoals het moet nu.
Heel erg bedankt voor je hulp.

groeten,

Marc