Probleem met joker

Status
Niet open voor verdere reacties.
En op welke regel krijg je die melding?
 
Ok, en wat laat MsgBox Bijlage zien?
 
En hoe komen die puntjes en spaties puntjes er omheen?

Ik zou trouwens dat stukje zo schrijven:
Code: 
    If Trim(FileCell) <> "" Then
        Bijlage = Dir(Range("W1") & "\" & FileCell.Value)
        If Bijlage <> "" Then
        .Attachements.Add Bijlage
        End If
    End If
 
Laatst bewerkt:
Ik heb de code van jou gebruikt.

Helaas nog steeds zelfde foutmelding en in formulier nog steeds 3059380_1.xls

puntjes waren voor het dramatische effect ;-)
 
Ik heb liever precieze antwoorden dan dramatische effecten.
Maar er zou dus dit moeten staan: H:\Test\3059380_1.xls

En over de code, je hebt er ook nog steeds If Dir(FileCell.Value in staan en dat moet eruit.
Plaats anders hier je document eens.
 
Het blad met de gegevens voor de mail is niet het actieve blad. Dus ook voor het ophalen van de waarde in W1 moet je het object sh gebruiken:
Bijlage = dir(sh.Range("W1") & "\" & FileCell.Value)
 
ik heb Bijlage = dir(sh.Range("W1") & "\" & FileCell.Value) erin gezet is dat voldoende?

Foutmeldingen en inhoud formuliertje blijven hetzelfde.....

Ga nu een uur in overleg maar ben dan uiteraard weer terug.

Bedankt
 
Ok. Twee foutjes.
1. De Dir functie geeft alleen een bestandsnaam terug en niet het hele pad.
2. Er stond .Attachements in plaats van .Attachments, daar heb ik ook overheen gekeken.

Maak er dus dit van:
Code: 
If Trim(FileCell) <> "" Then
    Pad = Dir(sh.Range("W1") & "\")
    Bijlage = Dir(Pad & "\" & FileCell.Value)
    If Bijlage <> "" Then
        .Attachments.Add Pad & Bijlage
    End If
End If

Waarin Pad ook weer een String is.
 
Laatst bewerkt:
Ik heb Dim Pad as String toegevoegd en jouw aanpassing ook

Echter Pad = Dir(sh.Range("W1") & "\" geeft ie rood weer in de editor
 
Gaat goed met de tikfoutjes vandaag ;)
Er mist een haakje sluiten en moet dus dit zijn:
Pad = Dir(sh.Range("W1") & "\")
 
No problem

Er opent nu een mail(geen foutmeldingen!)
Maar er hangen geen bijlagen aan de mail
 
Ik had het verkeerde gekopieerd. Ik denk dat ik vandaag beter wat anders kan doen ;)
Code: 
If Trim(FileCell) <> "" Then
    Pad = sh.Range("W1") & "\"
    Bijlage = Dir(Pad & "\" & FileCell.Value)
    If Bijlage <> "" Then
        .Attachments.Add Pad & Bijlage
    End If
End If
 
Laatst bewerkt:
Wil je jouw versie eens uploaden, misschien hebben we toch nog een verschil?
 
Daar zeg ik meestal geen nee tegen ;)
En graag gedaan :)
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan