Beveiligd gebied doorsturen via button

[brandernl]

Ik heb het bereik A1:I50 op het blad facturatie "roosens" genoemd en de code in module 2 aangepast

Sub Mail_Selection_Outlook_Body()
' Don't forget to copy the function RangetoHTML in the module.
' Working in Office 2000-2007
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
 
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
 
    Set rng = Nothing
    On Error Resume Next
    Set rng = Worksheets("facturatie").Range("roosens")
    On Error GoTo 0
 
    If rng Is Nothing Then
        MsgBox "The selection is not a range or the sheet is protected" & _
               vbNewLine & "please correct and try again.", vbOKOnly
        Exit Sub
    End If
 
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "Wachturen"
        .HTMLBody = RangetoHTML(rng)
        .Display   'or use .Send
    End With
    On Error GoTo 0
 
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

en het werkt als een speer.

 

[BuSTeD]

Brandernl,

Kan je jouw bestand eens uploaden want ik begrijp er geen sikkepit van, mijn excuses.

Bedankt

 

[brandernl]

Hier is ie

 

[BuSTeD]

Brandernl,

Ziet er fantastisch uit hoor. Je bent bedankt, maar ik probeer nu voor ht tabblad dispatch een knop te hebben en voor het tabllad facturatie een knop kan dit?

Sorry voor de vele vragen hoor, indien U het moe bent me te helpen dan begrijp ik het hoor.

Mvg

 

[brandernl]

Moet je nu zelf kunnen, macro kopiëren en andere naam geven. Bereik op blad dispatch definiëren (naam geven). "Roosens" in gekopieerde macro vervangen door nieuwe bereiknaam

 

[BuSTeD]

Wel ik kan daar dus niet aan uit.

Heb het gekopieërd en lukt me niet om het bereik te definiëren.

Toch bedankt voor de grote hulp.

 

[Roncancio]

Wel ik kan daar dus niet aan uit.

Heb het gekopieërd en lukt me niet om het bereik te definiëren.

Toch bedankt voor de grote hulp.

INVOEGEN - NAAM - DEFINIEREN - [naam invoeren]

Met vriendelijke groet,


Roncancio

 

[BuSTeD]

Bedankt aan iedereen die geholpen heeft.

Het lukt me nog niet, maar ik ga m'n latijn er niet meer instoppen

Bedankt

 

[brandernl]

Nou vooruit dan; kijk in de macro "dispatch" en zie hoe het gedaan is.