Range in body mail

[giten]

Ik gebruik deze (aangepaste) macro van Ron de Bruin voor het sturen van een e-mail:

Sub Outlook_Mail_Every_Worksheet_Body()
' Working in Office 2000-2007
    Dim OutApp As Object
    Dim OutMail As Object
    Dim ws As Worksheet
 
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
 

    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
 
            Set OutMail = OutApp.CreateItem(0)
 
            On Error Resume Next
            With OutMail
                .To = Sheets("Invulblad").Range("A1").Value
                .CC = ""
                .BCC = ""
                .Subject = "Blabla"
                .Body = Sheets("Invulblad").Range("a2")
                .Display
            End With
            On Error GoTo 0
 
            Set OutMail = Nothing
 
    Set OutApp = Nothing
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

In de body wil ik echter een range in plaats van 1 cel. Iemand een idee?

 

[snb]

Zet svp de vba code tussen codetags:

Selecteer de tekst, klik op het icoontje #

Gebruik geen code die je niet begrijpt.

 

[giten]

Codetags geplaatst!

Door codes te gebruiken die je (nog) niet snapt leer je natuurlijk een hoop!

In dit geval gaat het alleen om dit gedeelte:

.Body = Sheets("Invulblad").Range("a2")

Waarom werkt dit niet:

.Body = Sheets("Invulblad").Range("a2:b3")

 

[snb]

Zoek in de hulp van de VBEditor van OUtlook naar de eigenschappen van .Body

 

[giten]

Hm... niet geïnstalleerd, en ik weet zo even niet waar de cd ligt.....

Kun je niet een tipje van de sluier oplichten?

 

[Wigi]

Bvb.

.Body = Sheets("Invulblad").Range("A2") & "-" & Sheets("Invulblad").Range("A3") & "-" & Sheets("Invulblad").Range("B2") & "-" & Sheets("Invulblad").Range("B3")