Excelbestand mailen met button vanuit Excel 2010

[JanMat]

Hallo,

Ik ben al een paar dagen bezig met knippen en plakken, maar krijg het niet voor elkaar.
Via Internet macro's gedownload en aangepast, maar het lukt me niet.
Ik heb in het bestand al een verzendbutton, maar ik kan er geen werkende macro aan koppelen die voor verzending zorgt.
Graag wil ik na het invullen van de velden op versturen drukken zodat het bestand naar een vast mailadres wordt verstuurd met als onderwerp Bunkeraanvraag en de naam uit veld C4.
Het is vast heel simpel, maar ik sta niet bekend om mijn geduld......
Wie wil en kan mij helpen?
Ik heb het bestand als bijlage toegevoegd.

Bij voorbaat dank.

Groet Jan

 

[gast0660]

Sub bunkeraanvraag()
ActiveSheet.Copy
With ActiveWorkbook
    Application.DisplayAlerts = False
    .SaveAs Environ("TMP") & "\Bunkeraanvraag.xlsx", FileFormat:=xlWorkbookDefault, ConflictResolution:=xlLocalSessionChanges
    Application.DisplayAlerts = True
    .Close (True)
End With
With CreateObject("Outlook.Application").CreateItem(0)
    .To = "vastemailadres@huppeldepup.com"
    .Subject = "Bunkeraanvraag" & " " & [C4]
    .Body = ""
    .Attachments.Add Environ("TMP") & "\Bunkeraanvraag.xlsx"
    .Display
    '.send
    End With
End Sub

 

[mvdvlist]

With CreateObject("Outlook.Application").createitem(0)
.to = "test@verzender.nl"
.Subject = "Bunkeraanvraag" & " "& [C4]
.attachments.Add ThisWorkbook.FullName
.Send
End With

 MsgBox "Gelukt.."