excel bestand automatisch verzenden naar e-mail

[Budel]

Heren wie kan mij helpen bij het toevoegen van een vba code in mijn bestand.
De opzet is dat bij het afsluiten van het bestand deze automatisch naar meerdere e-mail adres verstuurd.
Het is mij niet duidelijk of ik daarvoor op elk blad een besturing element ( knop ) moet plaatsen of dat dit zo gaat.
wie wil mij hierbij helpen.
Bij voorbaat dank.

 

[VenA]

Je kan de code in de Workbook_BeforeClose van Thisworkbook plaatsen. En als je nog geen code hebt zoek even. Komt ± 10 keer per week langs.

 

[Budel]

Beste VenA,

Het kan wel maar ik weet niet welke code in moet hebben en waar ik hem moet plaatsen.

 

[gast0660]

Hallo,
Bij deze

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim FileExtStr As String
    Dim I As Long

    Set wb1 = ActiveWorkbook

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    
    TempFilePath = Environ$("temp") & "\"
    TempFileName = "Copy of " & wb1.Name & " " & Format(Now, "[COLOR="#FF0000"]dd-mmm-yy h-mm-ss[/COLOR]") [COLOR="#FF0000"][COLOR="#008000"]'pas eventueel aan[/COLOR][/COLOR]
    FileExtStr = "." & LCase(Right(wb1.Name, _
                                   Len(wb1.Name) - InStrRev(wb1.Name, ".", , 1)))

    wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr
    Set wb2 = Workbooks.Open(TempFilePath & TempFileName & FileExtStr)

    With wb2
        On Error Resume Next
        For I = 1 To 3
            .SendMail "[COLOR="#FF0000"]email1@mail.com;email2@mail.com[/COLOR]", _[COLOR="#008000"] 'pas deze aan![/COLOR] [COLOR="#008000"]let op[/COLOR] [COLOR="#FF0000"];[/COLOR] [COLOR="#008000"]tussen emailadressen[/COLOR]
                      "[COLOR="#FF0000"]Dross[/COLOR]" [COLOR="#008000"]'onderwerp[/COLOR]
            If Err.Number = 0 Then Exit For
        Next I
        On Error GoTo 0
        .Close SaveChanges:=False
    End With

    Kill TempFilePath & TempFileName & FileExtStr

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub

Zoals VenA al aangaf

in de Workbook_BeforeClose van Thisworkbook plaatsen

Groet

 

[Budel]

Het werkt niet of ik doe wat fout.
Zal het laatste wel zijn.
Maar de opzet is eigenlijk op elk blad een knop voor verzenden toe te voegen.
Wie kan dit voor mij als voorbeeld bij een blad in orde maken zodat ik op de knop duwt, dat dan pas het blad verzend.
Bij voorbaat dank.

 

[gast0660]

Hoi,
Iets in die richting?
In uw bestand (dross) een blad bijgevoegd (Kies)
Daar in de kolom Mail? zet je op ja dan wordt de mail naar betreffend email adres gestuurd (4 keer ja is naar 4 emailadressen in één keer)
Druk daarna op de knop naar keuzeformulier en druk daarna op het blad dat je wilt versturen.
Getest met outlook
Het bestand is te groot om hier te posten, maar kan je hier downloaden
http://we.tl/hVjKAsmADC
Groet

 

[Budel]

He gast0660,

Dankjewel zo had ik het niet verwacht maar het werkt wel.
Hier kan ik wat mee

 

[gast0660]

Hoi,
Mooi zo:thumb:
Dit was wel uw vraag: voor ieder blad een knopje en naar meedere emails versturen.

Het werkt niet of ik doe wat fout.
Zal het laatste wel zijn.

Klopt, ipv de code onder this workbook te plaatsen had je die onder blad 24 gestopt
Succes

 

[Budel]

gast0660

Het is perfect.
Ik hoop als ik weer zoiets heb dat je dan weer helpt.

 

[gast0660]

Hoi,
Indien ik een oplossing heb graag, maar hier op het forum zijn een heleboel helpers die veel slimmer zijn
Blij dat je verder kan:thumb:
Groet