10. april 2007 - 10:44
Der er
3 kommentarer og
1 løsning
Lidt vb hjælp
Jeg har en kode som sender mail.. men de filer den skal sende med kan til tider have nogle ekstra bogstaver med i sig..
Jeg har prøvet med L = "ingen ting" el. w el. s
men kan ikke få det til at virke er der en som har en ide til en løsning til problemet!?
L = "" Or w Or s
If Dir(Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & "V-" & Cells(r, 17) & L & "V" & Filnavn) <> "" Then
mailThis.Attachments.Add Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & "V-" & Cells(r, 17) & L & "L" & Filnavn
mailThis.Attachments.Add Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & "V-" & Cells(r, 17) & L & "V" & Filnavn
Else
mailThis.Attachments.Add Disk & Format(Now(), "yyyy") & Format(Now() + Cells(2, 30), "mm") & Format(Now() + 1, "dd") & "V-" & Cells(r, 17) & L & "L" & Filnavn
End If
11. april 2007 - 08:36
#2
Det har jeg også prøvet men det er ikke den funk man kan bruge...
Det vil komme til at se sådan ud
¿ kan være "*" ' Ingen ting eller w el. s
Disk = "C:\Test\Dagen"
If Dir("C:\Test\Dagen\20070408V-'¿'L.Filnavn") <> "" Then
Koden skal gøre som den gør nu men skal bare se og filen man søger er en at de 6 muglige filer... eller det som må stå i mellem "_" og "L" el i mellem "_" og "V"
filnavnet er fast med datoen 20070408V- = 10 tegn og så er det et tegn før .fil
det er for at undgå at skulle lave den samme kode x6....
C:\Test\Dagen\20070408V-V.Filnavn
C:\Test\Dagen\20070408V-L.Filnavn
C:\Test\Dagen\20070408V-sL.Filnavn
C:\Test\Dagen\20070408V-wL.Filnavn
C:\Test\Dagen\20070408V-sV.Filnavn
C:\Test\Dagen\20070408V-wV.Filnavn
11. april 2007 - 09:49
#3
eller hvordan kan jeg lave den kode her om til at være nemmere
Disk = "C:\Test\Dagen\"
If Dir(Disk & "20070408V-L.Filnavn") = true Then
If Dir(Disk & "20070408V-K.Filnavn") <> "" Then
mailThis.Attachments.Add Disk & 20070408V-L.Filnavn
mailThis.Attachments.Add Disk & 20070408V-K.Filnavn
Else
mailThis.Attachments.Add Disk & 20070408V-L.Filnavn
End If
Else
If Dir(Disk & "20070408V-wL.Filnavn") = true Then
If Dir(Disk & "20070408V-wK.Filnavn") <> "" Then
mailThis.Attachments.Add Disk & 20070408V-wL.Filnavn
mailThis.Attachments.Add Disk & 20070408V-wK.Filnavn
Else
mailThis.Attachments.Add Disk & 20070408V-wL.Filnavn
End If
Else
If Dir(Disk & "20070408V-sL.Filnavn") = true Then
If Dir(Disk & "20070408V-sK.Filnavn") <> "" Then
mailThis.Attachments.Add Disk & 20070408V-sL.Filnavn
mailThis.Attachments.Add Disk & 20070408V-sK.Filnavn
Else
mailThis.Attachments.Add Disk & 20070408V-sL.Filnavn
End If
Else
Kode
End If
End If
End If
