van blad1 een deel mailen met vba

[ewh]

beste,
ik ben al druk aan het zoeken geweest en verschillende VBA code gecombineerd , uiteindelijk kan ik wel mailen maar de data neemt hij niet mee.
wie kan helpen

Het is de bedoeling dat van Blad1 A1: J63 gemaild kunnen worden naar twee adressen , die staan op Blad2

in de bijlage het bestandje compleet met de vba ( niet in de lach schieten ,ik doe mee best )
ps ik werk nog met excel 2003
emile

 

[emields]

Als je wil met VBA werken verwijder dan alle samengevoegde cellen.

 

[AHulpje]

Probeer het hier eens mee.

 

[AHulpje]

Of iets simpeler:

Sub Send_Mail()
    ExporteerDeclaratie
    Set OutApp = CreateObject("Outlook.Application")
    Set outmail = OutApp.CreateItem(0)

    With outmail
        .To = Range("B5")
        .CC = Range("B6")
        .Subject = Range("D6")
        .Body = "de kilometer vergoeding over bovenstaande maand"
        .Attachments.Add ThisWorkbook.Path & "\Declaratie " & Range("D6") & ".xlsx"
        .Display   'Of gebruik .Send
        ' .Send
    End With
End Sub

Sub ExporteerDeclaratie()
    Range("A1:I62").Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Declaratie " & Range("D6")
    ActiveWorkbook.Close
End Sub

 

[ewh]

Probeer het hier eens mee.

helaas krijg ik de volgende fout melding
" ActiveWorkbook.EnvelopeVisible = False "

op je voorbeeldje, de andere code ga ik dadelijk uit proberen

 

[ewh]

helaas de andere code werkt ook niet , jammer , althans ik weet niet waar hij naar toegeschreven wordt

 

[AHulpje]

Probeer deze eens.

 

[emields]

zo zou het moeten lukken.

 

[ewh]

Probeer deze eens.

hier krijg ik een fout melding bij de regel .To = Range ("B5")
"TO van object_mailitem is mislukt "

In de bijlage heb ik ook geprobeerd een kopie te maken van het voorblad en die op te slaan op C:\

 

[AHulpje]

Oeps, ik had alleen Display getest, zo zou het wel moeten werken.:

        .To = Sheets("Blad2").Range("B5")
        .CC = sheets("Blad2").Range("B6")

 

[ewh]

helaas blijft met dezelfde fout melding komen

 

[AHulpje]

Deze versie werkt bij mij prima, ik heb hem een andere naam gegeven zodat je je niet kunt vergissen...
N.B. Deze versie stuurt direct de mail met bijlage.

 

[ewh]

dit geeft hij bij mij aan

 

[emields]

bestaat blad2 wel?

 

[AHulpje]

Zou het dan aan jouw oude versies van Excel (en Outlook?) kunnen liggen?
Zet dit er eens tussen:

        MsgBox Sheets("Blad2").Range("B5")
        MsgBox Sheets("Blad2").Range("B5").Value
        .To = Sheets("Blad2").Range("B5")

of doe het eens zo:

.To = "jouwemailadres"

 

[ewh]

Blad2 bestaat echt ( kijk maar in de gestuurde bijlage )

De MSGBox geeft het juiste mail adres aan , maar met de volgende regel .To krijg ik weer de fout melding

stiekem ook het workbook al even toegevoegd maar zonder resultaat
"Workbooks("zorgmaatje kmdeclaratie AH.xls").Sheets("Blad2").Range("B5") "

 

[AHulpje]

En werkt het zo dan wel:

        .To = "ewh@ziggo.nl"
        .CC = "ewh@ziggo.nl"
        .Subject = "december"
        .Body = "de kilometer vergoeding over bovenstaande maand"

 

[edmoor]

Het document van AHulpje in #12 werkt prima.
Wellicht tijd om je Office eens te updaten.

 

[ewh]

En werkt het zo dan wel:

        .To = "ewh@ziggo.nl"
        .CC = "ewh@ziggo.nl"
        .Subject = "december"
        .Body = "de kilometer vergoeding over bovenstaande maand"

dat werkt prima

 

[ewh]

Het document van AHulpje in #12 werkt prima.
Wellicht tijd om je Office eens te updaten.

Edmoor , je hebt gelijk , maar is nu even niet anders, we zijn er vlak bij en hoop echt dat het nog gaat lukekn