Bereik mee in body sendmail code

[SlootsJ]

Hi,

In onderstaande code wil ik graag tekst uit een bepaald bereik in de mail body mee laten sturen, kan iemand mij uitleggen, of een bestaande website door geven waarbij iets dergelijks uitgelegd staat.

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim EmailManager As String
    Dim EmailCC As String
    Dim EmailBCC As String
    
    EmailManager = Range("EmailManager")
    EmailBCC = Range("EmailBCC")
    EmailCC = Range("EmailCC")
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .To = EmailManager
        .CC = EmailCC
        .BCC = EmailBCC
        .Subject = "GC  Update per: " & Date & " van: " & Range("C2")
        .Attachments.Add ActiveWorkbook.FullName
        .body = "Hi, hierbij de nieuwste versie van mijn GC."
        .Display    'Send
    End With
        
    Set OutMail = Nothing
    Set OutApp = Nothing
    
End Sub

 

[edmoor]

Voorbeeld:

.body = Join(Application.Transpose(Sheets("Blad1").Range("A10:C20")), vbCrLf)

Of wil je het met de kaders en kleurtjes e.d.?
Plaats dan je document zonder enige bescherming.

 

[SlootsJ]

Voorbeeld:

.body = Join(Application.Transpose(Sheets("Blad1").Range("A10:C20")), vbCrLf)

Of wil je het met de kaders en kleurtjes e.d.?
Plaats dan je document zonder enige bescherming.

Hi,

De titel van het onderdeel zou dan Bold mogen zijn, zoals aangegeven in het document.
Alvast bedankt.

 

[edmoor]

Wat bedoel je precies met "de titel"?

 

[SlootsJ]

Hoi,
Dat de body er als volgt uit ziet.


Communicatie: (titel)

Dan hier de tekst uit het document.

Retentie: (titel)

Dan hier wederom tekst uit het document

Etc

 

[edmoor]

Uit je uitleg en de bestaande code is helaas niet te halen over welk(e) blad(en) je het nu eigenlijk hebt en welke bereiken.

De bestaande code hoort bij een knop met de naam CommandButton2 en die is er ook niet.
Geen idee dus nog wat je nu precies in de body wilt zien.