Excel bijlage mailen bij klik

[ExcelAmateur]

Ik weet er ook niet zoveel van maar denk dat je mischien nog iets moeet inschakelen in Objectenoverzicht.

 

[spaarie]

Ik denk niet dat het daar aan ligt, bij mij staat het in principe als standaard...
Mocht het zo zijn, ik heb deze aan staan (ALT+F11 > Extra > verwijzingen)

 

[AjaciedNick]

Heb ik ook aanstaan.

 

[spaarie]

Zo refereert hij niet naar de Library dus is het niet wat aan of uit staat...

With CreateObject("Outlook.Application").createitem(0)

Beetje gegoogled maar probeer deze eens:

Sub mailen()

Dim objOutlook As Object
Dim objNieuw As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objNieuw = objOutlook.createitem(0)

With objNieuw
.to = "jouwadres@domein.nl"
.Subject = "TEST"
.attachments.Add ThisWorkbook.FullName
.Display 'of .Send om direct te versturen
End With

End Sub

 

[AjaciedNick]

Weer de activeX, heb er even de screen bijgedaan

 

[spaarie]

Denk dat het probleem dieper zit dan de code, heb denk ik alles uitgesloten wat te maken heeft met de Library...

Doorloop dit eens als je wilt
Microsoft Support

of google even op: vba fout 429

 

[AjaciedNick]

hmm, klopt. Ik heb het op mijn werk pc getest en het werkt, danku.

Maar als ik mensen dit bestandje op een website laat downloaden krijg ik dus vaker dit probleem

 

[spaarie]

Het is niet erg gebruikelijk dat deze meldingen voorkomen, dus je kan de code gewoon gebruiken...

 

[AjaciedNick]

Oke, dankje!