Outlook til Access / linje/ hjælp
Hej opretter dette spg igen.Jeg har importeret fra en mappe jeg kalder bfbs i denne mappe
kommer der bestillinger fra en formular fra en hjemmeside.
(Ikke vores hjemmeside. så jeg har ingen mulighed for at rette i denne)
Når jeg importer e-mail får jeg en masse feltenavne Vigtighed- Ikon -cc - til osv.
Feltnavn Indhold, indeholder de data jeg skal bruge, så jeg laver en forespørgsel på indhold
nu er det så jeg skal have sorteret linjer fra. Det er kun linje
6-7-8 jeg skal bruge
eks. på e-mail
Til xxxxxxxxxxxxxxxxxxxxxxx
Nedenstående kunde ønsker at få materiale tilsendt fra jer:
karbylon nielsen
xxxxxxxxxxxx 6
4000 Roskilde
xxxxxxxxxxxxxxxxxxxxx(x):
"xxxxxxxxxxxxxxxxxxxxxxxxxx.".
xxxxxxxx
xxxxxxx
xxxxxx
xxxxxxxx
xxxxxxxxxx
Med venlig hilsen
xxxxxxxxxxxxx
mail vil altid se sådan ud.
Jeg ved at det kan gøres.
Terry har før hjulpet mig med et ligende problem
eks herunder er terrys
Function FindString(strData As String, strFind As String) As String
Dim StartPos, SlutPos As Integer
On Error GoTo ErrorHandler
StartPos = InStr(1, strData, strFind) 'Finder positionen hvor strFind begynder i strData
StartPos = InStr(StartPos, strData, "-") + 1 'Flyttet startpositionen forbi bindestreg og mellemrum
SlutPos = InStr(StartPos, strData, Chr$(13) & Chr$(10)) 'Find det første linieskift efter startpositionen
If SlutPos = 0 Then SlutPos = Len(strData)
FindString = Mid(strData, StartPos, SlutPos - StartPos) 'Hent streng mellem start og slutposition
Exit Function
ErrorHandler:
FindString = ""
End Function