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
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