Macro Excel mail button

[johangt]

Beste excel specialisten,

 

Ik zoek een excel specialist die thuis is in macro's. Ik wil een "Sent E-mail" button aanmaken die automatisch een mail opent en het desbetreffende excel bestand in bijlage toevoegt.

 

Desbetreffende file staat op: https://drive.google.com/open?id=1QWRV2DNGHA9vTdOtO6pLZe9ywieWCwcW

 

[bakerman]

Je vraag is veel te vaag om een volledige oplossing te geven maar dit zal je al op weg helpen.

 

Private Sub CommandButton1_Click()
    mypath = ThisWorkbook.Path & "\"
    myfilename = Sheet1.Range("B1").Value
    Application.CopyObjectsWithCells = False
    Sheet1.Copy
    Application.CopyObjectsWithCells = True
    With ActiveWorkbook
        Application.DisplayAlerts = False
        .SaveAs mypath & myfilename, 51
        Application.DisplayAlerts = True
        .Close False
    End With
    With CreateObject("outlook.application").createitem(0)
        .to = "emailadres"
        .Subject = "onderwerp"
        .body = "bijgaande tekst"
        .attachments.Add mypath & myfilename & ".xlsx"
        .display
    End With
End Sub