mail excel bestand middels knop

[MJJBROEKHUI]

ik heb een excel template gemaakt. Deze moet naar derden worden ingevuld. Zodra ze deze klaar hebben moeten ze dit bestand naar naar mij terugmailen. Dit wil ik doen middels een formulier knop mbt macro.

Als de knop wordt ingedrukt moet automatisch dit bestand naar mij gemaild worden.

wie kan mij helpen?

 

[brandernl]

deze vraag komt vaker
zie http://www.rondebruin.nl/

 

[MJJBROEKHUI]

bedankt voor de tip.

maar dit is niet helemaal wat ik bedoel.

de opzet is dat de gebruiker éénmaal op een knop druk en dat direct het bestand naar mij gemaild wordt.

De gebruiker moet geen enkele ander handeling uitvoeren dan op de knop drukken.

 

[brandernl]

van dezelfde site
Koppelen aan knop

Sub Mail_workbook_Outlook()
'This example send the last saved version of the Activeworkbook
'You must add a reference to the Microsoft outlook Library
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "ron@debruin.nl"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub