gevens excel mailen

[DieBe]

Er is veel geschreven over mailen vanuit excel maar het lukt mij niet. Ik wil als ik een werkblad opsla direct een mail laten versturen. Dit lukt nu maar dan wordt het gehele werkblad als bijlage verzonden. Ik wil gegevens uit excel direct in de mail zetten. Wie kan mij helpen? Van blad "melding" wil ik de gegevens uit de cellen A3, B3, A7, B7, A13 en B13 in tabelvorm direct in de mail laten zetten.

 

[DieBe]

Verkeerd bestandje. nr3 is voor de beveiliging. Nr4 is voor het mailen

Bekijk bijlage invulblad4.xlsm

 

[alphamax]

Over het mailen van een bereik is ook heel veel geschreven, ook op dit forum.
Zie http://www.rondebruin.nl/win/s1/outlook/bmail2.htm voor de bron van al deze code.

 

[edmoor]

Verkeerd bestandje. nr3 is voor de beveiliging. Nr4 is voor het mailen
Bekijk bijlage 288409

En wat werkt er niet?
Doe het eens zo:

    Application.ScreenUpdating = False
    Sheets("melding").Copy
    With ActiveWorkbook
        .SendMail "db*****@caiway.nl", "onderwerp"
        .Close False
    End With
    Application.ScreenUpdating = True

 

[DieBe]

op deze manier krijg ik het blad als bijlage. ik wil de inhoud van een paar cellen in de mail hebben staan.

 

[edmoor]

Maar dat werkt dus. Dat wilde ik even weten. Gebruik je Outlook om te mailen?

 

[gast0660]

Zoiets?
(met outlook)

 

[DieBe]

Het is gelukt met de code zoals aangegeven door dotchie jack. Bedankt

 

[HSV]

Dat wegschrijven en verwijderen van de gegevens kan toch wel iets simpeler @dotchie?

With Sheets("melding")
Sheets("totaal overzicht").Cells(rows.count, 1).End(xlUp).Offset(1).resize(,7) = array(.[B3], .[B5], .[B7], .[B9], .[B11], .[B13], .[B15])
.range("b7,b9,b11,b13,b15:b21").ClearContents
 'of: '.range("b7:b21").clearcontents
End With

 

[gast0660]

@ Hsv, tuurlijk, ik heb me alleen eventjes gefocust op de vraag van TS ivm het mailen.

 

[alphamax]

@HSV

Dat wegschrijven en verwijderen van de gegevens kan toch wel iets simpeler @dotchie?

With Sheets("melding")
Sheets("totaal overzicht").Cells(rows.count, 1).End(xlUp).Offset(1).resize(,7) = [COLOR="#FF0000"][B]array(.[B3], .[B5], .[B7], .[B9], .[B11], .[B13], .[B15])[/B][/COLOR]
.range("b7,b9,b11,b13,b15:b21").ClearContents
 'of: '.range("b7:b21").clearcontents
End With

Nog nooit gezien, rangevalue in een array

 

[HSV]

@alphamax,.... je bent al een tijdje lid.

@allen,

Ik zou wel het mailadres verwijderen uit jullie bestandjes.
Voor het geval dat.