• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bijlage verzende in Excel Macro

Status
Niet open voor verdere reacties.

janemmers

Gebruiker
Lid geworden
28 aug 2001
Berichten
224
Ik heb onderstaande macro gemaakt
Als laatste heb ik regel 7 toegevoegd (.Attachments......)
nu werkt de macro niet meer.

De bedoeling van regel 7 is, dat deze een bestand ophaalt en dat meestuurt als bijlage. In cel L11 wil ik graag het pad benoemen van de bijlage b.v. C:\bestanden\werk\plakboek\versie23.docx

Wat moet er nog aangevuld worden in de macro



Code:
Sub VC_stap_02()
With CreateObject("outlook.application").CreateItem(0)
        .To = Blad5.Range("H11")
        .cc = Blad5.Range("i11")
        .Subject = Blad5.Range("j11")
        .body = Blad5.Range("k11")
        .Attachments = Blad5.Range("l11")
        .send
    End With
 Range("c11").Select
    ActiveCell.FormulaR1C1 = Date
    Range("c11").Select
End Sub
 
Laatst bewerkt door een moderator:
maak van Attachments =....
eens
Attachments.Add = ....
 
Helaas werkt dit niet

de macro blijft hangen op de regel: Attachments.Add .........

Code:
Sub VC_stap_02()
With CreateObject("outlook.application").CreateItem(0)
        .To = Blad5.Range("H11")
        .cc = Blad5.Range("i11")
        .Subject = Blad5.Range("j11")
        .body = Blad5.Range("k11")
       [B] .Attachments.Add = Blad5.Range("l13")[/B]
        .send
    End With
 Range("c11").Select
    ActiveCell.FormulaR1C1 = Date
    Range("c11").Select
End Sub
 
Laatst bewerkt door een moderator:
En wat doet
Code:
.Attachments.Add = Blad5.Range("l13").VALUE
 
Code:
.Attachments.Add Blad5.Range("l11").Value
 
Werkt helaas ook niet.
Geeft dezelfde foutmelding

En weer lezen we nergens de betreffende foutmelding...

Maar Rudi heeft gelijk, dat = teken hoort er niet in.
 
Laatst bewerkt:
Probleem is inderdaad door het weglaten van het = teken opgelost.
Dank voor de ondersteuning
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan