Ga naar inhoud

Macro Excel mail button


johangt
 Delen

Aanbevolen berichten

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

 

Link naar reactie
Delen op andere sites

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

 

Link naar reactie
Delen op andere sites

 Delen

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.