VBA Code om terug te gaan naar verplicht veld

Status
Niet open voor verdere reacties.
Graag gedaan en hetzelfde gewenst :)
 
Kan ook zo:

Code:
Private Sub CommandButton1_Click()
  with CreateObject("Outlook.Application").CreateItem(0)
    .to = "bestellingen@humankind.nl"
    .CC = "facilitydesk@humankind.nl"
    .Subject = "Bestelling voor Facility"
    .Body = replace("Beste collega's, ~~Plaats svp deze bestelling.~~Met vriendelijke groet,","~",vblf)
    .Attachments.Add ActiveWorkbook.FullName
    .Send
  End With
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan