VBA - Automatisch laten verzenden naar een email.

[BoukjeN]

Ik probeer via VBA een makkelijk te gebruiken inschrijfformulier te maken dat na het invullen de data wegschrijft en dan meteen via de knop verzenden alles naar een email stuurt en afsluit. Alleen ik krijg het niet voor elkaar . Zie code in de bijlage. Alvast dank voor de hulp.

 

[edmoor]

Vervang:

MsgBox ("Je kunt nu je gegevens verzenden naar pa@compananny.nl")

Door de andere code die je al hebt:

With CreateObject("Outlook.Application").createitem(0)
.to = "bnauta@compananny.nl"
 .Subject = "Aanmelding Nieuwe Werknemer"
 .attachments.Add ThisWorkbook.FullName
 .Send
End With

Daarnaast valt er nog wel 1 en ander aan je code te verbeteren, maar dat is een andere verhaal

 

[VenA]

De procedure voor het verzenden wordt nooit aangeroepen bij de klik op de knop of een klik op de Ok knop van de message box. Als je wijzigingen wilt versturen dan zal je deze wel eerst moeten opslaan.
waarom listboxen ipv van comboboxen?

Private Sub CommandButton1_Click()
    Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 15) = Array(LBVestiging.Value, TBVoornaam.Value, TBachternaam.Value _
    , TBGeboorteplaats.Value, TBGeboortedatum.Value, TBNationaliteit.Value, LBGeslacht.Value, TBStraat.Value, TBplaats.Value, TBplaats.Value _
    , TBTelefoonnummer.Value, TBEmail.Value, TBIBAN.Value, TBBUrgelijkestaat.Value, TBdatum.Value)
For Each c In Me.Controls
    If TypeName(c) = "TextBox" Or TypeName(c) = "ComboBox" Then c.Value = ""
Next c
MsgBox ("Je kunt nu je gegevens verzenden naar pa@compananny.nl")
ThisWorkbook.Save
volledig_werkboek_sturen
End Sub

 

[HSV]

With Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp)
    .Offset(1).Resize(,[COLOR="#0000FF"] 14)[/COLOR] = Array(LBVestiging.Value, TBVoornaam.Value, TBachternaam.Value _
    , TBGeboorteplaats.Value, TBGeboortedatum.Value, TBNationaliteit.Value, LBGeslacht.Value, TBStraat.Value, TBplaats.Value, TBplaats.Value _
    , TBTelefoonnummer.Value, TBEmail.Value, TBIBAN.Value, TBBUrgelijkestaat.Value)
    [COLOR="#0000FF"]If IsDate(TBdatum) Then
       .Offset(1, 14) = CDate(TBdatum.Value)
    Else
        .Offset(1, 14) = ""
    End If[/COLOR]
  End With