Bestand toevoegen

[Jari1970]

In onderstaande macro wordt een email aangemaakt waar direct het huidige excel bestand als bestand aan wordt toegevoegd.
Op de meeste pc's werkt dit naar behoren.
Op enkele pc's werkt de macro wel, maar wordt er geen bestand toegevoegd.
Iemand enig idee waar dit aan kan liggen?


[/U]Dim myolapp As Object
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs , FileFormat:=52
Set myolapp = CreateObject("Outlook.Application")
Set myitem = myolapp.CreateItemFromTemplate("PATH")
With myitem
.body = "TEXT"
.Attachments.Add ActiveWorkbook.FullName
End With
Application.DisplayAlerts = True
myitem.Display

 

[JEC.]

Probeer het eens zo

Sub jvr()
  Application.DisplayAlerts = False
  ThisWorkbook.SaveAs , 52
  With CreateObject("Outlook.Application").CreateItem(0)
     .To = "abc@hotmail.com"
     .Subject = "Test"
     .Body = "Test"
     .Attachments.Add ThisWorkbook.FullName
     .display
  End With
  Application.DisplayAlerts = True
End Sub

 

[Jari1970]

Ook dit werkt op de meeste pc's (wat mijn macro ook al deed).
Maar op enkele pc's wordt er nog steeds geen bestand toegevoegd.

 

[HSV]

ThisWorkbook.Save
  With CreateObject("Outlook.Application").CreateItem(0)
     .To = "abc@hotmail.com"
     .Subject = "Test"
     .Body = "Test"
     .Attachments.Add ThisWorkbook.FullName
     .display
  End With

 

[Jari1970]

Ik had al geprobeerd om het bestand eerst op te slaan voordat ik de macro gebruikte, dat hielp niet.
Wat voegt het toe om dit apart in de macro te zetten?

 

[Jari1970]

Om onverklaarbare reden werkt het ineens weer op alle pc's.
JVeer en HSV, bedankt voor jullie reacties.